Презентация на тему Программирование циклов

те или иные действия. При этом бывают разные ситуации.

Например:
количество повторений известно до выполнения тела цикла;
до выполнения тела цикла количество повторений неизвестно;
тело цикла должно выполниться хотя бы один раз.

языке программирования Паскаль их три, в соответствии с пунктами,

описанными выше.
Самой универсальной и поэтому чаще других используемой конструкцией цикла является второй вариант (цикл while).

выражение> do begin группа операторов end;
В заголовке цикла находится

логическое выражение. Если оно истинно, то тело цикла выполняется, если ложно — то нет. Если тело цикла было выполнено, то ход программы снова возвращается в заголовок цикла. Условие выполнения тела снова проверяется (находится значение логического выражения).

выражение вернет true.
Поэтому очень важно в теле цикла

предусмотреть изменение переменной, фигурирующей в заголовке цикла, таким образом, чтобы когда-нибудь обязательно наступала ситуация false.
Иначе произойдет так называемое зацикливание.

integer;
begin
write('Количество знаков: '); readln(n);
i:=l;
while i

i:=i+1;
end;
end.

промежутка [1, m]
Решение:
Program Summa;
Var i, m: integer;

x, S: real;
Begin
write('Сколько чисел для сложения?');
readln(m); S:=l; i:=l;
while i<=m do begin S:=S+i; i:=i+l; end;
write('Cyммa равна ',s:5:2);
End.

клавиатуры
Решение:
Program Summa;
Var i, N : integer; x, S :

real;
Begin
write('Сколько чисел для сложения?'); readln(N);
S:=0; i:=1;
while i<=N do begin
write('Введите ‘, i ,’-e число’);
readln(x); S:=S+x; i:=i+l; end;
write('Сумма введенных чисел равна ',s:5:2);
End.

50
Решение:
var x, n: integer;
begin
write('n='); readln(n);
x:=l;
while sqr(x)

do begin
write(sqr(x),' '); x:=x+l
end; end.

integer; res: real; i: byte;
begin
write('Число'); readln(num);
write('Cтепень'); readln(deg);
res:=l; i:=0;
while

ires:=res*num; i:=i+1
end;
if deg<0 then
res:=l/res;
writeln(res:10:5);
end.

N и кончая числом М. Числа N и М

задает пользователь.
Вводятся 14 чисел. Определить, сколько среди них положительных (включая 0) и сколько отрицательных. (Числа вводятся в одну переменную в цикле.)

readln(n); write('m='); readln(m);
x:=n;
while x

then write(x,' ');
x:=x+l
end;
end.