Wie kann ich in Pascal kürzen?

[Niko]

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):

Delphi-Quellcode:

function ggt(u, v: Integer): Integer
begin
  if u > 0 then
    Result := ggt(v mod u, u)
  else
    Result := v;
end;