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

最小公倍数

　　最小公倍数 R-7 2008/03/25 08:45:18 
　　├筆算のように倍数を列挙して求めてみると、... 山中和義 2008/03/25 10:38:42  (修正2回)

Re: 最小公倍数	返事を書く ノートメニュー
山中和義 <drdlxujciw> 2008/03/25 10:38:42 ** この記事は2回修正されてます
筆算のように倍数を列挙して求めてみると、、、 INPUT a,b !２つの正の整数を得る FOR m=1 TO 20 !※調整要 PRINT a*m; !aの倍数を表示する NEXT m PRINT FOR n=1 TO 20 PRINT b*n; !bの倍数を表示する NEXT n PRINT !表示された数列中の最初に一致した数が最小公倍数になる。 END 倍数を模索するように改良すると、、、 ●その１ INPUT a,b !２つの正の整数を得る FOR m=1 TO b !aの倍数の中で、bで割り切れるものを探す IF MOD(a*m,b)=0 THEN PRINT a*m !公倍数 NEXT m END ●その２ INPUT a,b !２つの正の整数を得る LET m=1 !１倍 LET n=1 LET am=a*m !aのm倍、bのn倍 LET bn=b*n PRINT am;bn DO UNTIL am=bn !一致するまで IF am>bn THEN LET n=n+1 !倍数を増やす ELSE LET m=m+1 END IF LET am=a*m !次へ LET bn=b*n PRINT am;bn LOOP PRINT a;"の";m;"倍" PRINT b;"の";n;"倍" PRINT "最小公倍数=";am END

　　└最大公約数から求める方法もあります 荒田浩二 2008/03/25 18:07:59 

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