Паскаль. Процедуры и функции. Арифметика

[infff]

Паскаль.Процедуры и функции
Дано действительное число y. Получить:

Код: Выделить всё

         1.7*t(0.25)+2*t(1+y)
            ------------------ ,
               6-t(y^2-1)


                          4
                         ----     x+1
                          >     -------
                         ----   (2*k+1)!
                         k=0     
    где   t(x)=     ------------------
                          4   
                         ----     x*k
                          >     -------
                         ----    (2*k)!
                         k=0

[dr.Jekill]

Не совсем понятно, что здесь вообще написанно.

[Naeel Maqsudov]

Все тут понятно.
Нужна функция
function t(x:double):double;
вычисляющая нижнюю формулу.
А в теле программы

write('Введите Y: ');readln(y);
writeln((1.7*t(0.25)+2*t(1+y))/(6-t(sqr(y)-1)):10:5);

[Хыиуду]

[syntax=Delphi]
function fac(x: integer): longint;
var i: integer;
begin fac:=1; for i:=1 to x do fac:=fac*i; end;

function t(x: real): real;
var k: integer; a,b: real;
begin
a:=0; b:=0;
for k:=0 to 4 do
begin
inc(a, (x+1)/fac(2*k+1);
inc(b, x*k/fac(2*k));
end;
t:=a/b;
end;
[/syntax]

[infff]

Спс за ответ сори что раньше неответил нета небыло