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

3) неизвестный континент;
4) пробуем разбогатеть;
5) помогаем в строительстве пирамид;
6) завершение путешествия.

принять капли в течение 2:00 ч. Начинать надо с 1 капли, а через каждые 10 минут, на 1 больше. Сколько всего надо принять капель каждому туристу?

Program LIKU;
Var
s, i, n:integer;
begin
s:=0;
n:=12;
for i:=1 to n do
s:=s+i;
writeln ( ‘ Всего капель‘,s);
end.
 

(цикл - пока)
While <условие> do <тело цикла>;
Цикл с постусловием (цикл - до)
Repeat <тело цикла> until <условие>;

Цикл с параметром (цикл - для)
for i:=In to Ik do <тело цикла>;
for i:=In downto Ik do <тело цикла>;

Тело цикла с постусловием выполняется хотя бы один раз.

Пока условие – истинно, выполняется тело цикла. Тело цикла может быть простым или составным оператором.

Repeat <тело цикла> until <условие>;

через некоторое время вернемся и снимем вклад. Но это можно сделать когда вставим в программу верно написанный цикл.
(Компьютеры с четными номерами используют цикл while, нечетные - цикл repeat ... until)

Var
N: real; P: integer; L: integer;
i: integer;  // только для for
begin
Write('Введите сумму S: ');
ReadLn(N);
Write('Введите процент: ');
ReadLn(P);
Write('Введите количество лет: ');
ReadLn(L);

('Сумма равна ',N,'$');
Readln (p);
End.
 

while L>0 do
begin
N:=N * (P/100 + 1);
  L:=L-1;   
 end;

если в нижнем ряду - 3000 блоков, а в каждом последующем - на 60 блоков меньше?

Var
S,k:integer;
N:byte;
Begin
S:=0;
K:=3000;
N:=1;
While n<=5 do
Begin
S:=s+k;
K:=k-60;
N:=n+1;
End;

N:=1;
repeat

Begin
S:=s+k;
K:=k-60;
N:=n+1;
until n=6;
Writeln(‘Всего блоков= ‘,s);
Readln(s);
End.

цикла while, и с циклом repeat..until).

Стоимость перелета к первому континента - 400 евро, а к каждому последующему - на 100 евро больше, чем к предыдущему. Какую сумму нужно заплатить за весь перелет?