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$$.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
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 можно посмотреть здесь.
Наоборот только числа
Ak:=(Ak1+2*Ak2)/3;
Write(Ak);
Ak1:=Ak2;
Ak2:=Ak;
Исправил как ты и сказал… я действительно запутался в этих АКа 🙂
А можете ее решить на языке СИ?
Думаю это будет выглядеть как то так : For34 на C++