Оператор цикла со счетчиком

В циклах со счетчиком выполнение тела цикла должно повторяться заранее определенное число раз. Хотя такой цикл можно организовать с помощью оператора цикла с постусловием или предусловием (они универсальны), в языке Турбо-Паскаль имеется специальная конструкция для организации циклов со счетчиком. Синтаксис оператора цикла со счетчиком следующий:

for <п.ц.>:=<н.з> to <к.з.> do <оператор>;

Здесь for, to, do – ключевые слова (перев. с англ. для, к, выполнить соответственно);

<п.ц.> – переменная цикла, которая может быть только порядкового типа;

<н.ц.> – начальное значение, выражение такого же порядкового типа, как и переменная цикла;

<к.з.> – конечное значение, выражение такого же порядкового типа, как и переменная цикла;

<оператор> – любой оператор Турбо-Паскаля, в том числе и составной.

Оператор работает следующим образом: сначала вычисляется выражение, соответствующее начальному значению, и присваивается переменной цикла, потом проверяется условие <п.ц> <= <к.з.> и, если получается истинное значение, то выполняется оператор, являющийся телом цикла, а затем переменная цикла увеличивается на 1 и снова проверяется условие. Если значение выражения ложно, то осуществляется выход из цикла.

Если начальное значение переменной цикла больше конечного значения, то операторы тела цикла не выполняются. Можно сказать, что оператор цикла со счетчиком – это оператор цикла с предусловием. Таким образом, следующий оператор не приведет к выполнению каких-либо операций:

for i:=1 to 0 do writeln(i);

Следующий оператор распечатает целые числа от 1 до 10:

for i:=1 to 10 do writeln(i);

Если нужно выполнить несколько операторов в теле цикла, то пользуются составным оператором:

for i:=5 to 10 do

begin

k:=i*i;

writeln('k=',k);

end;

Оператор цикла со счетчиком имеет вторую форму представления, которая позволяет изменять переменную цикла с шагом минус один. В этом случае синтаксис оператора следующий:

for <п.ц.>:=<н.з.> downto <к.з.> do <оператор>;

Следующий оператор распечатает целые числа от -10 до 10:

for i:= 10 downto -10 do writeln(i);

Пример полной программы рассмотрим на решении задачи нахождения суммы n первых членов ряда:

Схема алгоритма приведена на рис.13, а программа представлена в примере pr13.

Рис. 13

program pr13; var i,n:integer; sum,{сумма ряда} k:real;{очеpедной член pяда} begin sum:=0; i:=1; writeln('Введите число членов pяда:'); read(n); k:=1; for i:=1 to n do begin k:=k*10/i; sum:=sum+k; end; writeln ('Сумма pяда pавна ',sum); end.