Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Turbo Pascal] Расчёт по формуле

Автор: Hellride 12.12.2009, 14:05

Задача 5
Дано http://cs4330.vkontakte.ru/u51873881/99426825/x_e0ee30ec.jpg

Автор: ИванМ 12.12.2009, 17:37

Код


uses crt;

function math(x1, n1, a, n: real): real;
var
   x: real;
begin
     if n=n1 then
        math:=x1
     else
     begin
         x:=math(x1, n1, a, n-1);
         math:=(x+a/x)/((n-1)*(n-1));
     end;
end;
var
   a: real;
begin
     write('a=');
     readln(a);
     writeln('result=', math(2, 1, a, 25));
     readkey;
end.