Презентация, доклад Циклы в Pascal

Шагнуть к первой доске.
Покрасить одну доску
Обмакнуть кисть в краску.
Шагнуть к следующей доске.
Покрасить одну доску …………………
Если мы знаем сколько досок, например, 15, то в алгоритме будут 15 раз повторены строки:
Пока забор не кончится, повторять
Обмакнуть кисть в краску.
Шагнуть к следующей доске.
Покрасить одну доску.
Конец повтора.

при которой одна и та же последовательность действий совершается несколько раз (или ни разу) до тех пор, пока выполняется некоторое условие.

нц

кц

Команды
цикла

WHILE условие DO
BEGIN
команды цикла
END;

«Сначала проверь, потом делай».

то выполняются команды цикла. Команды цикла должны заканчиваться признаком конца цикла. Встречая команду «конец цикла» машина возвращается на проверку условия. Если условие не выполнено, то машина переходит на выполнение команды, записанной после команды «конец» цикла.
Если условие сразу не выполнимо, то и команды цикла не будут выполняться ни разу.
Если условие всегда выполнимо, то произойдет зацикливание.
CTRL +BREAK прерывание программы на ЭВМ.

до условия

Команды
цикла

REPEAT
команда 1;
команда 2;
команда 3;
…………..
команда N;
UNTIL условие выхода из цикла;

«Сначала сделай, потом проверь».

условие. Если условие выполнено, то исполнитель переходит к следующей команде.
Если условие не выполнено, то исполнитель возвращается на выполнение команд цикла.
ПРИМЕЧАНИЕ.
Команды цикла в команде «до» выполняются, по крайней мере, один раз, так как оценка условия делается после команд цикла. В тоже время в цикле «пока» тело цикла может пропускаться , если условие ложно уже в начале.
В команде «пока» пишется условие вхождения в цикл, а в команде «до» условие выхода из цикла.

до M
нц

кц

Команды
цикла

For I:=N to M do
Begin
команда 1;
команда 2;
…………..
команда N;
End;

«Делай ровно столько, сколько задано».

значение N. Затем исполнитель проверяет условие I<=M, если оно выполнено, то выполняется серия команд при I:=N . Встречая команду «конец цикла» машина увеличивает I на единицу.и возвращается на проверку условия I<=M. Если условие не выполнено,то исполнитель переходит переходит на выполнение следующей за концом цикла команды.
Можно уменьшать переменную индекс, если заменить ключевое слово TO на DOWNTO.

числа 21 и 12.

Из большего числа вычитаем меньшее и результат записываем в колонку с большим числом. Меньшее число переписываем. Эти действия повторяем до тех пор пока результаты не сравняются.

Если числа не имеют общих делителей, то результат будет равен единице, так как единица является общим делителем всех чисел.

если M>N
то M=M-N
иначе N=N-M
все
кц

Program task;
……………….………….
BEGIN
…………………………..
writeln (‘Введи 2 числа’);
readln(a,b);
n:=a; m:=b;
while m<>n do
begin
if m>n then m:=m-n
else n:=n-m;
end;
writeln (‘НОД ‘,a,’и’,b,’равен’,m);
readln;
END.

дробь(команда «пока»).
(Использовать алгоритм Евклида).

программы к задачам «алгоритм Евклида» и «сокращение дроби» с использованием команды «повторять». Учить программу «Алгоритм Евклида».

Желаем успеха!