Презентация, доклад на тему Тема урока: Программирование циклических алгоритмов. 9 класс.

Условие цикла

Циклы

Когда заранее неизвестно, сколько раз придётся повторить одно и то же действие, такие циклы называют неопределёнными.

Сумма денег S положена в банк под процент Т. Надо установить, во что превратиться эта сумма через 1, 2, 3, 4 и 5 лет.

Сумма денег S положена в банк под процент Т, но нужно узнать, через сколько лет эта сумма удвоится.

while <условие> do <оператор>;
Здесь while (пока), do (делать) - зарезервированные слова

Program SUM_1; Const n=100; Var i: Integer; {Переменная-контейнер для всех чисел} s: Real; Begin
S:=0; i:=l;
While i<=n do {заголовок цикла}
begin {начало цикла} S:=s + i; i:= i + 1 {увеличение значения i} end; {конец цикла}
Writeln ('сумма', n, 'элементов = ', s:10:5); End.

Repeat
<оператор1>; <оператор2>; Until <условие>;
Здесь Repeat (повторять до тех пор), Until (пока не будет выполнено условие) - зарезервированные слова.

Program SUM_2; Var i: Integer;
s: Real; Begin
s:=0; i:=l;
Repeat {начало цикла}
s:=s + i; i:=i + 1;
Until i>100; {конец цикла}
Writeln ('сумма 100-а элементов = ' , s:10:5) ; End.

Как изменится программа если i=2?

Как изменится программа если к I мы прибавим 2?

For <параметр> := <начальное значение> То <конечное значение> Do <оператор>;
Здесь For (для), То (до), Do (выполнить) -зарезервированные слова. Служебное слово То указывает направление изменения параметра увеличение на 1. Если необходимо, чтобы параметр уменьшался на 1, то используют слово Downto.

Условие цикла

Program SUM_3; Var i:integer; s:real;
Begin
S : = 0 ;

for i:=l to 100 do S:=s + i;
WriteLn (‘сумма 100-а элементов =', s:10:5); End.

Ответ 3

2

Program Ugadaika; Var x,y,n: word;{целые положительные} Begin
randomize; {инициализация датчика случайных чисел}
х:=random(100);
n:=0;
repeat
writeln ('Введите число');
read(у);
n: =n+1 ;
if x>y then writeln(‘больше’);
if x writeln(‘Вы угадали число за ‘, n , ‘ попыток') ; End.

2

2

Задание (высокий уровень)