Число Якобшталя.

[Водонька]

Число Якобшталя определяется так: первое и второе числа равны 1, каждое следующее равно a(n)=a(n-1)+2a(n-2).
Составить прогу, которая находит первые k чисел Якобшталя (k - задается пользователем).
Определить номер последнего числа Якобшталя, которое входит в диапазон типа integer (longint). Вывести в виде таблицы данное число Якобшталя и три предыдущих с их номерами.

[Multiman]

Тебе надо все свои задачки в одну тему запихать и во фриланс...

[Stilet]

Сойдет такое?

MODULE Якобшталь;
IMPORT StdLog;

CONST n=10;
VAR  a:ARRAY(n) OF INTEGER;

PROCEDURE do*(k:INTEGER);
VAR i:INTEGER;
BEGIN StdLog.Clear;
 a[0]:=1;StdLog.Int(a[0]);StdLog.Ln;
 a[1]:=1;StdLog.Int(a[1]);StdLog.Ln;
 FOR i:=2 TO LEN(a)-1 DO
  a[i]:=a[i-1]+2*a[i-2];StdLog.Int(a[i]);StdLog.Ln;
  IF i=(k-1) THEN RETURN END;
 END;
END do;

END Якобшталь.

Ответ

1
1
3
5
11

[rrrFer]

вычисляет N-ное число по указанной формуле:

p(N,R):-
		N<1,fail;N<3,R=1;
		Q=N-1,W=Q-1,p(Q,A),p(W,S),R=A+2*S.

чтобы вывести ввиде таблицы надо добавить буквально пару строк. Таблицу хранить удобней в БД, ИМХО.
-----------------
добавил:
забыл указать, это на прологе решение
-----------------
добавил:
кстати, тут плохое решение, если БД прикрутить - то можно лучше решить. вот примерно как у Stilet решение будет.