Циклы на паскаль В языке Паскаль
существует три различных
оператора с помощью
которых можно запрограммировать повторяющиеся
фрагменты программы (три оператора
цикла):
- счетный цикл FOR;
- цикл WHILE с
предусловием;
- цикл REPEAT...UNTIL c постусловием.
Задача:
Найти сумму всех натуральных чисел от 1 до n.
Рассмотрим примеры использования циклов:
I цикл FOR .
Переменная внутри цикла изменяется
автоматически от k до n (n>k) с шагом 1:
Формат записи цикла: for i:=k to n do
или
от n до k (n>k) с шагом -1:
Формат записи цикла: for i:=n dawnto k do
Если в цикле должны выполняться несколько
операторов, то используем операторные скобки: begin …. end;
Цикл FOR удобно использовать тогда,
когда точно известно количество повторений. var
i,n,s:integer;
Begin
writeln(' введите натуральное n'); readln(n);
s:=0;
for
i:=1 to n do
s:=s+i;
writeln('сумма от 1 до',n,'
= ',s);
End.
В данном цикле
переменная i автоматически изменяется от 1 до n с шагом 1. Поэтому к переменной s
прибавляется i вначале равная 1, потом 2, потом 3, и т.д. до n, соответственно переменная s принимает
значении 1, 3, 6, 10, 15 .
II цикл WHILE
var i,n,s:integer;
Begin
writeln('введите натуральное n'); readln(n);
s:=0; i: =1;
while i<=n do
begin
s:=s+i;
i:=i+1;
end;
writeln('сумма от 1 до',n,'=',s);
End.
Цикл WHILE будет
выполняться до тех пор, пока выполняется условие i<=n. Причем переменную i изменяем внутри цикла.
III цикл REPEAT
var i,n,s:integer;
Begin
writeln(' введите натуральное n'); readln(n);
s:=0; i:=1;
repeat
begin
s:=s+i;
i:=i+1;
end;
until i>n;
writeln('сумма от 1 до',n,' = ',s);
End.
Цикл REPEAT . . . UNTIL
будет
выполняться до тех пор, пока не выполниться
условие i>n.
| 
