Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Wie kann ich in Pascal kürzen?

    Delphi
    by Niko, 17. Nov 2003
  Ich habe die von mir gepostete Funktion eben mit ein paar Zahlen ausprobiert und sie hat für alle richtige Ergebnisse geliefert (was aber nichts heißen muss). Nenn doch mal zwei Zahlen, bei denen ein falsches Ergebnis herauskommt.
  Mirilins Funktion dürfte so ziemlich auf das selbe hinauslaufen, nur etwas verdreht.
• Forum: Object-Pascal / Delphi-Language

  Re: Wie kann ich in Pascal kürzen?

    Delphi
    by Niko, 17. Nov 2003
  :oops: Es sollte größter gemeinsamer Teiler heißen, ich seh mir die Funktion aber noch mal an.
  Die Prozedur ist die vorletzte auf der genannten Seite (Überschrift "Das ganze noch rekursiv").
• Forum: Object-Pascal / Delphi-Language

  Re: Wie kann ich in Pascal kürzen?

    Delphi
    by Niko, 7. Nov 2003
  Zum Kürzen des Bruches bestimmst du zuerst das größte gemeinsame Vielfache von Zähler und Nenner, durch das du dann beide teilst.
  
  Folgende Funktion liefert den GGT für zwei Zahlen (Basierend auf http://www.linux-related.de/coding/alg_euklid.htm):
  function ggt(u, v: Integer): Integer
  begin
  if u > 0 then
  Result := ggt(v mod u, u)
  else
  Result := v;
  end;