Шалости факториала в Паскале

[CrapPy]

Доброго времени суток, уважаемые коллеги =) в общем, преподаватель на днях на паре дал задание - , где X надо вводить с клавиатуры, и предел точности должен быть до 0,000001. Вроде задание не сложное, конечно он показал и свой вариант программы, но в виду своего высокомерного эго, я в этот момент отвечал на сообщения в вк... В общем начал делать из своих соображений. И тут - каша в голове... Просмотрев работу учителя понял что программа его работает не верно, почему-то паскаль не верно считает факториал, начиная с 13... В общем долго мучился, но через терни страданий написал, так скажем полупрограмму. Короче, либо я дебил, либо паскаль надо мной издевается! Обратите внимание на тринадцатый факториал и после и ПОМОГИТЕ ПОЖАЛУЙСТА!!!

program p1;
uses crt;
var otvet:real;
    i,x,k,over,n,m,stepen,faktorial:integer;
function fact(n:integer):integer;  // процедура подсчета факториалов
begin
  if n=1 then fact:=1
         else fact:=fact(n-1)*n;
end;
begin
  writeln('Ââåäèòå àðãóìåíò Õ: ');  //просит икс ввести
  readln(x);
  over:=20;  //устанавливаем конец цикла(в идеале должен быть минимум 2000)
  faktorial:=1;  
  for i:= 1 to over do begin  //начинаем считать
  stepen:=1;
    for m:= 1 to i do  // возведение Х в степень К (почему-то на ^ паскаль матюкается)
      stepen:=stepen*x;
    faktorial:=fact(i); //обращение к функции факториал
    otvet:=stepen/faktorial; //находим слагаемое
    if otvet<=0.000001 then over:=i; //ждем конец (пока что для красоты)
    k:=k+1; //подсчет количества слагаемых
    writeln(k,'   ',faktorial,'   ',stepen,'   ',otvet);  // выводим слагаемые
  end;
  writeln(k);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

так пойдёт?

program p1;
uses crt;
const
  epsilon : extended  = 0.000001;

var otvet, element : extended;
    x, k : longint;
begin
  writeln('Введите X: ');  {//просит икс ввести }
  readln(x);

  element := x;
  otvet :=  element;
  k := 0;
  while element>epsilon do begin
    inc(k);
    element := element * x/k;
    otvet := otvet +  element
  end; 
  writeln(k, ' otvet = ',otvet:0:7);
  Readln
end.

p.s. в данном примере я использую реккурентное соотношение, когда каждый следущий член ряда вычисляется через предыдущий..

[gaw4]

function fact(n:integer):integer;
Максимальное значение типа integer: 2147483647

[Abstraction]

Я один заметил запись !k, интересно?

[s-andriano]

Сообщение от CrapPy

...программа его работает не верно, почему-то паскаль не верно считает факториал, начиная с 13... В общем долго мучился, но через терни страданий написал, так скажем полупрограмму. Короче, либо я дебил, либо паскаль надо мной издевается! Обратите внимание на тринадцатый факториал и после и ПОМОГИТЕ ПОЖАЛУЙСТА!!!

Паскаль здесь ни при чем.
Абсолютно.
Вам не хватает элементарных представлений о способах хранения чисел в компьютере.
Посмотрите в справке, каков диапазон представлений у чисел разных типов.