Презентация "Операторы повторений в Паскале. Циклы с постусловием"
презентация к уроку по информатике и икт (9 класс) на тему

Циклы с постусловием
Синтаксис оператора
REPEAT <тело цикла> UNTIL <условие>Тело цикла – произвольная последовательность операторовУсловие – выражение логического типа
Работа оператора
Операторы тела цикла выполняются хотя бы один раз, после чего выполняется условие, если оно ложно, операторы тела цикла выполняются вновь, иначе оператор REPEAT прекращает свою работу.
Пример: Сосчитать сумму чисел от 1 до N.
Program sum;Var i,n,s:integer;BeginWriteln(‘Введите n’);Read(n);S:=0; i:=1;Repeat s:=s+i; i:=i+1Until i>n;Writeln(‘Сумма чисел=’,S);End.
ПРИМЕР
Нахождение наибольшего общего делителя двух натуральных чисел.
Для решения этой задачи используется алгоритм Евклида
Большее из чисел уменьшается на величину меньшего до тех пор, пока оба числа не станут равны.Например:
Исходные данные
Первый шаг
Второй шаг
Третий шаг
НОД (А,В)=5
А=25
А=10
А=10
А=5
В=15
В=15
В=5
В=5
Program NOD;Var a,b:integer;BeginWriteln(‘Введите a, b’);Read(a,b);RepeatIf a>b then a:=a-b;If b>a then b:=b-aUntil a=b;Writeln(‘НОД=’,a);End.
Самостоятельные задания
Вычислить сумму квадратов вводимых чисел. Числа вводятся, пока не будет нажат «0». Вычислить сумму n слагаемых вида (i+1)/(i+2).