Writeln(s)

Begin

END.

Readln

BEGIN

End.

End

Begin

End.

Begin

End.

Readln

Begin

Goto metka

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

Лекция № 4

Выполняя программу печати чисел 3 5 7 9 оператор repeat выполнил цикл 4 раза. Тоже самое сделал и оператор while. Таким образом, когда мы пишем операторы repeat и while, мы не задумываемся над тем сколько раз будет выполняться цикл. Но на практике существует много задач, для решения которых цикл нужно выполнять именно определенное количество раз. Для этого очень удобен оператор цикла FOR.

Задача: Двести раз напечатать слово ФУТБОЛ.

Рассмотрим фрагмент программы, которая составлена с помощью оператора GOTO:

metka: writeln(‘футбол’);

Но здесь цикл будет повторяться бесконечно, а нам надо только 200 раз. Мы уже знаем, чтобы выйти из цикла необходимо включить оператор goto в состав оператора if. Кроме этого для данной задачи нужна переменная, меняющая свое значение от одного выполнения цикла к следующему. Переменная, значение которой в каждый момент выполнения программы говорит о том, в который раз выполняется цикл, называется счетчиком циклов.

Придумаем этой величине какое-нибудь имя, например: i. Счетчик циклов обязательно надо отразить в разделе описания данных. К тому же вначале программы ему необходимо присвоить исходное значение.

Напишем нашу программу полностью:

Label metka;

var i:integer;

i:=1;

metka: writeln(‘футбол’);

i:=i+1 { увеличение на 1}

if i<=200 then goto metka;

А вот так будет выглядеть наша программа с использованием оператора цикла FOR.

Var i:integer;

For i:=1 to 200 do

Writeln (‘футбол’)

Это означает: для переменной по имени i, изменяющейся от 1 до 200, делай оператор, стоящий после слова do.

Синтаксис оператора FOR(с увеличением переменной цикла)

FOR имя:= выражение1 TO выражение 2 DO оператор

Усложним немного нашу задачу:

Например: нужно напечатать такую информацию:

10футбол 11футбол 12футбол………150футбол

Вот программа:

Var i:integer;

For i:=1 to 150 do

Begin write(i);

Write (‘футбол ’)

Есть задачи, в которых переменную цикла нужно не увеличивать, а уменьшать. В таком случае используется другая синтаксическая схема оператора FOR. Например, нужно напечатать такую информацию:

100футбол 99футбол 98футбол………40футбол

Здесь фрагмент программы будет выглядеть так:

For i:=100 downto 40 do (вниз до)

Синтаксис оператора FOR(с уменьшением переменной цикла)

FOR имя:= выражение1 DOWNTO выражение 2 DO оператор

Рассмотрим еще одну типичную циклическую программу с пользованием оператора FOR:

Задача: Во дворце N залов. Известны длина, ширина и высота каждого зала. Вычислить площадь пола и объем каждого зала.

Программа:

Var i, dl, sh, vis, F, V, N: integer;

Writeln(‘Введите число залов’);

Readln(N);

For i:=1 to N do Begin

Writeln(‘Введите длину, ширину, высоту зала’);

Readln(dl, sh, vis);

F:=dl*sh;

V:=S*vis;

Writeln(F,’ ‘,V)

End; {for}

Каждому программисту известны такие понятия, как «сумматор», «вложенные циклы», «счетчик». Без них не обходится ни одна реальная программа.

Счетчик – это переменная величина, в которой вы что-то подсчитываете. Счетчик нужен, к примеру, для подсчета количества жизней главного персонажа компьютерной игры. Не надо путать понятием «счетчик» со счетчиком цикла.

Рассмотрим задачу с применением и того и другого счетчиков.

Задача: В компьютер вводятся ровно 200 чисел. Компьютер должен подсчитать и один раз напечатать, сколько среди них положительных.

Var c,i:integer;

a:real;

c:=0;

for i:=1 to 200 do begin

readln(a);

if a>0 then c:=c+1

end; {for}

Дата добавления: 2014-01-14