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

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

Решение:

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

program For34;

var

Ak,Ak1,Ak2 :Real;

N, i :Integer;

begin

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

Readln(N);

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

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

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

Ak1:=1;

Ak2:=2;

For i:=3 to N do

begin

Ak:=(Ak1+2*Ak2)/3;

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

Ak1:=Ak2;

Ak2:=Ak;

end;

end.

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

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

Кирилл

12.12.2014 в 00:02

Наоборот только числа
Ak:=(Ak1+2*Ak2)/3;
Write(Ak);
Ak1:=Ak2;
Ak2:=Ak;

Ответить
- Anton
  
  12.12.2014 в 14:39
  
  Исправил как ты и сказал… я действительно запутался в этих АКа 🙂
  
  Ответить
Тима

26.12.2014 в 10:20

А можете ее решить на языке СИ?

Ответить
- Anton
  
  26.12.2014 в 11:51
  
  Думаю это будет выглядеть как то так : For34 на C++
  
  Ответить

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

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

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

Добавить комментарий для Тима Отменить ответ