「99BASIC」で動作するプログラムを作りました。RANDOMIZEは乱数初期化、RNDは0から1未満の乱数です。他言語への移植は容易です。
10 REM 1 kara 12 made no ransu- wo 6 ko hyouzi suru
20 RANDOMIZE
30 FOR I=1 TO 6
40 PRINT RIGHT$(" "+STR$(INT(RND*12)+1),2);" ";
50 NEXT I
60 END
電卓で出来る方法としては、目をつぶって３桁位の数字を入力し、１２で割って、整数部分を引いて、１２を掛けます。四捨五入して値を求めます。たとえば「123」を１２で割って「10.25」、１０を引いて「0.25」、１２を掛けて「3」です。
投稿日時 - 2010-02-21 02:06:47
お礼
早々にありがとうございました。
さっそく試してみます。
今後も判らないことがありましたら、よろしくお願いします。
投稿日時 - 2010-02-21 16:28:33
1人が「このQ&Aが役に立った」と投票しています
ベストアンサー以外の回答（1件中 1～1件目)
