Формула Ламберта., Помогите пожалуйста, очень срочно надо решить... Опции

[Лилия]

(Задача на рекурсию, на Паскале) Формула Ламберта. Вычислить приближенное значение е по формуле Ламберта e(k)=(a(k)+b(k))/(a(k)-b(k)); a(k)=(4*k-2)*a(k-1)+a(k-2); a(1)=2; a(0)=1; b(k)=(4*k-2)*b(k-1)+b(k-2); b(1)=1; b(0)=0.

Заранее спасибо...

Сообщение отредактировано: Лилия - 24.12.2007 12:02

[volvo]

и что эта вся программа???

А что, она не работает?

Можно запросить ввод параметра, и для него вызывать функцию:

var T: integer;
begin
  write('T = '); readln(T);
  writeln(e(T));
end.

(только надо как-то ограничить ввод T, потому что рекурсия все-таки, стек переполнить очень просто, программа начнет вылетать... Тем более, что уже e(3) дает ответ с точностью до 9 знака после запятой)...