Факториал числа

@VakhramoV · Регистрация: 07.02.2011

Написал программу, которая считает факториал числа.
Но считает она до максимального значения типа REAL. Как сделать, чтобы считался факториал для любого числа? (С массивами пока не знаком.)

Код

Program Factorial;
uses crt;

var a, n:integer;
    fc: real;
begin
clrscr;
fc:=1;
writeln('Введите число, факториал которого нужно узнать!');
readln(n);
for a:=1 to n do
begin
fc:=fc*a;
end;

if n = 0 then
WriteLn('0! = 1');

if a = n then
WriteLn(n,'! = ',fc);
exit;
end.

Кто может помочь с решением проблемы? И можно ли решить без массивов?

@Доминишинг · 08.02.2011, 13:57

Pascal

repeat 
 r:=r+1;
fс:=fс*r;
until

@VakhramoV · 08.02.2011, 18:38 **[ТС]**

Сообщение от Доминишинг

Pascal

repeat 
 r:=r+1;
fс:=fс*r;
until

Вы тему читали? Да ещё и советы кое-какие даёте.

@Puporev · 08.02.2011, 19:08

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

С массивами пока не знаком.)

тогда в АВС это предел, в других Паскалях еще можно до extended, иначе только длинная арифметика, а там массивы...

@VakhramoV · 08.02.2011, 19:41 **[ТС]**

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

тогда в АВС это предел, в других Паскалях еще можно до extended, иначе только длинная арифметика, а там массивы...

Всё понятно, а я удивлялся, почему нет extended в паскале?) На делфи у меня крупные числа были в extended.
А есть люди добрые, которые могут пример с массивами скинуть?

@Puporev · 08.02.2011, 19:47

Стандартные операции с массивами (матрицами)

@ЯСеньПень · 12.11.2016, 23:40

Pascal

Uses CRT;
var n:word;
    m, cnk, fac1, fac2, fac100:BigInteger;
    
  Function Factor(const n:word):BigInteger;
  var fct:BigInteger;
  begin
    fct:=1;
    for var i:=2 to n do
      fct:=fct*i;
    Factor:=fct;
   end;
 
begin
  m:=0;
  n:=100;
  WriteLn('n = ',n);
  fac100:=Factor(n);
  WriteLn('n! = ',fac100);
  for var k:=1 to n do
    begin
      Write('k = ',k:2);   
      fac1:=Factor(k);
      fac2:=Factor(n-k);
      cnk:=fac100/(fac1*fac2);
      WriteLn('   Cnk = ',cnk);
      m:=m+cnk;
     end;
  WriteLn;
  WriteLn('Result: ',m);
end.

Считает сумму числа сочетаний, из этого можно и про факториалы извлечь.
Программа авторская.

@kirilka_25 · 03.12.2018, 20:06

что означает"cnk" ?

Добавлено через 1 минуту
ЯСеньПень, что означает "cnk" ?

@VakhramoV 20 / 20 / 12 Регистрация: 07.02.2011 Сообщений: 82
		1
	Факториал числа 08.02.2011, 13:31. Просмотров 17232. Ответов 7 Метки нет (Все метки) Написал программу, которая считает факториал числа. Но считает она до максимального значения типа REAL. Как сделать, чтобы считался факториал для любого числа? (С массивами пока не знаком.) Код Program Factorial; uses crt; var a, n:integer; fc: real; begin clrscr; fc:=1; writeln('Введите число, факториал которого нужно узнать!'); readln(n); for a:=1 to n do begin fc:=fc*a; end; if n = 0 then WriteLn('0! = 1'); if a = n then WriteLn(n,'! = ',fc); exit; end. Кто может помочь с решением проблемы? И можно ли решить без массивов? 0

@Puporev Модератор 62234 / 46525 / 32074 Регистрация: 18.05.2008 Сообщений: 112,460
	08.02.2011, 19:08	4
	Сообщение от VakhramoV С массивами пока не знаком.) тогда в АВС это предел, в других Паскалях еще можно до extended, иначе только длинная арифметика, а там массивы... 0

@VakhramoV 20 / 20 / 12 Регистрация: 07.02.2011 Сообщений: 82
	08.02.2011, 19:41 [ТС]	5
	Сообщение от Puporev тогда в АВС это предел, в других Паскалях еще можно до extended, иначе только длинная арифметика, а там массивы... Всё понятно, а я удивлялся, почему нет extended в паскале?) На делфи у меня крупные числа были в extended. А есть люди добрые, которые могут пример с массивами скинуть? 0

@Puporev Модератор 62234 / 46525 / 32074 Регистрация: 18.05.2008 Сообщений: 112,460
	08.02.2011, 19:47	6
	Стандартные операции с массивами (матрицами) 2

@kirilka_25 0 / 0 / 0 Регистрация: 24.11.2018 Сообщений: 15
	03.12.2018, 20:06	8
	что означает"cnk" ? Добавлено через 1 минуту ЯСеньПень, что означает "cnk" ? 0

Опции темы