札幌で個別指導塾開業を目指す三十代男性の日記
 現在、札幌在住の30代の私(40代突入しました)が、個別指導塾開業を目指す過程をブログにしてみようと思いました(開業しました)。教育関係のことなどもいろいろと書き込みたいと思います。 リンクフリー
出てない数字ゲーム
 この間買ってきたゲームロボット15。出てない数字を入力していくゲームが面白かったのでプログラムを作ってみました。BASICは無料でダウンロード出来きます。下記のブログラムを入力すれば遊べます。
 
 IF文多用でGOTO文も使ったりしてまるで素人のようですが、その分解読が容易になっています。


 ゲームの説明

 1~30までの数字をコンピューターと交互に出していく。ただし、以前に出てきた数字は使用不可で、出した時点でゲームオーバー。

 一見、簡単なようですが、だんだん難しくなっていきます。全部クリアーした生徒は今のところいません。10は超えるんですけどね。そこからが難しいようです。無事15回出し切れたらクリアーです。

 プログラム

 10 cls:dim suuji(30):seikaisu=0
 20 for I=1 to 30:suuji(i)=0:next I
 30 co=int(rnd(1)*30)+1
 40 if seikaisu = 15 then print "perfect!!":end
 50 if suuji(co)=1 then goto 30 else print co
 60 for i=1 to 100000:next i:cls
 70 suuji(co)=1
 80 input my:cls
 90 if my=0 or my>30 then print "hansokumake!!":end
 100 if suuji(my)=1 then print "game over":print seikaisu:end
 110 if suuji(my)=0 then seikaisu=seikaisu+1:suuji(my)=1
 120 goto 30


 1~30までの数字ですが、40までとか50までとかでやりたい場合は、30という数字を40や50に変更してください。ただし行番号の30とgoto 30の所はそのままで。
 行番号40の15の所をやりたい数字までの半分の数字にします。
 コンピューターが出している数字の表示時間を変えたい場合は、行番号60の100000という数字を増やしたり減らしたりして調整して下さい。 

 記事書いているうちになんか説明書くの面倒になったので、最初にいくつまでの数字でやりたいか入れるプログラムも作ってみました。
 最初にいくつまでの数字でやりたいか聞いてくるので偶数の数字を入れてください。奇数を入れると絶対クリアできないゲームが出来上がります。そのへんの入力制限つくるの面倒くさいので……
 奇数でやりたければ、N/2の所を…… 長くなりそうなのでやめます。

 10 cls:input n
 20 dim suuji(n):seikaisu=0
 30 for I=1 to n:suuji(i)=0:next I
 40 co=int(rnd(1)*n)+1
 50 if seikaisu = n/2 then print "perfect!!":end
 60 if suuji(co)=1 then goto 40 else print co
 70 for i=1 to 100000:next i:cls
 80 suuji(co)=1
 90 input my:cls
 100 if my=0 or my>n then print "hansokumake!!":end
 110 if suuji(my)=1 then print "game over":print seikaisu:end
 120 if suuji(my)=0 then seikaisu=seikaisu+1:suuji(my)=1
 130 goto 40

 こういうゲームって、私の時代にいろいろなものがたくさんありました。きっと、このゲームも昔からあったんでしょうね。私の世代なら、こういうプログラムを組んでいた人も多いはずです。懐かしいと思います。懐かしさついでに、プログラムも解読が難解な悪いのにしようかとも思いましたが、中高生もいるかもしれないのでやめました。他人のプログラム解読すると力つきますよね。特にマニアックなやつ。
 
 
 
 前回の答え

 正解は3のストレッサー。1番のお母さんは当たらずとも遠からずかも……


 第236問

 四つの辺が等しい四角形を何という? (中学数学2年)

 1 ひし形
 2 長方形
 3 正方形
 4 ひと形
 5 平行四辺形
関連記事


スマホ汚染

新宿で女子大生が大量に倒れる

死を生み出している産業

札幌麻生個別指導のホームページへ
ブログタイトルをクリックすると新しい記事から順に読めます
この記事に対するコメント

こんにちは!先日は足跡を残して下さり有難うございました!
若くして塾を開業されるとはとても凄い!

自分はもっぱら勉強が苦手な人間でした。
これからチョクチョクと他の記事も拝見させて頂きます。
大人になった今もしっかり勉強はしないといけませんね。汗
【2015/10/09 12:06】 URL | 文々 #- [ 編集]


この記事に対するコメントの投稿














管理者にだけ表示を許可する



にほんブログ村 教育ブログへ
リンク

このブログをリンクに追加する



最近の記事



カテゴリー



FC2カウンター



アクセスランキング

[ジャンルランキング]
学校・教育
124位
アクセスランキングを見る>>

[サブジャンルランキング]
塾・予備校
11位
アクセスランキングを見る>>



プロフィール

sapporoedu

Author:sapporoedu



最近のコメント



最近のトラックバック



ブログランキング

FC2ブログランキング



月別アーカイブ



ブログ内検索



RSSフィード



ブロとも申請フォーム

この人とブロともになる