Лекция 03 Создание приложенийl (1540916)

Оператор выбора case

Case выражение of

Список значений 1: действие 1; Список значений 2: действие 2;

………………………..

Список значений n: действие n;

Else действие n+1;

End;

61

Оператор выбора case

Case X of

1:	a:=1;
2:	a:=2;
3, 4:	a:=3;
5, 8..100:	a:=4;
Else	a:=6;
End;

62

Оператор цикла For

For перемен. := нач. знач. To кон. знач.

Do

оператор;

For перемен. := нач. знач. downTo кон. знач. Do

оператор;

Оператор цикла For

var k, i: integer; begin

k:=1; for i:=1 to 5 do begin

k:=k*i; writeln(i, k); end;

end.

Определение числа шагов при нормальном завершении цикла

	N		кон.знач. нач.знач.		1
			шаг

65

Условный оператор цикла

while условие продолжения цикла do

тело цикла;

66

Пример реализации цикла while - do

var k, i: integer; begin

k:=1; I:=1; while i <= 5 do begin

k:=k*i; writeln(i, k); i:=i+1;

end;

end.

67

Условный оператор повторения

Repeat

тело цикла

Until условие выхода из цикла;

68

Пример реализации цикла repeat - until

var k, i: integer;

begin
k:=1; I:=1;	repeat

k:=k*i; writeln(i, k); i:=i+1;

until i > 5;

end.

69

Определение числа шагов при нормальном завершении цикла

	N		кон.знач. нач.знач.		1
			шаг

70