begin
str(x,nTos);
end;
procedure?floatTofraction(x:real);
var
t:integer;
r:string;
y:real;
t:=1;
repeat
y:=x*t;
r:=nTos(y)+'/'+nTos(t);
inc(t);
until?(trunc(y)=y);
結果保存在變量r中,為字符串型。