Презентация на тему Циклические операции

по некоторому условию.
Для организации цикла можно использовать конструкцию

ветвления c с безусловным переходом GoTo, но лучше использовать специальные операторы цикла.
…
X:=0;
A1: x:=x+1;
Writeln (x);
If x<10 then goto a1;

цикла>
да
нет

Условие
Тело цикла
нет
да

Ik Do 2) For I:= In

to Ik Downto <Тело цикла>

до N. S= 1+2+3+4+… +N На примере этой задачи демонстрируется

использование всех трех типов циклов.

Write (‘N=‘); Read (N);
a:=1;

S:=0;
While a<=N Do
Begin
S:=S+a;
a:=a+1
End;
WriteLn (‘Pervaya summa=‘ , S);

Цикл с предусловием

Repeat

S:=S+a;
a:=a+1
Until a>N;
WriteLn (‘Vtoraya summa=‘ , S) ;

S:=0;
For a:=1 To N Do
S:=S+a;
WriteLn (‘Tretiya summa=’ , S)
End.

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

Цикл с параметром

задач?
За сколько лет можно накопить сумму 700 тыс. руб

на покупку автомобиля, если каждый месяц вносить в банк 30 тыс руб, а банк выплачивает 12% годовых?
Найти значение 115-ого члена прогрессии 100, 95, 90, 85,…
Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал норму на 10% нормы предыдущего дня. На какой день тренировок он будет пробегать 20 км?
200-ый член арифметической прогрессии с разностью 2 равен 2000. Найти значение 10-го члена.
Напечатать столбик таблицы умножения чисел от 1 до 9 на 13.