Протестировать заданный алгоритм, выполнив 3-4 цикла:Значения xi вычисляются циклически:...

Question

Протестировать заданный алгоритм, выполнив 3-4 цикла:Значения xi вычисляются циклически: xi=1.5 * xi-1 - 0.8*xi-2; i=2,3,...k.Вычислить xk, не применяя массивов, если x0=5; x1=-4

---

Comments

На Turbo=pascal?

Answer 1

Выполнил на Turbo-Pascal

Uses Crt;

Var x0, x1, xk : Real;

     i, k : Integer;

Begin

 k:=10;

 x0:= Sqr(Cos(1));

 x1:=-Sqr(Sin(1));

 For i:=2 to k do

   begin

     xk:=1.5*x1 - 0.8*x0;

     x0:=x1;

     x1:=xk;

   end;

End.