こんにちは．悠瑠です．今回は，研究会の前回のイベントと次回のイベントについて書いていきたいと思います．
２月２日に開催した「高校数学をパソコンに解かせてみよう」のはつとん生限定配信ではあるコメントが届きました．
「ユークリッドの互除法を使って，最大公約数を求めるプログラムを作ってほしいです」といった意見がありました．
今回，さっそく作ってみました．（２月３日現在）
このようなプログラムです．
Option Explicit
MsgBox "アプリを起動しています。",,"最大公約数を求めるツール"
MsgBox "必ず半角で入力してください．全角で入力した場合エラーになります．",,"最大公約数を求めるツール"
Dim s1
s1 = Cint(InputBox ("aとbの最大公約数を求めます．aの値を入力してください．","最大公約数を求めるツール","半角で入力してください。"))
Dim s2
s2 = Cint(InputBox ("aとbの最大公約数を求めます．bの値を入力してください．","最大公約数を求めるツール","半角で入力してください。"))
If s1 > 0 and s2 > 0 Then
Dim an
Dim a
Dim b
Dim s3
Dim s4
If s1>s2 Then
b = 1
Do Until b = 0
an = s2
a = s1 \ s2
b = s1 mod s2
an = s2
s1 = s2
s2 = b
Loop
Else
b = 1
Do Until b = 0
an = s2
a = s2 \ s1
b = s2 mod s1
an = s1
s2 = s1
s1 = b
Loop
End If
MsgBox "最大公約数：" & an,,"平均を求めるツール"
MsgBox "アプリを終了しています．",,"最大公約数を求めるツール"
Else
MsgBox "自然数を入力してください．",,"最大公約数を求めるツール"
MsgBox "アプリを終了しています．",,"最大公約数を求めるツール"
End If
このように，２数の自然数を入力するとその最大公約数が計算されるようになっています．
計算は，ユークリッドの互除法をパソコンにさせた，まさに高校数学をパソコンに解かせてみました．
それでは，次のイベントについてのお知らせです．
来週のイベントはこの２つです．
みなさんのたくさんのご参加をお待ちしております．
今週のブログは以上です．
次回の更新は，２月１６日です．お楽しみに！
Comments