Case<вираз> of

< список_значень_1>: команда_1;

< список_значень_2>: команда_2;

…

< список_значень_n>: команда_n

else команда_n+1;

end;

До лабораторної роботи № 6:

Оголошення позначок в розділі описань:

label < список_позначок >;

Команда безумовного переходу:

goto < позначка >;

...

< позначка>: команда;

Команда циклу з передумовою:

while < логічний_вираз> do < команда_1>;

До лабораторної роботи № 7:

Команда циклу з післяумовою:

repeat < команди> until < логічний_вираз>;

До лабораторної роботи № 8:

Оператор циклу з параметром:

for < параметр>: = < вираз_1> to < вираз_2> do < команда_1>;

for < параметр>: = < вираз_1> downto < вираз_2> do < команда_1>;

Приклад розв¢ язку завдання 2:

{Програма вводить три символи, що являють собою запис числа в 16-ковій системі числення, переводить число в 10-кову систему числення і роздруковує його}:

program SS;

var S: char; I, M: integer;

begin

writeln (‘введіть послідовність із трьох символів 16-кової системи числення’);

m: =0;

for I: =1 to 3 do

begin read (S); write (S);

if (S> =’0’) and (S< =’9’) then M: =M*16+ord(S)-ord(‘0’)

else M: = M*16+ord(S)-ord(‘A’)+10

end;

writeln (‘число в 10-ковій системі числення =’, M: 5)

end.

До лабораторної роботи № 9, 10:

Описання масиву здійснюється в розділі описання:

var < назва_масиву>: array [1..n] of < назва_базового_типу>;

або

type < назва_типу> = array [1..n] of < назва_базового_типу>;

var < ім¢ я_масиву>: < назва_типу>;

Звернення до елемента масиву: < ім¢ я_масиву> [номер_елемента];

Щоб опрацювати всі елементи масиву використовують команди циклу for (чи while або repеat).

До лабораторної роботи № 11:

До лабораторної роботи № 12:

Описання множин:

type < назва_типу> = set of < базовий_тип>;

Значення змінній типу множина надають за допомогою команди присвоєння.

До лабораторної роботи № 13:

Описання запису у розділі описань:

type < назва_типу_запису> = record

< назва_поля_1>: < тип_поля_1>;

…;

< назва_поля_n>: < тип_поля_n>;

end;

Доступ до конкретного поля запису дає складене ім¢ я:

< назва_запису>.< назва_поля>

До лабораторної роботи № 14:

Опис процедури:

procedure < назва > (< список_формальних_параметрів >);

< розділи_описів_і_оголошень_процедури>;

Begin

< розділ_команд_процедури>

end;

Звернення до процедури:

< назва_процедури> (< список_фактичних_параметрів>);

Опис функції:

function < назва> ( < список_формальних_параметрів> ): < тип_функції>;

< розділи_описів_і_оголошень_функції>;

Begin

< розділ_команд_функції, де_ має_бути_така_команда-назва: =вираз>

end;

Виклик функції:

< назва> (< список_фактичних_параметрів>);

Формула трапецій:

Формула Сімпсона:

До лабораторної роботи № 15:

Файловий тип даних описують у розділі описів типів:

type < ім¢ я_типу> = file of < базовий тип>;

або

var < список_змінних>: file of < базовий_тип>;

Щоб знайти потрібний елемент файлу, необхідно послідовно переглянути всі попередні – послідовний доступ до файла.

Для текстових файлів: описання текстового файла в розділі описань:

var < список_імен_змінних>: text;

До лабораторної роботи № 16:

Задати графічний режим:

< розділи описів та оголошень конкретної програми>;

var driver, mode: integer; {для характеристик дисплея}

begin

driver: =detect; {detect – стандартна стала}

initgraph (driver, mode, ‘’); {задання графічного режиму}

if graphresult < > 0 then

begin

writeln (‘графічний режим задати не вдалося’);

halt {стоп}

end;

< текст конкретної програми з графічними командами>

end.

Кольори задаються числами або англійськими назвами: