Entwickler-Ecke :: Thema anzeigen

Belowtiss - Do 27.10.05 08:08
Titel: KgV

Hallo zusammen

Ich habe versucht einen Algorithmus zu entwickeln um das kgv zweier Zahlen zu ermitteln. Meiner Meinung nach funktioniert er, aber wahrscheinlich gibt es noch einfachere Lösungen und vor allem schnellere.

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TfrmKgV.btnBerechnenClick(Sender: TObject);
var a,b,c,d : int64;
   s : string;
begin
  a := strtoint(edtZahl1.Text);
  b := strtoint(edtZahl2.Text);
  d:=a;
  repeat
    c := a mod b;
    if c > 0 then a := a+d;
  until c = 0;
  str(a,s);
  pnlausgabe.Caption := s;
end;

Moderiert von Gausi: Delphi-Tags hinzugefügt.

digi_c - Do 27.10.05 08:27

http://de.wikipedia.org/wiki/Kleinstes_gemeinsames_Vielfaches
Stellt zwei Algorithmen dazu vor.

Hier wird ein VB Algo dazu vorgestellt: http://www.galileocomputing.de/openbook/vb_net/msvb020015.htm#Rxxmsvb020015320ggTundkgV

Weiteres hat natürlich Suche bei Google

KGV KLEINSTE GEMEINSAME VIELFACHE PROGRAMMIEREN parat ;)

Narses - Do 27.10.05 09:44

Moin!

Code gibt´s auch hier im Forum, guckst du hier [http://www.delphi-forum.de/viewtopic.php?p=265948#265948].

cu
Narses

Belowtiss - Do 27.10.05 11:29

Hallo

Vielen Dank für die Hilfe. Habe gsehen, dass das ganze noch viel einfacher zu programmieren ist.

Gruss

Belowtiss