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

[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;
...

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

[SeRGuS]

volvo:

А до каких пор вычислять?

вот это я и не могу понять.

То ли k описать как массив чисел от 2 до n, и что я должен получить в ответе ?

[murphy]

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

Не достаточно данных для решения задачи

[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;

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