еще одна задачка на TP7

[Disel]

У кого время будет помогите еще с одной задачкой. Я с факториалами ни как не могу разобраться. Заранее благодарен.

[maladoy]

program fakt1;
uses crt;
var i:integer;
y,x:real;
function fakt(n:integer):integer;
 var j:integer;
 begin
  fakt:=1;
  if n>1 then fakt:=n*fakt(n-1);
 end;
 function power (f : real; k : integer) : real;
begin
power:=exp(ln(f)*k)
end;
   begin
   readln(x);
 i:=2;
 y:=0.5;
 repeat
 y:=y+fakt(i)*power(x,i)/i;
 i:=i+2;
 until i>10 ;
 writeln('y=',y);
 readln;
 end.

[Disel]

maladoy чего-то Ваша программа не работает и у меня не получается ее отладить. На первой функции выдает 88 ошибку.

[Sazary]

Disel
Мой вариант. Проверяйте.

uses crt;

var
x,a,b,y,fact : real;

begin
clrscr;
write('Vvedite x: ');
readln(x);
fact := 1;
a := 0;
y := 0.5;
b := 1;
repeat
  a := a + 2;
  if a>10 then break;
  fact := fact*a*(a-1);
  b := b*x*x*fact/a;
  y := y + b;
until a>10;
writeln('y= ',y:7:3);
readln;
end.

[Greblin]

Господа, ну что вы эти факториалы считаете, да потом ещё и делите. Задача то на схему Горнера явно. От знаменателей вобще можно избавиться, ибо знаменатель присутствует и в соответсвующем факториале
А в варианте от maladoy банально 10! не помещается в паскалевский 2-х байтовый integer

program extension;
var x, xs, y: real;
begin
write('x: ');
readln(x);
xs := x * x;
y := 0.5 + xs*(1 + 6*xs*(1 + 20*xs*(1 + 42*xs*(1 + 72*xs))));
{поясняю: 6=2*3, 20=4*5, 42=6*7, 72=8*9}
writeln(y:1:3)
end.

[Disel]

Sazary и Greblin большое спасибо!!!!