Циклические алгоритмы. Виды циклов и циклические команды на Паскале

условием

Условие выполнения цикла

Условие выхода из цикла

Повторяющаяся часть алгоритма называется ТЕЛОМ ЦИКЛА

с параметрами
Решение сложных задач

Практика

Практика

Практика

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

Условие

Тело цикла

Нет

Практика

Начало цикла

Конец цикла

ДА

While <условие> do

<тело цикла>

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

Условие

Тело цикла

Да

Нет

Практика

<тело цикла>

Until <условие>;

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

X:=A,В,C

Тело цикла

Практика

For X:=A to B do

Begin
<тело цикла>
End;

степень

ЗАДАЧА:

Словесный алгоритм:

Умножать число Х изначально равное 1 заданное число раз (Н) на 3.

начало

Н

B≤H

X:=1

X:=X*3

конец

Х

Ввод заданной степени

Начальные значения

«В» счетчик степени

В=В+1

Умножение на 3

Увеличение счетчика

Вывод получившегося
значения

Programm Stepen;
Var
H,B,X:integer;
Begin
Writeln(‘Степень?’);
Readln(H);
X:=1;
B:=1;
While B<=H do
Begin
X:=X*3;
B:=B+1;
End;
Writeln (‘Результат’,X);
End.

Нет

Теория

Pascal Блок-Схема Пояснения

да

B:=1

степень

ЗАДАЧА:

Словесный алгоритм:

Умножать число Х изначально равное 1 заданное число раз (Н) на 3.

начало

Н

B>=H

X:=1

X:=X*3

конец

Х

Ввод заданной степени

Начальные значения

«В» счетчик степени

В=В+1

Умножение на 3

Увеличение счетчика

Вывод получившегося
значения

Programm Stepen;
Var
H,B,X:integer;
Begin
Writeln(‘Степень?’);
Readln(H);
X:=1;
B:=0;
Repeat
X:=X*3;
B:=B+1;
Until B>=H;
Writeln (‘Результат’,X);
End.

Нет

Да

Теория

Pascal Блок-Схема Пояснения

B:=0

степень

ЗАДАЧА:

Словесный алгоритм:

Умножать число Х изначально равное 1 заданное число раз (Н) на 3.

начало

Н

X:=1

X:=X*3

конец

Х

Ввод заданной степени

Начальное значение Х=1

Параметры от 1 до Н

Умножение на 3

Вывод получившегося
значения

Programm Stepen;
Var
H,B,X:integer;
Begin
Writeln(‘Степень?’);
Readln(H);
X:=1;
For B:=1 to H do
Begin
X:=X*3;
End;
Writeln (‘Результат’,X);
End.

B:=1,H,1

Теория

Pascal Блок-Схема Пояснения

оптимальное решение.

день он увеличивал дневную норму на 10% нормы предыдущего дня.
Какой суммарный путь пробежит спортсмен за 7 дней.

Входные переменные:

Выходные переменные:

S – общий путь

d – количество дней
Sd – расстояние за текущий день

to 7 do
begin
Sd:=1.1*Sd;
S:=S+Sd;
end;
Writeln(‘S=‘,S);
End.

Program beg;
Var
S,Sd: real;
d:byte;
Begin
S:=10;
Sd:=10;
While d<7 do
begin
d:=d+1;
Sd:=1.1*Sd;
S:=S+Sd;
end;
Writeln(‘S=‘,S);
End.

Program beg;
Var
S,Sd: real;
d:byte;
Begin
S:=10;
Sd:=10;
Repeat
d:=d+1;
Sd:=1.1*Sd;
S:=S+Sd;
until (d=7);
Writeln(‘S=‘,S);
End.

Цикл «Для»

Цикл «Пока»

Цикл «До»