Теоретичні відомості

Команда циклу з параметром (For). Є два різновиди команди For.

Перший:

For<параметр>:=<вираз 1>To <вираз 2>Do<команда 1>;

Тут параметр – це змінна цілого, символьного, логічного або перерахованого типу, а вирази1 і 2 задають початкове значення.

Цей цикл треба розуміти так: «зроби команду 1 стільки разів, на скільки одиниць відрізняється вираз 2 від виразу 1. Після кожного проходження циклу параметр збільшується на одиницю.

Приклад:

Нехай S=0. Після виконання команди циклу

For i:=4 to 6 do begin s:=s+i; z:=2*i end;

Змінна sнабуде значення 0+4+5+6=15, а змінна z – 12.

Другий:

For<параметр>:=<вираз 1>DownTo <вираз 2>Do<команда 1>;

Відрізняється від попереднього тим, щопісля кожного проходження циклу параметр зменшується на одиницю.

Приклад 1:

Дано натуральне число n. Вичислити n!

Знаємо, що n! – це добуток всіх натуральних чисел від1 до n.

В ході циклу з параметром параметр постійно збільшується на 1, тому можна для перших двох записати формулу: N!:= N!*(і+1);

З кожним кроком значення і буде збільшуватись на 1, а N! в і разів, тому останнім числом параметра повинно бути n-1, щоб не вийти за межі значення n.

А програма буде такою:

Uses crt;

Var і, n, n1:integer;

Begin

Clrscr;

Writeln(‘введіть натуральне число’);

Readln(n);

For i:=1 to n-1 do n1:=n1*i;

Writeln(n,’!=’,n1);

Readln;

End.

Приклад 2: Вивести на екран в ряд натуральні числа від х до 1.

Так, як в циклі з параметром downto значення параметра зменшується на 1, то при кожному кроці будемо виводити значення параметра на екран.

Uses crt;

Var і, х:integer;

Begin

Clrscr;

Writeln(‘введіть натуральне число’);

Readln(х);

For i:=х downto 1 do Write (і,’ ’);

Readln;

End.