Вычисление факториала, программа должна сообщать о переполнении Опции

[Евгений]

Здравствуйте!
Дана задача по вычислению факториала, с которой вроде справился, но есть ограничения: "тип обработанных данных-longint, если результат не помещается в 4 байта программа должна сообщить об этом"
Вот что написал:

Program Factoreal;
uses crt;
 var
 N: longint;
 M,I: integer;
  Begin
   clrscr;
   N:=1;
   write('введите число>=0    ');
   readln(M);
    if M=0 then N:=1
    else
     for I:=1 to M do
     N:=N*I;
     writeln ('Факториал равен:','   ',N);
   readln;
  end.

Как добиться того чтобы программа сообщала о переполнении? Перепобовал многое, но в итоге только еще больше запутался.
Может есть у кого какие идеи?

Сообщение отредактировано: Евгений - 27.11.2010 20:44

[volvo]

Кстати, способ, который работает в любом компиляторе:

var
  res: real;
  N: longint;
  M, I: integer;
Begin
  N:=1;
  write('M [ >= 0 ] = '); readln(M);
  if M = 0 then N := 1
  else
    for I := 1 to M do
    begin
      res := 1.0 * N * I;
      if res > maxlongint then
      begin
        writeln('error: overflow'); halt;
      end
      else n := trunc(res);
    end;
  writeln ('M! = ', N);
  readln;
end.

[Lapp]

Кстати, способ, который работает в любом компиляторе:

var
  res: real;
  N: longint;
  M, I: integer;
Begin
  N:=1;
  write('M [ >= 0 ] = '); readln(M);
  if M = 0 then N := 1
  else
    for I := 1 to M do
    begin
      res := 1.0 * N * I;
      if res > maxlongint then
      begin
        writeln('error: overflow'); halt;
      end
      else n := trunc(res);
    end;
  writeln ('M! = ', N);
  readln;
end.

Тут есть небольшая неопределенность (которая вряд ли где приведет к ошибке, впрочем), следующая из неопределенности длины мантиссы. Для пущей уверенности лучше использовать double или extended..
Но если уж использовать maxlongint (и, собсно, почему бы нет? оно, наверное, есть везде..)), то тогда лучше уж сделать так, мне кажется (без действительных типов):

var
  N: longint;
  M,I: integer;
  Overflow: boolean;

Begin
  N:=1;
  write('введите неотрицательное число: ');
  readln(M);
  N:=1;
  i:=1;
  while not Overflow and (i<=M) do begin
    Overflow:= N > maxlongint div i;
    if not Overflow then N:=N*I;
    Inc(i)
  end;
  if Overflow then WriteLn('Overflow')
  else writeln (M,'! = ',N);
  readln;
end.