23(4): デフォルトの名無しさん [] 2017/01/27(金) 20:21:16.13 ID:tSNcnN0K(1) AAS
>>21-22 よくわかんないけと゛、Type 命令文関係を見てみます。

虚数演算と同じファイルに放り込んでおいたのが、整数演算。
'外部ﾘﾝｸ[htm]:rucio.a.la9.jp
で見つけた内容をコピーしただけのルーチン(何やっているのかわからなかった)がいくつか。
で、問題は
Function LCM(ParamArray Values() As Variant) As Long
の「ParamArray 」、の部分。これに対応できるらしい命令が
Function Overload　系処理。
外部ﾘﾝｸ[html]:makoto-watanabe.main.jp
外部ﾘﾝｸ[html]:makoto-watanabe.main.jp

Declare Function AAAA OverLoad (InA1 As Long, InA2 As Long, InA3 As Long) As Long
Declare Function AAAA OverLoad (InA1 As Long, InA2 As Long) As Long
Declare Function AAAA(InA() As Long) As Long

と、OverLoad 句のついている Declare を先に、ついていないDeclare文を後ろにと、並べないとエラーになる。
間に別の名称の文を入れても解釈してくれるみたい。
Declare Function AAAA OverLoad (InA1 As Long, InA2 As Long, InA3 As Long) As Long
Declare Function AAAA OverLoad (InA1 As Long, InA2 As Long) As Long
Declare Function BBBB(InA() As Long) As Long
Declare Function AAAA(InA() As Long) As Long

25(2): デフォルトの名無しさん [] 2017/01/28(土) 10:58:26.28 ID:8XnTGJGH(1/2) AAS
>>24　最小公倍数、最大公約数を求めることはできるのだが
外部ﾘﾝｸ[html]:ameblo.jp
に示された方法が理解できない。
覚えている方法は、素数表と簡易除算
外部ﾘﾝｸ[html]:ameblo.jp
を覚えて、出題範囲の関係で 11,13,17,19 の2乗を覚えて
手計算でやる方法しか理解できない。こんな感じ
　　12　24
2 　 6　12
2 　 3　 6
3 　 1 　3
区切り線は略。
縦に　2*2*3 = 12 が最大公約数
さらに横をかけて、2*2*3*1*3 = 36 が最小公倍数
素数表がなくて、役数を積んでないので、わからない。
なお、自作した多倍精度ルーチンでは、約数と残りをもとめて、作ったけど
既約か可約かの判断に1000桁ぐらいの数で１回５秒ぐらいかかる。
高速化したいがこれもわからないでいる。

29(1): デフォルトの名無しさん [] 2017/01/28(土) 18:42:25.36 ID:8XnTGJGH(2/2) AAS
>>27　最大公約数は「ユークリッドの互除法」
なら、わからない理由が分かった。
「ユークリッドの互除法」を高校1年目にやったんだけど、何が何だかわからない。
んで、他の教科もわからなくなって、高校中退したんだわ。

高校中退の原因の一つが「ユークリッドの互除法」。今は昔。
整数問題がよくわからなくて、結局、公式を使わないで定理から力技で無理やり計算する日々。