Презентация, доклад по информатике на тему Операторы цикла с условием

число повторений заранее неизвестно, а определяется по ходу цикла.

Repeat
оператор 1;
оператор 2;
…………
оператор n
Until условие;

Цикл завершается тогда, когда после выполнения заданной последовательности операторов условие станет истинно.

3, 5, 8, 13, 21…

Program fib;
Var a, b, c, n, i: integer;
Begin
writeln ('введите число n');
readln (n);
a:=1; b:=1;
writeln (a, b);
i:=3;
repeat
c:=a + b;
writeln (c);
a:=b; b:=c;
i:=i+1
until i>n;
End.

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

да

sum;
Var s, i: integer;
Begin
s:=0;
i:=101;
while i<=301 do
begin
s:=s+i;
i:=i+2
end;
writeln (‘сумма нечетных чисел =', s);
End.

B.

program nod;
var a, b: integer;
begin
write (' введите два натуральных числа');
readln (a, b);
while a<>b do
if a>b then a: = a - b else b: = b - a;
writeln (‘НОД =', a);
end.

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

с использованием цикла До.
Осёл может перенести груз, равный половине своего веса. Вес осла – m кг. В первый день на осла нагрузили a кг, а каждый следующий день увеличивали вес груза на 1 кг. Сколько дней сможет работать осёл, и какой суммарный груз он перевезёт за это время?