新しく発言する EXIT インデックスへ

最小公倍数

　　最小公倍数 R-7 2008/03/25 08:45:18 
　　├筆算のように倍数を列挙して求めてみると、... 山中和義 2008/03/25 10:38:42  (修正2回)
　　└最大公約数から求める方法もあります 荒田浩二 2008/03/25 18:07:59 

Re: 最小公倍数	返事を書く ノートメニュー
荒田浩二 <knrztrhoel> 2008/03/25 18:07:59
最大公約数から求める方法もあります REM 最小公倍数を求める !十進BASICサンプルプログラム"\DECIMAL BASIC\BASICw32\Math\GCDLOOP.BAS"参照 100 REM 互除法により，入力された2数の最大公約数を求める 110 INPUT a,b LET k1=a LET k2=b 120 DO 130 LET r=MOD(k1,k2) 140 IF r=0 THEN EXIT DO 150 LET k1=k2 160 LET k2=r 170 LOOP 180 PRINT a;b PRINT "最大公約数";k2 PRINT "最小公倍数";a*b/k2 190 END

インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。