第６話 ユークリッド互除法を利用して最小公倍数を求めるマクロ例
を実現するプログラム例
Private Sub CommandButton1_Click()
Rows("4:2000").Select
Selection.ClearContents
Cells(1, 1).Select
Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer
a = f
a = a * f
a = a * f
b = f
b = b * f
b = b * f
c = a
d = b
Cells(3, 2) = c
Cells(3, 3) = d
If b > a Then Call g(a, b)
e = h(a, b)
Cells(4, 1) = "上記整数の最小公倍数は"
Cells(5, 1) = Int((c / e) * d)
Cells(5, 2) = "です。"
End Sub
Function f()
tobi:
f = Int(20 * Rnd)
If f = 0 Then GoTo tobi
End Function
Sub g(a As Integer, b As Integer)
Dim w As Integer
w = a
a = b
b = w
End Sub
Function h(a As Integer, b As Integer)
a = a Mod b
If a = 0 Then
h = b
Exit Function
End If
h = h(b, a)
End Function
Private Sub CommandButton2_Click()
Rows("4:2000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
Int((c / e) * d)が工夫した場所です。
Int(c * d / e)だとオーバーフローします。
次ぎに、最小公倍数を利用して
分数の足し算ａ／ｃ＋ｂ／ｄ
を考えましょう。
今回、２つの整数がなるべく互いに素にならないように、
２０以下の３つの整数の積としましたが
それでも残念ながら、互いに素になってしまう場合が結構ありますから、
絶対にｃとｄが互いに素にならないように、
工夫して下さい。
Integer型で収まるように発生させる整数は１００未満にしましょう。
