Конструкция выбор

Ситуации, реализующие систему вложенных ветвлений, могут быть разрешены с использованием конструкции выбор.

Оператор выбора является структурированным и использует в своей записи операторы case,of,else,end и операторные скобки по необходимости.

В самом общем виде оператор выбора можно записать так:

Case порядковая переменнаяof

значение1: begin оператор1; оператор2; …; операторN; end;

значение2: begin оператор1; оператор2; …; операторN; end;

…

значениеM: begin оператор1; оператор2; …; операторN; end;

else begin оператор1; оператор2; …; операторN; end;
end;

Пример: ввести оценку студента в баллах и сообщить ее название.
Begin
Read(b)
Case b of

• 5: Write('отлично');
• 4: Write('хорошо');
• 3: Write('удовл.');
• 2: Write('неудовл.');

elseWrite('это не оценка');

end;
End.

Порядковая переменная, значение которой при выполнении программы определяет ветвь в операторе выбора, подлежащую выполнению, может принадлежать любому целочисленному типу. В случае, когда для нескольких значений выполняемые действия одинаковы, их можно указать один раз, а сами значения перечислить через запятую.

Пример: напечатать количество дней во введенном месяце:
Begin
Read(m);
Case m of

янв, мар, май, июл, авг, окт, дек: Write('31');

апр, июн, сен, ноя: Write('30');

фев: Write('28');

elseWrite('это не месяц');

end;
End.

Цикл с предусловием

Для реализации циклов с предусловием используется составной оператор, включающий оператор while,do, операторные скобки.

В общем виде цикл реализуется записью:

while<условие>do<действие>;

Если тело цикла содержит более одного действия, то необходимо использовать операторные скобки:

while <условие> do

begin
<оператор 1>;

<оператор 2>;

...

<оператор n>;

end;.

Цикл с постусловием

Для реализации цикла используется составной оператор, состоящий из операторов repeat и until.

В общем виде цикл записывается так:

repeat
<действие>;
until<условие>;

Пример: задано целое число. Вывести на печать все цифры введенного числа.

var a,b:longint; Begin read(a); repeat b:=a mod 10; writeln(b); a:=a div 10; until a=0; End.

Цикл с параметром

Для реализации в языке Pascal используется составной оператор, состоящий из операторов for,to,downto,do и при необходимости из операторных скобок. Переменная параметр обязательно объявляется в декларационной части программы и может принадлежать одному из порядковых типов.
Если при изменении переменной параметра необходимо использовать переход к следующему значению, то используется оператор to; если переход необходимо осуществить к предыдущему значению, то используется оператор downto. Тогда в общем виде цикл записывается так:

for I:=I₀to I_ndo

begin
<оператор 1>;

<оператор 2>;

...
<оператор n>;

end;