Поиск ошибок в программе

@gayfullin008 · Регистрация: 06.12.2015

Author24 — интернет-сервис помощи студентам

Pascal

Program Ilgizzz;
LABEL c;
Const n=100;e=0.001;
Var x,y,s,xn,xk,dx,a:real; i:integer;
Function Fac(k: integer): longint; 
Begin 
If k=0 then Fac:= 1 else Fac:= k*Fac(k-1); 
End; 
Begin
Writeln('Введите xn,xk,dx=>');
Readln(xn,xk,dx);
x:=xn;
While x<=xk do
Begin
y:=exp(x)-3*x;
s:=0;
For i:=1 to n do
Begin
a:=1+(exp(ln(x)*i))/(Fac(i))-3*x;
If abs(a)<e then goto c;
s:=s+a;
End;
c:writeln('x=',x:3:1,' y=',y:8:5,'  s=',s:8:5, ' Разница =' ,abs(y-s):8:6,' i=',i);
x:=x+dx;
End;
Readln
End.

Правильно ли записан факториал?

@Puporev · 26.01.2018, 08:59

Судя по тому что Вам нужен будет аж 100!, то тип функции longint не пойдет, нужно real.
А вообще похоже что здесь и не нужна эта функция и программа написана не совсем верно, приведите точное условие задачи.

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	26.01.2018, 08:59	2
	Судя по тому что Вам нужен будет аж 100!, то тип функции longint не пойдет, нужно real. А вообще похоже что здесь и не нужна эта функция и программа написана не совсем верно, приведите точное условие задачи. 0