エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
暗号と整数の世界 ユークリッドの互助法
'VB2005 コンソールアプリケーション Module Module1 Sub Main() Dim a, b, d As Decimal a = 183768 : ... 'VB2005 コンソールアプリケーション Module Module1 Sub Main() Dim a, b, d As Decimal a = 183768 : b = 132804 d = Gcd(a, b) Console.WriteLine("a={0} b={1} gcd={2}", a, b, d) Console.ReadLine() End Sub Function Gcd(ByVal a As Decimal, ByVal b As Decimal) As Decimal Dim q, m, n, r As Decimal m = a : n = b r = m Mod n q = m \ n 'Console.WriteLine("m={0} N={1} r={2} q={3}", m, n, r, q) Do Until r = 0 m = n : n = r r