Факториал в фукнции - Pascal ABC
Формулировка задачи:
Выполнять цикл пока точность , введенная с клавиатуры , не будет меньше этой суммы , X ввести с клавиатуры. При введения числа 1.57,S=0.0
Решение задачи: «Факториал в фукнции»
textual
Листинг программы
var x,e,s,t:real;
n:integer;
begin
write('x=');
readln(x);
repeat
write('e>0 e=');
readln(e);
until e>0;
if e>=1 then s:=1
else
begin
s:=1;
t:=1;
n:=0;
while abs(t)>e do
begin
n:=n+1;
t:=-t*x*x/((2*n-1)*(2*n));
s:=s+t;
end;
end;
writeln('Сумма=',s:0:4);
write('Cos(x)=',cos(x):0:4);
end.