Примеры типовых задач по теме Циклы

Примеры типовых задач на "циклы"

К концу изучения "Циклов", каждый учащийся должен уметь решать следующие типовые задачи: вычисление сумм и произведений числовых последовательностей, циклический ввод данных с последовательной обработкой.

Пример вычисления сумм.

Алгоритм подсчета:     Первоначальное значение S:=0 Подсчет в цикле:

S:=S + {текущее значение}.

Задача № 1. Вычислить S=1+2+3+…+ N.

program zadacha1; var i, s, n: integer; begin

  write('Введите натуральное число N=');   read(n);   s:=0;   i:=1;

{Цикл с предусловием}	{Цикл с постусловием}
while i<=n do     begin       s:=s+i;       i:=i+1;     end;	repeat   s:=s+i;   i:=i+1; until i>n;

  writeln ('Сумма =', s); end.

Пример вычисления произведения.

                Алгоритм подсчета:     Первоначальное значение p:=1

Подсчет в цикле: p:=p * {множитель}.

Задача № 2. Вычислить произведение первых N четных чисел

program zadacha2; var i, s, n: integer; begin

  write('Введите натуральное число N=');   read(n);   p:=1;   i:=1;

{Цикл с предусловием}	{Цикл с постусловием}
while i<=n do     begin       p:=p*2*i;       i:=i+1;     end;	repeat   p:=p*2*i;   i:=i+1; until i>n;

  writeln ('Произведение =', p); end.

Пример циклического ввода данных с последовательной обработкой.

Задача № 3. Последовательно вводится N чисел. Найти максимальное из них.

 program zadacha3; var n,i,x,max:integer; begin

  write('Введите натуральное число N:');   read(n);   i:=1;

{Цикл с предусловием}	{Цикл с постусловием}
while i<=n do   begin     write(I,' число:');     read(x);     if i=1 then max:=x;     if x>max then max:=x;     i:=i+1;   end;	repeat       write('I,' число:');;       read(x);       if i=1 then max:=x;       if x>max then max:=x;       i:=i+1;   until i>n;

  writeln('max= ',max); end.

Пример построения последовательностей (по рекуррентной формуле)

Задача № 4. Распечатать числа Фибоначчи от 1 до N (каждое число в последовательности, начиная с третьего, получается сложением двух предыдущих чисел. Например, 1, 1, 2, 3, 5, 8, 13, 21, …).

program zadacha4; var  a, b, c, n, i :integer;

begin

  write('Введите натуральное число N:');   read(n);   a:=1;   b:=1;

{Цикл с предусловием}	{Цикл с постусловием}
while i<=n do   begin     c:=a+b;;     writeln(c,';');     a:=b;     b:=c;     i:=i+1;   end;	repeat       c:=a+b;;       writeln(c,';');       a:=b;       b:=c;       i:=i+1;   until i>n;

  writeln(a,';', b);   i:=3; end.