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

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

Решение:

program For35;
var
Ak,Ak1,Ak2, Ak3 :Real;
N, i :Integer;
begin
 Write('Введите N: ');
 Readln(N);
 Writeln('Значения функции:');
 Writeln('A(1)=1');
 Writeln('A(2)=2');
 Writeln('A(3)=3');
 Ak1:=1;
 Ak2:=2;
 Ak3:=3;
 For i:=4  to N do
  begin
   Ak:=Ak3+Ak2-2*Ak1;
   Writeln('A(',i,')=',Ak);
   Ak1:=Ak2;
   Ak2:=Ak3;
   Ak3:=Ak;
  end;
end.

program For35;

var

Ak,Ak1,Ak2, Ak3 :Real;

N, i :Integer;

begin

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

Readln(N);

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

Writeln('A(1)=1');

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

Writeln('A(3)=3');

Ak1:=1;

Ak2:=2;

Ak3:=3;

For i:=4 to N do

begin

Ak:=Ak3+Ak2-2*Ak1;

Writeln('A(',i,')=',Ak);

Ak1:=Ak2;

Ak2:=Ak3;

Ak3:=Ak;

end;

end.

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

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

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

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

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