|
Registriert seit: 30. Nov 2005
Ort: München
5.757 Beiträge
Delphi 10.4 Sydney
|
AW: ggT und KgV von 2 Zahlen berechnen - absolut keine Ahnung
22. Nov 2010, 15:24
kgv:= abs(z1*z2) div ggt(z1,z2)
Quelle:  http://de.wikipedia.org/wiki/Kleinst...mes_Vielfaches
Aus diesem Grund wäre es auch von Vorteil wenn ggt ein Funktion wäre
und nicht wie in Deinem Code vollständig in der ButtonClick Methode deklariert wird.
Grüße
Klaus
Klaus
Geändert von Klaus01 (22. Nov 2010 um 21:37 Uhr)
Grund: / durch div ersetzt
|