求解一个问题。
qbasic吧
全部回复
仅看楼主
level 1
tigerastin 楼主
问题:一个正方形木块,3面为红色,2面为蓝色,1面为绿色。求抛掷这个正方体500次中每一面出现的次数以及每次是哪一面。
书上的一题。不会做,求高人指点。谢谢
2010年05月05日 04点05分 1
level 1
用随机函数把
CLS
RANDOMIZE TIMER
DIM A(6), A$(6)
A(1) = 3      '3代表红,4代表蓝,5代表绿
A(2) = 3
A(3) = 3
A(4) = 4
A(5) = 4
A(6) = 5
A$(1) = "RED"
A$(2) = "RED"
A$(3) = "RED"
A$(4) = "BLUE"
A$(5) = "BLUE"
A$(6) = "GREEN"
FOR I = 1 TO 500
   X = INT(RND * 6) + 1
   A(X) = A(X) + 1
   PRINT "NO."; I; A$(X),
NEXT I
PRINT
FOR I = 1 TO 6
   PRINT I; A(I),
NEXT I
END

2010年06月12日 09点06分 2
level 7
CLS
RANDOMIZE TIMER
DIM A(6)
FOR I=1 TO 500
   J=FIX(RND*5)+1
   PRINT J;
   A(J)=A(J)+1
NEXT I
PRINT
FOR I=1 TO 6
   PRINT A(J);
NEXT I
END
2010年11月13日 15点11分 3
level 7
CLS
RANDMIZE TIMER
DIM A(6)
FOR I=1 TO 500
     J=FIX(RND*5)+1
     SELECT CASE J
        CASE 1 OR 2 OR 3
           PRINT "RED";" ";:RED=RED+1
        CASE 4 OR 5
           PRINT "BLUE";" ";:BLUE=BLUE+1
        CASE ELSE
           PRINT "GREEN";" ";:GREEN=GREEN+1
      END SELECT
NEXT I
PRINT
PRINT RED;BLUE;GREEN:END
2010年11月13日 15点11分 4
1