Созданием мега калкулятора

[Katus]

Никто не задумывался над созданием мега калкулятора, который мог бы считать оч большие числа? Я вот задумался... написал минут за 15 прогу для нахождения факториала, для возведения в степень... но вот для перемножиывания больших чисел сил не хватает исправлять ошибки...
Все эти 3 прожки аналогично работают (должны работать). Может кто-нибуть подскажет как сделать перемноживатель больших чисел?

Ниже приведены текущие программные коды:

program Factorial0;
{$apptype console}
uses
	SysUtils;
var
	a: string;
	b: cardinal;
	i: byte;
  f: text;
	prom: cardinal;
	p: byte;
	res: string;
  num: cardinal;
  n: byte;
  ZeroEnded: boolean;
begin
write('x!; x='); readln(b);
a:='1';
num:=b;
for i:=2 to 254 do
	a:=a+'0';
while b>=1 do
	begin
	prom:=0;
	i:=1;
	while (i<Length(a))or(prom<>0) do
		begin
    n:=StrToInt(a[i]);
		prom:=prom+n*b;
		p:=prom mod 10;
    a[i]:=IntToStr(p)[1];
		prom:=prom div 10;
		i:=i+1;
		end;
	b:=b-1;
	end;
ZeroEnded:=False;
for i:=254 downto 1 do
  begin
  if ZeroEnded=True then
    res:=res+a[i]
  else
    if a[i]<>'0' then
      begin
      res:=res+a[i];
      ZeroEnded:=True;
      end
    else
      ZeroEnded:=False;
  end;
if ZeroEnded=False then
  res:='0';
writeln(num,'!=',res);
assignfile(f,'factorial.txt');
rewrite(f);
writeln(f, res);
closefile(f);
readln;
end.

program Stepen;
{$apptype console}
uses
	SysUtils;
var
	a: string;
	b: cardinal;
	i: byte;
	x: longint;
	f: text;
	prom: cardinal;
	p: byte;
	res: string;
	num: cardinal;
	n: byte;
	ZeroEnded: boolean;
begin
write('x^b; x,b='); readln(x,b);
a:='1';
num:=b;
for i:=2 to 254 do
	a:=a+'0';
while b>=1 do
	begin
	prom:=0;
	i:=1;
	while (i<Length(a))or(prom<>0) do
		begin
		n:=StrToInt(a[i]);
		prom:=prom+n*x;
		p:=prom mod 10;
		a[i]:=IntToStr(p)[1];
		prom:=prom div 10;
		i:=i+1;
		end;
	b:=b-1;
	end;
ZeroEnded:=False;
for i:=254 downto 1 do
  begin
  if ZeroEnded=True then
    res:=res+a[i]
  else
    if a[i]<>'0' then
      begin
      res:=res+a[i];
      ZeroEnded:=True;
      end
    else
      ZeroEnded:=False;
  end;
if ZeroEnded=False then
  res:='0';
writeln(num,'!=',res);
assignfile(f,'factorial.txt');
rewrite(f);
writeln(f, res);
closefile(f);
readln;
end.

program PereMnozh;
{$apptype console}
uses
	SysUtils;
var
	a,b: string;
	c: longint;
	i,j,d,g: byte;
	x: longint;
	f: text;
	prom: cardinal;
	p: byte;
	res, rea: string;
	resend: string;
	num: cardinal;
	n: byte;
	ZeroEnded: boolean;
begin
writeln('a*b');
write('a=');
readln(a);
write('b=');
readln(b);
c:=length(a);
for i:=c to 254 do
	a:=a+'0';
c:=length(b);
for i:=c to 254 do
	b:=b+'0';
num:=c;
for i:=1 to 254 do
	resend:=resend+'0';
while c>=0 do
	begin
	prom:=0;
	i:=1;
	j:=1;
	while (i<Length(b))or(prom<>0) do
		begin
		n:=StrToInt(b[i]);
		while (j<Length(a))or(prom<>0) do
			begin
			x:=StrToInt(a[j]);
			prom:=prom+n*x;
			p:=prom mod 10;
			res[j]:=IntToStr(p)[j];
			prom:=prom div 10;
			j:=j+1;
			end;
		g:=0;
    d:=1;
		while (d<=Length(resend))or(g<>0) do
			begin
			g:=g+StrToInt(resend[d])+StrToInt(res[d]);
			resend[d]:=IntToStr(g mod 10)[1];
			g:=g div 10;
      d:=d+1;
			end;
		i:=i+1;
		end;
	c:=c-1;
	end;
ZeroEnded:=False;
for i:=254 downto 1 do
  begin
  if ZeroEnded=True then
    rea:=rea+resend[i]
  else
    if a[i]<>'0' then
      begin
      rea:=rea+resend[i];
      ZeroEnded:=True;
      end
    else
      ZeroEnded:=False;
  end;
if ZeroEnded=False then
  rea:='0';
writeln(num,'!=',rea);
assignfile(f,'factorial.txt');
rewrite(f);
writeln(f, rea);
closefile(f);
readln;
end.

Повторяю: первые 2 программы работают, третья не работает

[Человек_Борща]

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

А зачем считать очень большие числа на ПК? Ищешь интересную задачу?
Напиши программу вычисляющую пределы по введённому уравнению.
Lim(x>0)=x^2-3x-2/x^2-4= - x стремится к очень маленькому числу(Но оно всё же не 0-ль).

[Katus]

хм... пожно попробывать... но хотесь сначала разобраться с перемножением чисел...

[Человек_Борща]

умножение для процессора сложная штука.
У него станало сложение и вычитание а потом только умножение и деленение.

[Slym]

FGInt - длинная математика