第３話 大小比較はいかにしたら出来るか?
この大小比較は、
おそらく皆さんが予想しているより、
困難な課題です。
次の例のように、
２５６３５
３２０８
桁数が違うなら、桁数の大きい方が大きい数です。
桁数を比較するには
ｎ２５６３５
ｎ３２０８
終わりの印ｎまでの桁数を数えれば済みます。
ですが、桁数が同じときに、
大きな壁が現れます。
ｎ１＊＊＊＊＊＊＊＊＊＊＊＊
ｎ２＊＊＊＊＊＊＊＊＊＊＊＊
の例から、終わりの印ｎの1つ手前の数字を比較すれば、
大小が決するように見ます。
ところが、
ｎ２＊＊＊＊＊＊＊＊＊＊＊＊
ｎ２＊＊＊＊＊＊＊＊＊＊＊＊
のように、
最高位の数字だけを比較しただけでは大小が決定できない場合があります。
次の箱を開けて中身を確認しても、
ｎ２３＊＊＊＊＊＊＊＊＊＊＊＊
ｎ２３＊＊＊＊＊＊＊＊＊＊＊＊
左から２番目の位の数字も同じになってしまうケースもあります。
では、さらにもう１つ箱を開けて
ｎ２３１＊＊＊＊＊＊＊＊＊＊＊
ｎ２３４＊＊＊＊＊＊＊＊＊＊＊
なら大小が決まりますが、
ｎ２３４＊＊＊＊＊＊＊＊＊＊＊
ｎ２３４＊＊＊＊＊＊＊＊＊＊＊
となる可能性が残ります。
ならば、もうひとつの扉を開けて、
ｎ２３４３＊＊＊＊＊＊＊＊＊＊
ｎ２３４２＊＊＊＊＊＊＊＊＊＊
なら、大小決定ですが、
ここでも、
ｎ２３４３＊＊＊＊＊＊＊＊＊＊
ｎ２３４３＊＊＊＊＊＊＊＊＊＊
再び同じになる可能性があります。
ならば、一度10進数に直して比較する手がありそうですが、
９８７６２５０７０(16)＝９×１６の８乗＋８×１６の７乗＋７×１６の６乗＋・・・
あたりで、簡単にLongの範囲を超えてしまします。
ｎ進数演算の究極の目的が、
巨大整数の研究である以上、
10進数に翻訳する方法は最初から不可能です。
ですから、パンドラの箱を開け続けるしかないのです。
ｎ２３４３１＊＊＊＊＊＊＊＊＊
ｎ２３４３１＊＊＊＊＊＊＊＊＊
ｎ２３４３１０＊＊＊＊＊＊＊＊
ｎ２３４３１０＊＊＊＊＊＊＊＊
ｎ２３４３１０３＊＊＊＊＊＊＊
ｎ２３４３１０３＊＊＊＊＊＊＊
ですが、どこまで行っても大小が決定できない場合もあります。
ｎ２３４３１０３１２３６９８７２５８
ｎ２３４３１０３１２３６９８７２５８
そうです。
同じ大きさの可能性があるのです。
桁数が同じ場合の大小比較は、
For文を使い、
終わりの印ｎの1つ手前から始めて、
大小が決定した段階で、
For文をExit Forによって強制的に抜ければよいのです。
では、ランダム２つのデータを発生させて、
大小を比較するプログラムを組んで下さい。
大小判定は、専用のファンクションプロシージャ
Function h(a() As Integer, b() As Integer, n As Integer)
を用意して、
ａの方が大きいときには２を返えし、
ｂの方が大きいときには０を返えし、
等しいときには１を返すようにして下さい。
そして、返された値を利用してPrivate Sub CommandButton1_Click()で
a<b
等を表示して下さい。
