Программирование циклических алгоритмов

1.

ПРОГРАММИРОВАНИЕ
ЦИКЛИЧЕСКИХ
АЛГОРИТМОВ
НАЧАЛА ПРОГРАММИРОВАНИЯ

2.

Ключевые слова
• while ( цикл-ПОКА)
repeat (цикл-ДО)
• for (цикл с параметрами)

3.

Программирование циклов с заданным
условием продолжения работы
(цикл с предусловием)
Общий вид оператора:
нет
Условие
да
Тело цикла
While <условие> do
<оператор>;
или
While <условие> do
Begin
<оператор1>;
<оператор2>;
…
<операторN>;
End;
Здесь:
<условие>
логическое
выражение;
пока оно истинно, выполняется тело цикла;
<оператор> - простой или составной оператор,
с помощью которого записано тело цикла.

4.

Начало
Список данных
x, y, r, q - цел
x, y
r:=x
q:=0
r >=x
да
r:= r - y
q:= q +1
r, y
Конец
нет
program n_14;
var
x, y, q, r: integer;
begin
writeln ('Частное и остаток');
write ('Введите делимое x>>');
readln (x);
write ('Введите делитель y>>');
read (y);
r:=x;
q:=0;
while r>=x do
begin
r:=r - y;
q:=q+1;
end;
writeln ('Частное q=', q);
writeln ('Остаток r=', r);
readln;
end.

5.

Программирование циклов с заданным
условием окончания работы
(цикл с постусловием)
Общий вид оператора:
repeat
оператор1;
оператор2; …;
until <условие>;
Здесь:
<оператор1>; <оператор2>; … операторы,
образующие
тело
цикла;
<условие>
логическое
выражение; если оно ложно, то
выполняется тело цикла.
Тело цикла
да
Условие
нет

6.

program n_15;
var i: integer; x: real;
begin
writeln ('График тренировок');
i:=1;
x:=10;
repeat
i:=i+1;
x:=x+0.1*x;
until x>=25;
writeln ('Начиная с ', i, '-го дня
спортсмен будет пробегать 25 км');
readln;
end.
Начало
Список данных
i – цел
x- вещ
i := 1
x := 10
i := i +1
x := x +0,1x
x>= 25
да
i
нет
Конец

7.

Программирование циклов с заданным
числом повторений
Общий вид оператора:
For i:=in to (downto) ik do
оператор;
i
in, ik. шаг
For i:=in to (downto) ik do
Тело цикла
Begin
i – параметр цикла, переменная целого типа (integer);
оператор1;
in, ik – начальное и конечное значения переменной
оператор2;
цикла, переменные (выражения) целого типа (integer);
…
операторN;
to – шаг изменения переменной цикла +1
End
Downto - шаг изменения переменной цикла -1
тело цикла - простой или составной оператор
После
каждого
выполнения
тела
цикла
происходит
увеличение(уменьшение) на единицу параметра цикла; условие выхода из
цикла - превышение параметром конечного значения.

8.

program n_16;
var
i,n:integer;a,y:real;
begin
writeln ('Возведение в степень');
write ('Введите основание a>>');
readln (a);
write ('Введите показатель n>>');
readln (n);
y:=1;
for i:=1 to n do
y:=y*a;
writeln ('y=', y);
readln;
end.
Начало
Список данных
i, n – цел
a, y- вещ
a, n
y := 1
i: = 1, n
y := y * a
y
Конец

9.

Опорный конспект
В языке Паскаль имеются три вида операторов цикла:
for (цикл с параметром).
repeat
Число повторений
цикла известно
(цикл-ДО)
Число повторений
цикла неизвестно
while
(цикл-ПОКA)