Курсовая работа: Языки и технология программирования

<параметр> := Pred(<параметр>);

В случае nz > kz в первой форме оператора или nz < kz во второй его форме ошибки не происходит, но цикл не выполняется ни разу. После завершения работы цикла значение параметра остается равным kz.

РЕКОМЕНДАЦИИ: Использовать цикл for при заранее известном количестве повторений. Не изменять параметр в теле цикла. При использовании кратных (вложенных) циклов применять разные переменные в качестве параметров. Определять до цикла значения всех используемых в нем переменных. Не ставить точку с запятой после do.

ПРИМЕР: Вводятся 10 чисел, посчитать среди них количество положительных.

program cycle_for1;

var i,kn:byte; x:real;

begin

kn:=0;

for i:=1 to 10 do

begin

writeln('Введите ',i,' число: ');

readln(x);

if x>0 then kn:=kn+1 {увеличиваем количество на 1}

end;

writeln('Вы ввели ',kn,' положительных чисел.');

readln

end.

ПРИМЕР: Напечатать буквы от 'Z' до 'A'.

program cycle_for2;

var c:char;

begin

for c:='Z' downto 'A' do write(c);

readln

end

ПРИМЕР: Вычислить N-е число Фиббоначчи. Числа Фиббоначчи строятся следующим образом: F(0)=F(1)=1; F(i+1)=F(i)+F(i-1); для i>=1. Это пример вычислений по рекуррентным формулам.

program Fib;

var a,b,c:word; i,n:byte;

begin

write('введите номер числа Фиббоначчи ');