TOY VOX

管理人VOX6336が昭和レトロな遊びをするだけのブログです。スマートフォンでの閲覧推奨。

素数 2

2022-12-17 13:11:03 | プログラミング初心者(プチコン3号)
以前プチコン3号で作った、ひたすら素数を言っていくゲームが面白かったので、


@INITIAL
CLS
DIM ANS[101]
FOR I=1 TO 100
ANS[I]=0
NEXT I
R=0
@SOSU
R=R+1
PRINT R
INPUT "つ目の素数 =";A
FOR I=1 TO 100
IF A==ANS[I] THEN PRINT "それはもう言いました":GOTO @END
NEXT I
FOR I=2 TO A-1
S=A MOD I
IF S==0 THEN PRINT "素数ではありません": GOTO @END
NEXT I
PRINT "素数です"
ANS[R]=A
GOTO @SOSU
@END
END

さらに改造してみた。コンピューターがひたすら素数か、素数でないかを判断する。


CLS
Q=0
@SOSU
Q=Q+1
PRINT_Q;"は ";
WAIT 100
FOR I=2 TO Q-1
S=Q MOD I
IF S==0 THEN PRINT "素数ではありません":GOTO @SOSU
NEXT I
PRINT "素数です"
GOTO @SOSU











コメント    この記事についてブログを書く
  • X
  • Facebookでシェアする
  • はてなブックマークに追加する
  • LINEでシェアする
« ブノットヤコブ橋 14 | トップ | メッツ進撃作戦 37 »
最新の画像もっと見る

コメントを投稿

プログラミング初心者(プチコン3号)」カテゴリの最新記事