Приклад. Обчислити суму чисел від 1 до 100

Обчислити суму чисел від 1 до 100. Для цього, розмістивши на формі кнопку, створимо такий обробник:

procedure TForm1.Button1Click (Sender: TObject);

var

i, sum: integer;

begin

sum: = 0;

for i: = 1 to 100 do sum: = sum + i;

ShowMessage (IntToStr (Sum));

end;

У мові Delphi є інша форма оператора циклу:

for <змінна-лічильник>:= <початкове значення> downto <кінцеве значення> do <повторювані оператори>;

Значення лічильника в цьому випадку буде зменшуватися на одиницю.

Наприклад, якщо ми у попередньому прикладі цикл for запишемо у вигляді

for i:= 100 downto 1 do sum:= sum + i;

то результат вийде такий самий.

Оператор for можна подати у вигляді блок-схеми (Рис.3.).

Рис.4. Алгоритм виконання оператора for