procedure dec_bin(**a:real**);
var wstr,mdstr:string;i,lng:integer;b,c,md:real;
begin
repeat
**b:=a/2;**
c:=frac(b);
if c=0 then md:=0 else md:=1;
str(md,mdstr);
wstr:=concat(wstr,mdstr);
**a:=trunc(b);**
until a=1;
wstr:=concat(wstr,'1');
lng:=length(wstr);
for i:=lng downto 1 do
binstr:=concat(binstr,wstr[i]);
end;
При вводе 'a' с более чем 10 разрядами выдает ошибку:
Ошибка времени выполнения: Значение было недопустимо малым или недопустимо большим для Int32.
a:=trunc(b)
.b
выходит за рамки типа int32 или что функция trunc приводит переменную к целочисленному типу в результате обрезания знаков после точки?b
описано как вещественная переменнаяTrunc
в Паскале. В делфи происходит именно так (функция trunc приводит переменную к целочисленному типу в результате обрезания знаков после точки), только в Делфи это int64.