Мова програмування Pascal Програма на Pascal містить

Мова програмування Pascal

Програма на Pascal містить такі розділи: <заголовок> program ім’я_програми; <опис зовнішніх модулів> uses Список_використовуваних_модулів; (напр. математична бібліотека, графічна бібліотека) <розділ описів> const описи констант; type описи типів; var описи змінних; procedure function Описи процедур та функцій; <розділ операторів> begin … end.

Опис змінних: Схема опису змінних: var <ім’я змінної>: <тип>; Приклад: var S, V, R: integer;

Опис констант: У цьому розділі іменам констант надаються сталі значення за допомогою службового слова сonst. Приклад: сonst V=7;

Типи даних у мові Pascal: Будь - який елемент даних можна віднести до того чи іншого типу. Тип визначає дії, які можна застосовувати до величини та які форми вона може приймати.

Цілочисловий тип: Byte – числа в діапазоні від 0 до 255; Shortint від – 128 до 127; Integer від – 32768 до 32767; Word від 0 до 65535; Longint від 2147483648 до 2147483647;

Дійсні типи: real – від 2. 9 E-39 до 1. 7 E 38; single – від 1. 5 E-45 до 3. 4 E 38 double – від 5. 0 E-324 до 1. 7 E 308;

Символьний тип: Змінні, які набувають символьних значень з таблиці ASC належать до символьного типу – char.

Процедури введення – виведення у мові Pascal : Для виведення інформації на екран використовується вбудована процедура writeln. Приклад: writeln (‘Student of college’);

Для введення інформації з клавіатури призначена вбудована процедура readln. Приклад: readln(h); Програма зупиниться і буде чекати введення значення h.

Запис коментарів у мові Pascal: Коментарі записуються за допомогою символів { коментар } або (* коментар *). { } – коментар розміщається в одному рядку; (* *) - коментар розміщається в декількох рядках; Для Pascal. ABC та Pascal. ABC. net існує і така форма запису коментарю: // - коментар розміщається в одному рядку;

Операції на мові Паскаль: Арифметичні операції: Операція Дія + * / Div Додавання Віднімання Множення Ділення націло Mod Залишок від ділення

Операції відношення: Операція Назва Вираз = <> > Дорівнює Не дорівнює Більше А=В А<>В А>В < >= Менше Більше або дорівнює Менше або дорівнює А<В А>=В <= А<=В

Логічні операції: Операція Дія Вираз not Логічне заперечення not A and Логічне «І» A and В or Логічне «АБО» A or В

Деякі функції мови Pascal: Sqr(x) – піднесення до квадрату; Sqrt(x) – обчислення квадратного кореню; Cos(x) – обчислення косинуса кута; Sin(x) - обчислення синуса кута; ab=Exp(b*Ln(a)) – піднесення до довільного степеню;

Приклад програми: program Task 1; var l, w: real; {довжина і ширина паралелограма} s: real; {площа паралелограма} begin writeln(‘Введіть вхідні дані’); writeln(‘довжина (см. )’); readln(l); writeln(‘ширина (см. )’); readln(w); S: =l*w; writeln(‘Площа паралелограма’, s, ‘кв. см. ’); readln; {Затримка зображення на екрані} end.

Розгалуження у мові Pascal: Умовний оператор if : if <умова> then <дія> else <дія>;

Приклад програми на розгалуження: program Task 2; var a, b, c: real; {ділене, дільник, результат від ділення} begin writeln(‘введіть ділене і дільник’); readln(a, b); if a <> b then begin c: =a/b; writeln(‘результат ділення’, c); end else writeln(‘Помилка’); readln; {Затримка зображення на екрані} end.

Умовний оператор case: case < вираз > of < список вибору1 > : < оператор 1 >; < список вибору 2 > : < оператор 2 >; . . . < список вибору n > : < оператор n > else < оператор > end;

Приклад програми на оператор case: program Task 3; var x: integer; begin writeln('Введіть оцінку (1. . 5): ') ; readln(x); case x of 1: writeln(‘Одиниця'); 2: writeln('Двійка'); 3: writeln('Трійка'); 4: writeln('Четвірка'); 5: writeln('П’ятірка'); else writeln('Такої оцінки немає'); end.

Цикли у мові Pascal : 1. Цикл з параметром (лічильником). 2. Цикл з передумовою. 3. Цикл з післяумовою.

Цикл з параметром: 1) for <параметр циклу> S 1 to S 2 do begin <набір команд>; end. 2) for <параметр циклу> S 1 downto S 2 do begin <набір команд>; end.

Приклад програми на цикл з лічильником: program Task 4; var x: integer; {число} y: integer; {квадрат числа} i: integer; { лічильник циклів} begin writeln(‘число квадратів’); for i: =1 to 10 do begin y: =x*x; writeln(x, y); x: =x+1; end; readln; end.

Цикл з передумовою: while <умова> do begin <набір команд>; end;

Приклад програми на цикл з передумовою: program Task 5; const n = 60; begin writeln('Числа від 1 до ', n, ', кратні 3'); var x : = 3; while x<=n do begin writeln(x, ‘ ’); x += 3; end.

Цикл з післяумовою: repeat <набір команд>; until <умова> ;

Приклад програми на цикл з післяумовою: program Task 6; const n = 60; begin writeln('Числа от 1 до ', n, ', кратные 3'); var x : = 3; repeat writeln(x, ' ‘); x += 3; until x=n; end.