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 -