Entwickler-Ecke

Sonstiges (Delphi) - Kleinstes Gemeinsames Vielfache von Zahlen


Ottchen - Mi 20.11.02 16:10
Titel: Kleinstes Gemeinsames Vielfache von Zahlen
Hallo Liste!

Kennt jmd. einen Algorithmus zur Bestimmung des kgV von Zahlen(Umsetzung mit Repeat-Until)?

Danke! :lol:

Ottchen


waldmeister - Mi 20.11.02 16:37
ich hab keine ahnung wie das mit repeat until geht, aber ich weiß wie es mit ner while-Schleife geht. das kann man ja bestimmt abändern.


Erstmal muss man den ggT bestimmen um dann damit den kgv zu berechenen:

Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
 
function ggt(x,y: Integer):Integer;
var
z: Integer;
begin
while x<>y do begin
z:=x-y;
if z>0 then
x:=z
else
y:=-z;
end;
result:=x;
end;

function kgv (zahl1,zahl2,ggt): real;
begin
result:=zahl1*zahl2/ggt;
end;

procedure TForm1.btnRechneClick(Sender: TObject);
var
zahl1, zahl2: Integer;
ggteiler,vielfaches: Real;
begin
zahl1:=StrToInt(edtZahl1.text);
zahl2:=StrToInt(edtZahl2.text);
ggteiler:=ggt(zahl1,zahl2);
kgvielfaches:=kgv(zahl1,zahl2,ggt);
lblausgabe.caption:=Floattostr(kgvielfaches);
end;


Ich hab den Quelltext aus nem Programm von mir entnommen, also musst du die Bezeichnung der Edits und Buttons noch ändern.


Ottchen - Mi 20.11.02 19:09
Titel: Hallo Waldmeister
Hallo Waldmeister,

vielen Dank für die super-schnelle Antwort. Das Umschreiben bekomme ich schon hin. Nun hast du mir gleich noch eine Möglichkeit gegeben, mit Funktionen zu arbeiten. Das habe ich auch noch nicht gemacht.

Super!

Danke!!

Ottchen


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!