2. Прості оператори

Основний розділ програми на Pascal являє собою послідовність операторів. Всі оператори поділяють на прості і складені.

Прості оператори - це такі оператори, які не містять ніяких інших операторів. До них відносяться оператори присвоєння, безумовного переходу, виклику процедури.

Формат оператору присвоєння: ідентифікатор змінної> : = <вираз>;

Формат безумовного переходу: go to ідентифікатор мітки>;

Оператор виклику процедури служить для активізації визначеної раніше процедури (стандартної чи користувацької). Наприклад, writeln ('Процедура виводу');

Складені оператори - це такі оператори, в тілі яких містяться інші оператори.

Складений оператор являє собою групу з довільного числа операторів, відокремлених один від одного крапкою з комою, і обмежених зарезервованими словами begin і end. Складений оператор приймається як єдине ціле і може знаходитись в будь-якому місці програми, де синтаксис дозволяє наявність оператора.

3. Оператори вибору

Умовні оператори призначені для вибору до виконання однієї з можливих дій (операторів) в залежності від деякої умови. В Pascal є два умовних оператори: if і case.

Формат умовного оператора IF:

if <вираз логічного типу> then <оператор1> [else <оператор2>];

Дія оператора: якщо <вираз логічного типу> дорівнює true, то буде виконуватися <оператор1>, якщо ж <вираз логічного типу> дорівнює false і є конструкція else, то буде виконуватися <оператор2>,

Формат оператора Case:

case <вираз> of

<список1> : <оператор1 >;

<список2> : <оператор2 >;

<список]М> : <oпeраторN>

[else <оператор>];

end;

Спочатку обчислюється значення <виразу>, потім забезпечується реалізація того оператора, в списку якого є константа, рівна обчисленому значенню <виразу>. Якщо жодна з констант не підходить, то виконується оператор після Else. Якщо Else відсутнє, то виконується оператор, який стоїть після Case.

4. Процедури введення / виведення

Процедури Write / Writeln виконують виведення числових даних, символів, рядків і булевих

значень. Формат:

Write (yl, y2,...); /Writeln (yl, y2,...);

де у 1, у2,... - вирази, що виводяться.

Writeln на відміну від Write наступний вивід здійснює з нового рядка.

Процедура Read забезпечує введення числових даних, символів, рядків і т.д. з клавіатури для

подальшої обробки їх програмою. Формат:

Read(xl,x2,...);/Readln(xl,x2,...,xN);

де х1 ,х2,... - змінні допустимих типів даних.

Приклад. Скласти програму, яка обчислює значення функції

Текст програми

program exemple1;

uses crt;

var a,b,c,d,x ,f: real;

begin

ClrScr; {очистка екрану}

TextBackGround(Cyan); { встановлення блакитного кольору екрану}

GoToXY(35,2); { встановлення курсору в 35 стовпець 2 рядка}

TextColor(White); { встановлення білого кольору тексту}

writeln('Приклад1'); { вивід запрошення для вводу}

TextColor(Blue); { встановлення синього кольору тексту}

Write('Введіть значення х'); { вивід запрошення для вводу х}

Readln(x); { ввід значення х}

a:=sqr(sin(x)); {або a:=sin(x)*sin(x)}

b:=ln(sqr(x)); {або b:=ln(x*x)}

с:=ехр(х);

d:=sqrt(abs(x));

TextColor(LightCyan); { встановлення ясно-блакитного кольору тексту}

Write('a=',a:10:4,' '); { вивід значення а}

TextColor(LightBlue); {встановлення ясно-синього кольору тексту}

Writeln('b=',b: 1:3); { вивід значення b}

TextColor(LightGreen); { встановлення ясно-зеленого кольору тексту}

Write('c=',c:10,' '); { вивід значення с}

TextColor(LightGray); { встановлення ясно-сірого кольору тексту}

Writeln('d=',d: 1:3); { вивід значення d}

If a*b=0 then f:=a+b { обчислення значення функції}

else if c*d=0 then f:=c+d else f:=a*b*c*d;

TextColor(Red); { встановлення червоного кольору тексту}

Writeln('f=',f); {вивід результату}

Readln; {затримка екрану до натиснення клавіші вводу}

end.