Помощь - Поиск - Пользователи - Календарь
Полная версия: Нужно написать программу в паскале, котроай находит n-факториал
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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 последних отличных от нуля цифры этого числа...
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. И твоя функция может его либо выдать, либо не выдать. Третьего не дано. Твоя функция этого результата не выдает, значит, она работает неправильно.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.