簡単なゲーム
出典: フリー百科事典『ウィキペディア(Wikipedia)』 (2021/07/19 08:17 UTC 版)
このプログラムは1-10の範囲の中で無作為に選ばれた数を当てることをユーザに要求する。通常存在する「高い」/「低い」のヒントを提供しない。 CLSPRINT "Guess My Number" INPUT "Would you like to play"; choice$ 'INPUT文 - ユーザの入力を受け取るchoice$ = UCASE$(choice$) '入力を完全に大文字にする(例:fkld->FKLD)IF choice$ <> "YES" AND choice$ <> "Y" THEN '彼らが遊びたいかどうかを判断する ENDEND IFguesses% = 5 '推測する回数を入力するRANDOMIZE TIMER '乱数発生器をセットするtarget% = INT(RND * 10) + 1 WHILE guesses% > 0 INPUT "Guess a number: ", guess% '入力(推測)を取る IF guess% = target% THEN '推測が正しいかどうかを判断する PRINT "You win!" END ELSE guesses% = guesses% - 1 PRINT "Sorry, please try again. You have ";guesses%;" guesses left." END IFWEND PRINT "You ran out of guesses, the number was "; target%END
※この「簡単なゲーム」の解説は、「QBasic」の解説の一部です。
「簡単なゲーム」を含む「QBasic」の記事については、「QBasic」の概要を参照ください。
- 簡単なゲームのページへのリンク