Forum: Algorithmen, Datenstrukturen und Klassendesign
by s.h.a.r.k,
6. Jul 2011
Okay, lasse mich gerne berichtigen :stupid:
Hier noch eine Version für den GGT:
// http://de.wikipedia.org/wiki/Steinscher_Algorithmus
function GGT(NumberA, NumberB: Int64): Int64;
var
K, T : Int64;
begin
if (NumberA = 0) then
Exit(NumberB);
Forum: Algorithmen, Datenstrukturen und Klassendesign
by s.h.a.r.k,
6. Jul 2011
Äh?! Jup!
// Hier mal eine Version für D2010 aufwärts
TAspectRatio = record
X, Y: Integer;
procedure CalcRatio(const XRes, YRes: Integer);
end;
procedure TAspectRatio.CalcRatio(const XRes, YRes: Integer);
var
GGT: Integer;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by s.h.a.r.k,
6. Jul 2011
Sollte doch über den GGT gehen.
-- EDIT: Jup, habs gerade mal schnell mit Excel getestet. Einfach den GGT beider Zahlen ermitteln, dann dadurch teilen und man hat das passende Ergebnis.