Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Program pr_1;uses crt; var n1,n2,rez: real; Begin clrscr; WriteLn('Уведіть два числа'); Readln(n1, n2); rez:= n1/n2; {Вивід в експонентному виді} WriteLn('n1/n2 = ',rez); {Вивід у форматі фіксованої крапки} WriteLn('n1/n2 = ',rez:8:3); Write('Натисніть клавішу <Enter>'); ReadLn; End. Пояснення до програми Ім'я цієї програми pr_1 (в імені програми не повинно бути пропусків, воно повинне починатися з букви, складатися тільки з латинських букв, цифр і деяких символів, не допускається використовування символів крапки і коми). В розділі описів є два підрозділи. Перший — підрозділ модулів (бібліотечних комплексів програм), що підключаються до нашої програми. Він починається із службового слова Uses, після якого йде послідовність імен модулів, розділених комами. Підрозділ завершується крапкою з комою. В нашому прикладі описаний один модуль crt, забезпечує доступ до сервісних програм роботи з клавіатурою і екраном. Другий підрозділ описів починається із службового слова Var, після якого йде послідовність оголошення змінних. В нашому прикладі описано три змінні: всі вони (n1, n2 і rez) мають дійсний тип (real), тобто змінні цього типу — це дійсні числа. Після описової частини йде розділ операторів, що починається із службового слова Begin, після якого йдуть оператори мови. Перший оператор, що зустрічається, — це процедура clrscr; — очищення поточного текстового вікна екрану і установка курсору в лівий верхній кут. Наступний оператор — це WriteLn('текст'); — записати (вивести) на екран текст, укладений між апострофами, Ln додається в кінці цього оператора для того, щоб курсор автоматично переходив на наступний рядок при виводу на екран текстів або результатів виконання програми. Наступний оператор — це ReadLn(n1, n2); — читати дані з клавіатури. В даному випадку необхідно ввести два числа через пропуск, тоді змінної n1 привласнюється значення, рівне першому введеному числу, а змінної n2 привласнюється значення, рівне другому введеному числу. Наприклад, ви ввели числа 64 і 16, тоді n1=64, а n2 =16. Після останніх двох операторів стоїть оператор привласнення: rez:= n1/n2; (:= це знак привласнення в мові Паскаль). При виконанні цього оператора змінна rez отримає значення, рівне частки від поділу числа n1 на число n2. Оскільки в результаті поділу двох дійсних чисел виходить дійсне число, то змінна rez, описана типом real (значеннями якого можуть бути лише дійсні числа). Наступний оператор — це коментар — довільний текст в будь-якому місці програми, укладений у фігурні дужки. Наступний оператор — це знову оператор WriteLn('текст',rez); — він виведе на екран текст, укладений між апострофами, а за ним значення змінної rez в експонентному виді (± мантиса Е ± порядок). Далі йде коментар і знову оператор WriteLn('n1/n2 = ',rez:8:3); забезпечуючи вивід змінної rez у форматі з фіксованою крапкою (8 символів, з низ 3 після коми). Потім наступний оператор WriteLn виведе на екран повідомлення: "Натисніть клавішу <Enter>", а оператор ReadLn чекатиме цього натиснення у вікні виконання. В кінці розділу операторів стоїть службове слово End після якого стоїть крапка.
|