Нужно написать программу в паскале, котроай находит n-факториал, ! Опции

[Diablik]

Вот такая хрень:
Вычислить n-факториал
S: =0;
P:=1
P:= 1*2*3;
read
------

[volvo]

Эта программа уже написана давным давно. Зайди в поиск и посмотри по слову "факториал", там каких только программ нет. И рекурсия, и итерация, и с длинными числами...

[Гость]

зачем тибе програму целую держи функкцию которая считает факториал

function inf(x:integer):real;
Var s:real;
i:integer;
begin
s:=1;
for i:=1 to x do s:=i*s;
inf:=s;
end;

[amega]

зачем тибе програму целую держи функкцию которая считает факториал

function inf(x:integer):real;
Var s:real;
i:integer;
begin
s:=1;
for i:=1 to x do s:=i*s;
inf:=s;
end;

[volvo]

зачем тибе програму целую держи функкцию которая считает факториал

А можно пример, как с помощью этой функции получить все цифры, ну скажем "25!" ? Не приблизительно, а точно. Вот меня, например, интересует 3 последних отличных от нуля цифры этого числа...

Сообщение отредактировано: volvo - 9.03.2008 12:22

[amega]

если я вас правильно понял то ви хотите увидить полностю 25!

function inf(x:integer):real;
  Var s:real;
      i:integer;
  begin
  s:=1;
   for i:=1 to x do s:=i*s;
     inf:=s;
  end;
  var c:real;
      n:integer;
   begin
   writeln('Введите чило факториала');{в вашем случае 25}
   Readln(n);
   c:=inf(n);
   writeln('c=',c:1:0);
   readln;
  end.

Вот оно вам виведет полностю 25! что становит
15511210043000000000000000

[Archon]

Вот оно вам виведет полностю 25! что становит
15511210043000000000000000

Да, а уже стандартный виндовский калькулятор выдаст 15511210043330985984000000

[amega]

Точность типа real - 11-12
single - 7-8
Double - 15-16
Extended - 19-20

[volvo]

Угу. Где-то в задании ты видел что-нибудь про точность? Не интересует конечного пользователя точность, понимаешь? Не интересует...

Есть результат: 25! = 15511210043330985984000000. И твоя функция может его либо выдать, либо не выдать. Третьего не дано. Твоя функция этого результата не выдает, значит, она работает неправильно.