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 після якого стоїть крапка.