Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Brüche kürzen- wieder einmal

   
    by Flare, 19. Dez 2006
  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:
  
  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;
  ...