Имеем программу:
var a, b: real;
function dg0(a, b : real) : real;
var
dg : real;
f, r : longint;
begin
r := 1;
repeat
a := a * b;
f := trunc(a);
dg := dg + f * r;
until a - trunc(a) = 0;
writeln(dg);
dg0 := dg;
end;
begin
readln(a, b);
writeln(dg0(a, b));
writeln('Нажмите Enter для выхода из программы');
readln;
end.
Она должна переводить дробную часть десятичного числа а
в систему счисления с основанием b
(ввод числа в формате 0.111). На 12 строчке (f := trunc(a);
) выдает ошибку:
Pattern.pas(12) : Ошибка времени выполнения: Значение было недопустимо малым или недопустимо большим для Int32.
Прошу объяснить, в чем ошибка