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

世界のナベアツにBASICで挑戦！おもろ〜

　　世界のナベアツにBASICで挑戦！　おもろ〜 山中和義 2008/10/06 22:02:23  (修正1回)
　　└個数を計算する式があるみたいです。 山中和義 2008/10/07 14:22:03 

　　世界のナベアツにBASICで挑戦！　おもろ〜 山中和義 2008/10/06 22:02:23  (修正1回)  ツリーへ
世界のナベアツにBASICで挑戦！　おもろ〜 返事を書く ノートメニュー
山中和義 <drdlxujciw> 2008/10/06 22:02:23 ** この記事は1回修正されてます
!３の倍数と３の付く数を表示する

LET N=100 !出力範囲

FOR i=1 TO N
IF MOD(i,3)=0 OR POS(STR$(i),"3")>0 THEN PRINT i
NEXT i


!ショートコードとしては、上記のようになる。
!プログラミングの練習に、「３の倍数」と「３の付く数」の判定方法を検討してみる。


!●進数表記

FOR i=1 TO N
IF MOD(i,3)=0 THEN !３進数表記の数の最下位が０なら
PRINT i
ELSE !重複表示を避ける
LET a=i
DO WHILE a>0 !最下位から各桁を確認する　※10進法→10進法変換
IF MOD(a,10)=3 THEN !３が付くなら
PRINT i
EXIT DO
END IF
LET a=INT(a/10) !次の桁へ
LOOP
END IF
NEXT i



!●３の倍数の判定 - ３で割り切れる、３の倍数

!その１
FUNCTION GCD(a,b) !最大公約数
IF b=0 THEN LET GCD=a ELSE LET GCD=GCD(b, MOD(a,b))
END FUNCTION

FOR i=1 TO N
IF GCD(i,3)=3 OR POS(STR$(i),"3")>0 THEN PRINT i !３で割り切れる
NEXT i



!その２
DEF LCM(a,b)=a*b/GCD(a,b) !最小公倍数

FOR i=1 TO N
IF i=LCM(i,3) OR POS(STR$(i),"3")>0 THEN PRINT i !３の倍数
NEXT i



!その３
FOR i=1 TO N
IF i=INT(i/3)*3 OR POS(STR$(i),"3")>0 THEN PRINT i !３の倍数
NEXT i



!その４
FOR i=1 TO N
LET s=0

LET flg=0

LET a=i
DO WHILE a>0 !各桁を確認する
LET k=MOD(a,10)

LET s=s+k !各桁の数の和

IF k=3 THEN LET flg=1 !３が付くなら

LET a=INT(a/10) !次の桁へ
LOOP

IF MOD(s,3)=0 OR flg=1 THEN PRINT i !和が３の倍数は、３の倍数
NEXT i


END
 
　　└個数を計算する式があるみたいです。 山中和義 2008/10/07 14:22:03   ツリーへ
Re: 世界のナベアツにBASICで挑戦！　おもろ〜 返事を書く ノートメニュー
山中和義 <drdlxujciw> 2008/10/07 14:22:03
個数を計算する式があるみたいです。



!世界のナベアツ - ３の倍数と３の付く数の個数

LET k=5 !桁数

FOR i=1 TO k
PRINT "1 から";10^i;"までの範囲は、";10^i-(2/3)*9^i-1;"個です。"
NEXT i





DIM c(k) !各桁での個数
MAT c=ZER

FOR i=1 TO 10^k !実際に数えてみる
LET s$=STR$(i)
IF MOD(i,3)=0 OR POS(s$,"3")>0 THEN !３で割り切れる、位のどこかに３の数字がある
LET L=LEN(s$) !桁数を得る
LET c(L)=c(L)+1 !＋１
!PRINT i
END IF
NEXT i

MAT PRINT c; !結果を表示する


END

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