лабораторная работа / лр_5

Операторы языка Турбо Паскаль

Оператор цикла

Оператор цикла FOR (цикл с параметром) дает возможность организовать цикл с параметром, то есть цикл с заранее известным количеством повторений.

Существует два варианта оператора:

1. for <имя> : = <нач, знач> to <кон знач> do <оператор>;

2. for <имя> :=<нач, знач> dowhto <кон знач> do <оператор>;

где

< имя>  имя параметра цикла (параметром цикла может быть только переменная порядкового типа);

< нач знач >  начальное значение параметра цикла;

< кон знач >  конечное значение параметра цикла;

< оператор >  один оператор Паскаля, либо составной оператор begin . . . end .

При записи оператора в виде for . . . to . . . do  начальное значение должно быть меньше конечного , а в виде for . . . downto . . . do  начальное значение должно быть больше конечного значения ( downto  уменьшать до ).

После выхода из цикла, параметр цикла становится неопределенным, за исключением случая, когда выход из цикла был осуществлен с помощью оператора GOTO.

Примеры использования оператора цикла for . . .

Приложение 3

Примеры использования оператора цикла for . . .

1. { Сложение чисел от 1 до N }

Program Summa ( input, output );

Var i, n, s : Integer;

Begin

Write ( ‘Введите n' ); Read (n);

S:=0; { Начальное значение суммы }

For i:=1 to n do s:= s+i; { Накапливание суммы }

Write ( ‘s=’ , s :10 );

End.

2. { Вывод на экран букв от ‘A’ до ‘Z’ и от ‘Z’ до ‘A’}

Program Alfavit ( input, output );

Var i : Char;

Begin

For i:=’A’ to ‘Z’ do Write ( i );

For i:=’Z’ Downto ‘A’ do Write ( i );

End.

3. Составим программу для вычисления факториала n!(n5).

В этом случае начальное значение произведения может быть равно 2 ( 2!=1*2=2 ).

Program Fact ( input, output );

Var n, p ,i : integer;

Begin

Read (n);

р:=1; { Начальное значение произведения }

For i:= 2 to n do p:=p*i; { Накапливание произведения }

Write ( ‘n!=’, p:10 ); End.