Цикл с параметром

1.

Цикл с
параметром
Выполняется заранее определенное количество раз.

2.

For <параметр>:=нач_знач to кон_знач do
Begin <операторы>; end;
Для параметра от нач_знач до кон_знач с шагом 1
выполнять операторы.
For <параметр>:=нач_знач downto кон_знач do
Begin <операторы>; end;
Для параметра от нач_знач до кон_знач с шагом -1
выполнять операторы.

3.

Правила пользования оператором цикла:
Рассмотреть
выделить
в
повторяющиеся
них
равномерно
действия
и
изменяющуюся
величину (параметр);
Дать параметру имя;
Определить
для
параметра
конечное значения и шаг изменения.
начальное
и

4.

Количество выполнений тела цикла определяется
до первого выполнения тела цикла, поэтому, если в
выражении N используются переменные, которые
изменяются в теле цикла, это никак не повлияет на
количество выполнений тела цикла. Например, в
следующей последовательности операторов:
n := 10;
For i := 1 to n do
Begin
Write (i);
n := 100;
End;
тело цикла будет выполняться 10 раз, хотя уже
после первого выполнения тела цикла конечное
значение параметра цикла станет равным 100.

5.

Цикл под номером 1 будет выполняться для счетчика,
последовательно принимающего значения –10, –9, –8, –7,
–6, –5, –4,то есть 7 раз.
Цикл под номером 2 не будет выполняться ни разу, так как
начальное значение счетчика больше конечного.
Цикл под номером 3 будет выполняться 1 раз для
счетчика, равного 3.

6.

Примеры: вывести на экран 100 первых чисел
Program S1;
var x: integer;
Begin
For x:=1 to 100 do writeln(x);
End.

7.

Пример: вывести на экран 100 первых нечетных цифр
Program S2;
var x: integer;
Begin
For x:=1 to 201 do
If x mod 2 = 1 then writeln(x);
End.

8.

Примеры: вывести на экран значение y2 (y=1,2,…,10)
в возрастающем и убывающем порядке
Program KWADRAT;
Uses crt;
Var kw, y: integer;
Begin
Clrscr;
For y:=1 to 10 do
Begin
kw:= sqr(y); Writeln (y,kw);
End;
For y:=10 downto 1 do
Begin
kw:=sqr(y); Writeln (y,kw);
End;
End.

9.

Примеры: вывести на экран значение yn, y и n –
вводится с клавиатуры
Program STEPEN;
Uses crt;
Var st, y: real; i,n: integer;
Begin
Clrscr;
writeln (‘введите число’); readln (y);
writeln (‘введите целый показатель степени’); readln (n);
st:=1;
For i:=1 to n do
st:=st*y;
Writeln (‘степень – ‘, st);
End.

10.

Вычислить сумму n чисел, вводимых с клавиатуры
program Summa;
uses crt;
Var i, n :integer; x, sum : real;
begin
clrscr;
writeln (‘введите n’); readln (n);
sum:=0;
for i:=1 to n do
begin
write (‘введите x’); readln (x);
sum:=sum+ x;
end;
writeln (‘sum=’, sum);
end.

11.

Построить таблицу значений функции,
интервале [-10 ; 0] с шагом Δх = 1
program funk;
uses crt;
Var y: real; x: integer;
begin
clrscr;
For x:=-10 to 0 do
begin
y:= (x+1)/(1-x);
writeln ('x= ',x,' y= ',y);
end;
end.
y
x 1
(1 x )
на