Помощь - Поиск - Пользователи - Календарь
Полная версия: Вычислительная задача
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
SeRGuS
19.12.2004 14:33
Не могу разобраться с простой задачей:

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


Может кто помочь ?
volvo
19.12.2004 15:13
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
19.12.2004 16:57
volvo:
Цитата
А до каких пор вычислять?


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

То ли k описать как массив чисел от 2 до n, и что я должен получить в ответе ?
murphy
19.12.2004 17:40
Цитата
Может кто помочь ?

Не достаточно данных для решения задачи
murphy
19.12.2004 17:47
Или может вот так
Код

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;


Не тестировал
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.