Большие числа

[Лубышев]

Мне нужно найти факториал ну типа X! где X переменная

Я организовываю цикл, все замечательно работает, но фактариал не больше 13. Дальше не хватает.
пользуюсь целочисленным типом.
Сначало был integer но этого оказалось очень мало я стал пользоваться cardinal но этого опять мало. Есть альтернатива?

[-=<[Evklidd]>=-]

Да, есть. Почему бы не использовать для ваших целей действительные типы, например extended?!

[B_N]

Сообщение от Лубышев

Есть альтернатива?

Есть! int64!
А если серьезно, то
1. Писать свою библиотеку для работы над большими числами, очень желательно на асме - там это проще реализуется.
2. Брать какую-нибудь готовую, скажем GMP или может еще какую присоветуют.
3. А смысл есть? 100! = 93326215443944152681699238856266700 49071596826438162146859296389521759 9993229915
60894146397615651828625369792082722 37582511852109168640000000000000000 00000000

[Лубышев]

короче, тема такая. в Edit пишется набор букв, ну по какому-нить событию происходит подсчет количества перестановок(комбинаций, возможных вариантов). Касяк в том, что если букв больше 13 получается какаято лажа. а если очень много, порядка 20 то вообще выдает ноль!
Да, кстати факториал только через цикл организовать можно? или есть встроенная функция?

[Tayfun]

Вычисляет около 150-200!

program tvafakt;
uses crt;
var
n:array[1..30000] of byte;
p,k,i,j:integer;
b:boolean;
procedure vich(t:integer);
label 1;
begin
for i:=1 to t do begin
for j:=1 to 30000 do if n[j]<>0 then n[j]:=n[j]*i;
for j:=1 to 30000 do
1:if n[j]>=10 then begin n[j]:=n[j]-10; n[j+1]:=n[j+1]+1; goto 1; end;
end;
end;
procedure clear;
begin
b:=false;
for i:=1 to 30000 do n[i]:=0;
n[1]:=1;
end;
begin
clrscr;
readln(k);
clear;
vich(k);
textcolor(yellow);
write(k,'!=');
textcolor(lightgreen);
for i:=30000 downto 1 do begin
if n[i]<>0 then begin if b=false then p:=i; b:=true;  end;
if b=true then write(n[i]);
end;
readkey;
end.

[Лубышев]

спасибо, попробую.

[Carbon]

Tayfun, зачем array[1..30000] of byte? Тем более по 1 цифре на элемент. Лучше array[1..30000] of integer и разрядность 1000000000.

И попробуй, до какого предела он будет вычислять.