Тема: Алгоритм "цикл". Решение задач.
Циклический алгоритм с предусловием
While <логическое выражение> Do <тело цикла>
|
Циклический алгоритм с постусловием
| Repeat <тело цикла> Until <логическое выражение> |
Цикл с параметром
1) For I:=In to Ik Do <тело цикла>
2) For I:=In downto Ik Do <тело цикла> |
Задача 1. Вычислить сумму натурального ряда чисел от 1 до N.
procedure TForm1.Button1Click(Sender: TObject);
var
n,s,a: integer;
begin
s:=0 ;
a:=1;
n:=StrToInt ( Edit1.Text ) ;
for a:=1 to n do s:=s+a;
Label3.Caption:= 'Ответ: '+FloatToStr (s);
end;
Задача 2. Вычислить произведение натурального ряда чисел от 1 до N.
Примечание: s:=1.
Задача 3. Вычислить квадрат суммы натурального ряда чисел от 1 до N.
| 
