hola, necesito saber que tipo de dato numérico es el que soporta mas caracteres ya que tengo que hacer un programa que calcule el factorial de 100,000 y el tipo Extended solo llega hasta 1554 lo tengo hecho de esta manera. le adjunto el proyecto
Código:
function factorial(a:Extended):Extended;
begin
if (a=0) or (a=1) then
factorial:=1
Else
factorial:=a*factorial(a-1);
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
no1:Extended;
begin
if Edit1.Text='' then
begin
showmessage('Instrodusca un numero');
Edit1.SetFocus;
exit;
end;
no1:=strtofloat(Edit1.Text);
Edit2.Text:=floattostr(Factorial(no1));
end;