小数点第一位まである数字、12個の最小公倍数を出すプログラムをExce

質問

小数点第一位まである数字、12個の最小公倍数を出すプログラムをExcelで作りたいのですが、どうやったら良いのでしょうか？

わかる方いらっしゃいましたら教えてください。
宜しくお願いします。

回答No.2

BookerL · ベストアンサー

最小公倍数というのは整数についての概念です。

http://ja.wikipedia.org/wiki/%E5%85%AC%E5%80%8D%E6%95%B0
より
＞公倍数（こうばいすう）とは、2つ以上の正の整数の、それらに共通する倍数のことをいう

　小数でそのようなことをするなら、そこで使う「最小公倍数」の定義が必要です。

　例えば、２　と　２．５　の最小公倍数は、いくらになればいいのでしょう。

２の整数倍　２　４　６　８　１０　１２　……

と

２．５の整数倍　２．５　５　７．５　１０　１２．５　……

とで共通する最小の数とすれば １０　ということになりますが、

小数第１位までの数を扱うということでやっているのならば、

２の「小数第１位までの数」倍 つまり、０.１倍、０.２倍　……　を考えて
　０．２　０．４　０．６　０．８　１　１．２……

２．５の「小数第１位までの数」倍 ただし、かけた結果が小数第１位までの数とすると
０.２倍、０.４倍……を考えて
　０．５　１　１．５　……

とで共通する最小の数は　１　ということになります。

　他にも考え方があるかも知れません。

　ということで、「小数第１位までの数の最小公倍数」の定義を示してください。

お礼

最小公倍数は整数についての定義だったのですか。
基本がなっていませんでした。

ありがとうございました。

回答No.1

ASIMOV

12個全体の最小公倍数ということですよね
その数列が、ある程度規則的な並びなら何とか成りそうですが、ランダムな数だと、Excelで計算できる桁の限度を超える可能性が有ります

図は、適当な数を設定して計算したものですが、１０個めでオーバーフローしてしまいました

一応、計算方法．．．
少数では計算できないの下駄を履かせて（１０倍して）整数にして計算します
１２個一度には出来ないので、２個づつ行います
計算は下記のユーザー関数を標準モジュールに書き込みます
----------------------------------
Function flcm(x As Long, y As Long) As Long
　　Dim g As Long
　　g = fgcm(x, y)
　　flcm = x / g * y / g * g
End Function
Function fgcm(a As Long, b As Long)
　　Dim r As Long, tmp As Long, z As Long
　　If a < b Then
　　　　tmp = a: a = b: b = tmp
　　End If
　　r = a Mod b
　　If r = 0 Then
　　　　z = b
　　Else
　　　　z = fgcm(b, r)
　　End If
　　fgcm = z
End Function
--------------------------
D3 =flcm(C2,C3)
D4 =flcm(C4,D3) として、以下コピーします
Ｅ列は1/10にして、桁を元に戻しています