вычисление F(x)=(1+x)^(5/2) разложением в ряд Опции

[Szug]

Уважаемые ПРОФИ!!! Очень прошу проверить правильность моего изваяния. Задача: составить программу вычисления F(x)=(1+x)^(5/2) разложением в ряд при |x|<1 c точностью e=0.0001. Вычисления оформить в виде подпрограммы-функции. Вот тело:

Код

Program KR;

Function F(var x:real):real;
var
Ut,Up,P,e:real;
i,n:integer;
begin
if abs(x)<1+0.001 then begin
i:=0; n:=1;
e:=0.0001;
Up:=1;
P:=1;
repeat  {начало цикла вычисления значений F}
Ut:=Up*(2.5-i)*x/n; {вычисление U(k+1)}
P:=P+Ut;
inc(i); inc(n);
Up:=Ut;
until abs(Ut)<=e+1e-8;    { проверка Е- выход из цикла}
F:=p;
end
else writeln('неверное X');
end;              {конец функции}

var x,Fx:real;
begin
writeln('Введите Х');
readln(x);
Fx:=F(x);
writeln('F = ',Fx);{вывод на экран}
readln;
end.

Укажите мне на имеющиеся ошибки, ПОЖАЛУЙСТА! Срочно надо сдать контрольную. СПАСИБО!!!

Извените, ошибочка вышла в условии, уже исправил

Сообщение отредактировано: Szug - 8.01.2007 11:47