Решаем задачи Абрамян на Паскале. For31

For31. Дано целое число $N$ ( $> 0$ ). Последовательность вещественных чисел $A_K$ определяется следующим образом: $A_0 = 2, A_K = 2 + 1/A_{K-1}, K = 1, 2, …$ . Вывести элементы $A_1, A_2, …, A_N$ .

Решение:

program For31;  
var
  Ai :Real;
  N, i :Integer;
begin
  Write('Введите N: ');
  Readln(N);
  Writeln('Значения функции:');
  Writeln('A(0)=2');
  Ai:=2;
  For i:=1  to N do
  begin
   Writeln('A(',i,')=',2+1/Ai);
   Ai:=2+1/Ai;
  end;
end.

program For31;

var

Ai :Real;

N, i :Integer;

begin

Write('Введите N: ');

Readln(N);

Writeln('Значения функции:');

Writeln('A(0)=2');

Ai:=2;

For i:=1 to N do

begin

Writeln('A(',i,')=',2+1/Ai);

Ai:=2+1/Ai;

end;

end.

Другие задачи из раздела For можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. For31

Комментарии:

Добавить комментарий Отменить ответ