Zahl als Bruch speichern

[dino]

es sind wirklich nur brüche und keine wurzeln...

wie das mt der klasse geht weiss ich ncoh net so ganz

klassen wären z.B. real, extended, single, integer u.s.w., oder?

also was in meinem programm (extrem vereinfacht) passiert ist folgendes:

Delphi-Quellcode:

var 
  xr,yr,fr:real;
  i,fori:Integer;
for fori := 0 to 1000 do
begin
  fr:=-xr/i;
  xr:=xr+(i*fr);
  yr:=yr+(i*fr);
  // und hier zwischen passiert halt auch ncoh einges, was aber mit dem Problem wenig zu zun hat
end;