Циклы с постусловием

Сентябрь 3, 2022

Главная
Алгебра
Циклы с постусловием

Содержание

2. Синтаксис оператора REPEAT UNTIL Тело цикла – произвольная последовательность операторов Условие – выражение логического типа
3. Работа оператора Операторы тела цикла выполняются хотя бы один раз, после чего выполняется условие, если оно
4. Пример: Сосчитать сумму чисел от 1 до N. Program sum; Var i,n,s:integer; Begin Writeln(‘Введите n’); Read(n);
5. ПРИМЕР Нахождение наибольшего общего делителя двух натуральных чисел.
6. Для решения этой задачи используется алгоритм Евклида Большее из чисел уменьшается на величину меньшего до тех
7. Program NOD; Var a,b:integer; Begin Writeln(‘Введите a, b’); Read(a,b); Repeat If a>b then a:=a-b; If b>a
9. Скачать презентацию

Слайд 2

Синтаксис оператора
REPEAT <тело цикла>
UNTIL <условие>
Тело цикла – произвольная последовательность операторов
Условие

– выражение логического типа

Слайд 3

Работа оператора
Операторы тела цикла выполняются хотя бы один раз, после чего

выполняется условие, если оно ложно, операторы тела цикла выполняются вновь, иначе оператор REPEAT прекращает свою работу.

Слайд 4

Пример: Сосчитать сумму чисел от 1 до N.
Program sum;
Var i,n,s:integer;
Begin
Writeln(‘Введите n’);
Read(n);
S:=0;

i:=1;
Repeat
s:=s+i;
i:=i+1
Until i>n;
Writeln(‘Сумма чисел=’,S);
End.

Слайд 5

ПРИМЕР
Нахождение наибольшего общего делителя двух натуральных чисел.

Слайд 6

Для решения этой задачи используется алгоритм Евклида
Большее из чисел уменьшается на

величину меньшего до тех пор, пока оба числа не станут равны.
Например:

Слайд 7

Program NOD;
Var a,b:integer;
Begin
Writeln(‘Введите a, b’);
Read(a,b);
Repeat
If a>b then a:=a-b;
If b>a then b:=b-a
Until

a=b;
Writeln(‘НОД=’,a);
End.