длиннная арифметика

[a999a1]

Выяснить, какое из чисел a^m, b^n больше и на сколько (a, b <= 40000; m, n <= 10). имеется рабочий код но нужно что бы в ответе выдавалось точное значение. задача из длинной арифметики

uses crt;
var a,b,rez1,rez2: integer;
    n,m,i: byte;
begin
writeln('Введите 1 число и степень, в которые его возвести');
readln(a,n);
writeln('Введите 2 число и степень, в которые его возвести');
readln(b,m);
rez1:=1;
rez2:=1;
for i:=1 to n do rez1:=rez1*a;
for i:=1 to m do rez2:=rez2*b;
if (rez1=rez2) then writeln('Числа равны') else
if (rez1>rez2) then
writeln('Число ',a,'^',n,' больше, чем число ',b,'^',m,' в ',(rez1/rez2):2:1,' раз.')
else
writeln('Число ',b,'^',m,' больше, чем число ',a,'^',n,' в ',(rez2/rez1):2:1,' раз.')
end.

[ZX Spectrum-128]

Какой же он (код) рабочий?
Тип integer - до 32767, а у вас 40000^10
Нужно искать "длинная арифметика" в инете

[Poma][a]

Тип integer - до 32767

Осторожней..
В Дельфи и ABC Integer = LongInt

[ZX Spectrum-128]

Сообщение от Poma][a

Осторожней..
В Дельфи и ABC Integer = LongInt

Как-то забываю все время про это. Автоматически уже. Ну, в данном случае это неважно.

[Plague]

Сравнить можно и без длинной арифметики.

 if m*ln(a)  > n*ln(b) then ... else ...

А на сколько больше? Тут только длинная арифметика при таких ограничениях.

[Mad_Cat]

http://programmersforum.ru/showthread.php?t=248609
сложение, умножение и сравнение
осталось допилить вычитание/деление - дерзайте