RANDOMIZE

DEF judge(y,m)=MOD(y-m+3,3) !判定を行う関数　0:ひき分け、1:勝ち、2:負け

DIM t$(0 TO 2) !勝敗
LET t$(0)="あいこ"
LET t$(1)="勝 ち"
LET t$(2)="負 け"

DIM s$(0 TO 2) !手
LET s$(0)="グー "
LET s$(1)="チョキ"
LET s$(2)="パー "

LET DD=0
LET WW=0
LET LL=0

PRINT
PRINT "１回きりジャンケンを９０００回施行したら、"
PRINT

LET guY=1/3    ! 相手がグーを出す確率
LET choY=1/3   ! 相手がチョキを出す確率
LET guM=1/3    ! 自分がグーを出す確率
LET choM=1/3   ! 自分がチョキを出す確率

FOR i=1 TO 9000

   LET YY=RND    ! RNDはランダムに０〜１の間の有理数数を返す。
   IF 0<YY AND YY<guY THEN LET YY=0
   IF guY<YY AND YY<guY+choY THEN LET YY=1
   IF guY+choY<YY AND YY<1 THEN LET YY=2
    
   LET MM=RND
   IF 0<MM AND MM<guM THEN LET MM=0
   IF guM<MM AND MM<guM+choM THEN LET MM=1
   IF guM+choM<MM AND MM<1 THEN LET MM=2
    
   IF judge(YY,MM)=O THEN LET DD=DD+1
   IF judge(YY,MM)=1 THEN LET WW=WW+1
   IF judge(YY,MM)=2 THEN LET LL=LL+1
    
   IF i=1 THEN
      PRINT "初回のじゃんけんの結果："
      PRINT "   相手：";s$(YY)
      PRINT "    私 ：";s$(MM)
      PRINT "      ⇒ ";t$(judge(YY,MM))
      PRINT
   END IF
    
NEXT i

PRINT "あいこ：";DD;"  ";INT(1000*DD/(DD+WW+LL))/10;"%"
PRINT "勝 ち ：";WW;"  ";INT(1000*WW/(DD+WW+LL))/10;"%"
PRINT "負 け ：";LL;"  ";INT(1000*LL/(DD+WW+LL))/10;"%"
PRINT

END