3 задания по турбо паскалю

[infff]

Люди я канешно понимаю что тут чутьли не каждый день создаются темы похожие на мою но всетаки:
Очень нужна помошь в решеннии 3х задач по турбо паскалю, сам смог поработать только с 1ной и та сделана неправильно=(

Собственно задачи:

1) 23. Даны действительные числа a,h, целое n. Вичислить:
f(a) + f(a+h)+f(a+2*h)+...+ f(a+n*h), где f(x)=(x^2+1)/x

program lab4inf;
var x,a,h,s,i,n:integer;
begin
write ('Vvedite h,x,n');
read(h,x,n);
a:=((x*x+1)/x);
s:=0;
for i:=1 to n do
s:=a+i*h;
writeln('summa=',s)
end.

теория к этой задаче:
http://www.programmersforum.ru/attac...1&d=1235719214


и еше 2 файла с другими задачами:

http://www.programmersforum.ru/attac...1&d=1235719214

http://www.programmersforum.ru/attac...1&d=1235719214


З.Ы. еси нездам на след неделе обешали отчислить =(

P.S.p.s Условия задания после теории в конце текстовых файлов

[mindforce]

В первой задаче исправь
for i:=0 to n do

[infff]

Сообщение от mindforce

В первой задаче исправь
for i:=0 to n do

спс исправил но проблема гдето выше показывается(

[Plague]

1 задача

var a,h,s:real;
    i,n:integer;
function f(x:real):real;
begin
  f:=(x*x+1)/x;
end;
begin
  readln(a,h,n);
  s:=0;
  for i:=0 to n do
  s:=s+f(a+i*h);
  writeln('Summa = ',s);
end.

[infff]

Сообщение от Plague

1 задача

var a,h,s:real;
    i,n:integer;
function f(x:real):real;
begin
  f:=(x*x+1)/x;
end;
begin
  readln(a,h,n);
  s:=0;
  for i:=0 to n do
  s:=s+f(a+i*h);
  writeln('Summa = ',s);
end.

Спасибо большое !

[infff]

23. Процедуры и функции
Дано действительное число 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

[infff]

Помогите ктонибудь с решениием сам мучал чуш получается

[XeN0N]

создаешь функцию t, как написано выше, в ней две переменных S1 и S2, цикл от 0 до 4,
в каждой итерации цикла прибавляешь
к S1 1/fact(2*k+1)
к S2 k/fact(2*k),
где fact(x) - функция возвращающая факториал от x, ее тоже надо написать

потом, если x не 0 И S2 не 0, возвращаешь значение (x+1)/x*S1/S2

[infff]

сейчас попробую спс

[infff]

честно пробовал составить програму но мозги в нужном направлении неповорачиваются =(

можеш плз написать более полную версию решения.