type);
). Опис користувача типів;
). Опис констант (const <опис констант>);
). Блок опису змінних (var <список змінних>);
). Блок опису міток (label <список міток>);
). Блок опису процедур і функцій користувача. p align="justify"> Будь-якого з цих блоків може не бути (вони не обов'язкові).
Програмні одиниці:
(Опис модуля)
Unit Unit 1;
InterfaceWindows, Massages, SysUnits, Classes, Forms; 1 = class (TForm) 1: TButton; 1: TLabel; Button 1 click (sender, TObject); 1: TForm 1;, y: integer ;: string; = 100;
(1) ABC;: array [1 ... n] of byte; x: = 1 to n do [x]: = x;
end;
(Тіло модуля)
ImplementationTForm 1. Button 1. Click (Sender: TObject); 1. Caption: = Hello! ;;
end;
END.
Оператори мови OPascal
). Присвоєння (: =): <змінна>: = <вираз>;
). Порожній оператор (;): (ставиться після виклику кожного оператора або процедури функції);
Складовою оператор - послідовність довільних операторів програми, укладена в операторні дужки:
Begin
...
End
OPascal НЕ накладає обмежень на характер операторів входять в складений оператор. Усередині складеного оператора може знаходиться 1 або декілька складових операторів. Допускається довільна глибина вкладеності складових операторів. p align="justify"> Умовний оператор:
If <умова> then <оператор 1> [else <оператор 2>] ...
If x> 0 then y: = 3
x: = ABS (x);
y: = SQR (x);.
Оператори повторення
Цикл з лічильником:
For <параметр> = <початкове значення> to/down to <кінцеве значення> do <оператор>;
У операторі For на кожному кроці циклу відбувається збільшення/зменшення (за замовчуванням) параметра циклу на 1. Параметром циклу може бути тільки змінна порядкового типу. p align="justify"> Речові типи мають кінцеве число значень, яке визначається форматом внутрішнього подання числа. p align="justify"> Будь-якому з порядкових типів застосовна функція:
ORD (x) - яка повертає порядковий номер значення;
PRED (x) - повертає попереднє значення;
SUCC (x) - повертає таке значення.
Оператор циклу з передумовою.
While <умова> do <оператор>;
Оператор виконується до тих пір, поки умова істинно.
Procedure ABC, n: integer;
n: = 100;
i: = 0; i <= n do begin: = i +2;. (. Nes. Add (IntToStr (i)));;
End.
Програма виводить всі парні числа від 0 до 100.
Оператор циклу з пост умовою.
Repeat
<список операторів>
Until <умова>;
Список операторів виконується поки умова брехливо.
Var, i, n: integer;: = 0;: = 100;: = 0;: = i + 1;: = s + 1; i = n;. Lines. Add ( s = + IntToSrt (s));;
Програма обчислює суму чисел натурального ряду до (n).
Оператор вибору.
Case <ключ вибору> of
<список вибору>;
[else <оператор>];
End;
Цей оператор дозволяє вибрати одне з декількох можливих продовжень програми.
Параметром, за яким здійснюється вибір, служить ключ вибору. (Це вираз будь-якого порядкового типу). p align="justify"> Список вибору - одна або більше конструкцій види:
<константа вибору 1>: <оператор 1>;
.
.
<константа вибору N>: <оператор N>;
Константа вибору повинна бути того ж типу, що й ключ вибору. p align="justify"> Оператор Case працює в наступному порядку:
В· Обчислюється вираз (ключ вибору);
В· У послідовності операторів знаходиться такий, якому передує...
