Вычислительная задача Опции

[SeRGuS]

Не могу разобраться с простой задачей:

Пусть A1=u, B1=v. Вычислить
A(k)=2B(k-1)+A(k-1)
B(k)=2A*A(k-1)+B(k-1)
,где K=2,3,…


Может кто помочь ?

Сообщение отредактировано: SeRGuS - 19.12.2004 14:34

[volvo]

SeRGuS
А до каких пор вычислять? А вообще-то вот так:

Код

...
a1 := u; b1 := v;
for i := 1 to n do
 begin
   a2 : =2 * b1 + a1;
   b2 := 2 * sqr(a1) + b1;
   a1 := a2; b1 := b2
 end;
...

ничего сложного...