blogMyTrash

‘kleinstes gemeinsames vielfaches zweier Zahlen mit VB-Script bestimmen

Dim dummy
Dim aktRest
Dim z1
Dim z2
Dim ggt
Dim kgv

z1 = InputBox(“Dividend für die Division?”)
z2 = InputBox(“Divisor für die Division?”)

‘ Wenn die erste Zahl größer ist, dann Zahlen tauschen
If z1 < z2 Then
dummy = z2
z2 = z1
z1 = dummy
End If

dummy = z1*z2
aktRest = z1 Mod z2

If aktRest = 0 Then
‘ Wenn aktRest = 0 ist, ist der GGT die kleinere Zahl (z2)
ggt = z2
Else
‘ Ansonsten wird mit dem euklidischen Algorithmus weiter geprüft
z1 = z2
z2 = aktRest
ggt = aktRest
End If

While z1 Mod z2 <> 0
‘ Ergibt die Division der Zahlen = 0, dann ist der GGT gefunden
‘ Ansonsten fahren wir mit dem euklidischen Algorithmus fort
aktRest = z1 Mod z2
z1 = z2
z2 = aktRest
ggt = aktRest
Wend

kgv = dummy/ggt

msgbox “GGT: ” & ggt & vblf & “KGV: ” & kgv
‘kleinstes gemeinsames vielfaches zweier Zahlen ausgeben