Also unter formatiert verstehe ich zwar etwas anderes, habe es mir aber tortzdem mal angeschaut. Du hattest einen Fehler in der Procedure Kuerze, so müsste sie richtig aussehen:
Delphi-Quellcode:
Procedure TForm1.kuerze(a,b:real;var c,d:real);
var teiler:real;
begin
teiler:=a;
while (frac(a/teiler) <> 0) or (frac(b/teiler) <>0) do // mod mit frac ersetzt
teiler:=teiler-1;
c:=a/teiler;
d:=b/teiler;
end;
Du kannst den Befehl
mod nicht auf den Typ real anwenden, sondern nur auf Ganzzahlen wie Integer, Byte und Word.
Ob dein Programm durch meine Veränderung richtige Werte liefert habe ich aber nicht überprüft.
Flare