2. Оператор Case.

Оператор Case позволяет выбрать один из возможных направлений программы. Общий вид оператора:

case <ключ выбоа> of

<значение1> : <оператор1>;

<значение2> : <оператор2>;

<набор значений3> : <оператор3>;

… … …

else

<альтернативный оператор>

end.

Пример 8. Составить программу, которая по введенному номеру месяца определяет время года.

N – номер месяца. Зима – 12, 1, 2. Весна – 3, 4, 5 и т.д.

Program primer;

Var n: integer;

Begin

Write(‘n=’);

Readln(n);

Case n of

12, 1, 2 : writeln(‘зима’);

3, 4, 5 : writeln(‘весна’);

6, 7, 8 : writeln(‘лето’);

9, 10, 11 : writeln(‘осень);

else

writeln(‘Ошибка’);

end;

End.

3. Команда безусловного перехода goto

Общий вид: GOTO<метка>

Команда GOTO позволяет перейти в нужную часть программы без проверки каких-либо условий.

Метка – произвольный идентификатор (имя), который должен быть описан в разделе Label.

Program primer;

Label m;

Var x, y, r: real;

op: char;

Begin

Write(‘x, y=’); Readln(x, y);

Write(‘op=’); Readln(op);

If (op=’/’) and (y=0) then

begin

Writeln(‘делить на 0 нельзя’);

Goto m;

end;

Case op of

‘+’ : r:=x+y;

‘-’ : r:=x-y;

‘*’ : r:=x*y;

‘/’ : r:=x/y;

else

writeln(‘Ошибка’);

end;

m: Readln;

End.

операторы:

Оператор	Назначение	Синтаксис
if … then…	проверка условий	if <условие> then <оператор1> else <оператор2> if <условие> then <оператор>
case	выбор	case <переменная> of <константа 1>: <операторы 1>; … < константа n>: <операторы n> [else <операторы>] end;

Циклы Алгоритмы с циклами

Цикл – многократное повторение одних и тех же действий.

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

Такой цикл называют «пока». Механизм его работы: пока условие истинно, повторять…

Пример. Вывести все «-» члены арифметической прогрессии -11; -7…

Пусть a – очередной член прогрессии.

a=a₁+4 – следующий член прогрессии.

Пока a<0, повторять a=a₁+4.

Цикл с предусловием может не выполниться ни разу, если условие сразу оказалось ложным.

Пример. Найти сумму первых десяти натуральных чисел.

S=1+2+…+10

S – сумма

а – очередное слагаемое.

S:=S+a a:=a+1

Выполнять, пока a<=10

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

Механизм работы: повторять, пока условие не станет истинным.

Этот цикл всегда выполняется хотя бы 1 раз.

Пример. Найти сумму положительных членов арифметической прогрессии: 17; 11 …

S=a+S a:=a-6

тело цикла повторять до тех пор, пока не выполнится условие a<=0

П ример. Вычислить n!

F=F*k k=k+1

тело цикла повторять до тех пор, пока не выполнится условие k>N