Прошу помочь с заданием =((

[Lexxich]

Всем привет.Если кто нибудь знает как сделать пожалуйста помогите.Задание не сложное но я никогда не решал задачи такого типа, прошу не смеяться , просто если кто то знает как сделать помогите

pc прогу/процедуру нада на паскале хотя это тот же делфи
заранее спасибо

[puporev]

Я знаю. Примерно так:
1.Текст модуля.

unit Sum10;
interface
Function t(x:real):real;
implementation
Function t(x:real):real;
var k:integer;
    r,s:real;
begin
r:=x;s:=x;
for k:=2 to 10 do
    begin
      r:=r*x/k;
      s:=s+r;
    end;
t:=s;
end;
end.

Текст программы.

uses crt,Sum10;
var y,rez:real;
begin
clrscr;
write('y=');readln(y);
rez:=(t(0.5)+3*t(1+y)*t(1+y))/(t(y*y+1)-6);
write('rez=',rez:5:4);
readln
end.