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

[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 10:34

[murphy]

Или может вот так

Код

program p;
const
    n=20;
    u=...;
    v=...;
type
    vect= array[1..n] of real;
var
    A, B: vect;
    i: byte;

begin

    write('Введите m: ');
    repeat
       readln(m)
    until (m>0) and (m<=n);

    a[1] := u; b[1] := v;
for i := 2 to n do
begin
  a[i] : =2 * b[i-1] + a[i-1];
  b[i] := 2 * sqr(a[i-1]) + b[i-1];
 end;

{вывод}
end;

Не тестировал