Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  BASIC_ DICE
Language: BASIC
Code:
DIM A AS  INTEGER  
DIM R AS  INTEGER 
DIM B AS  INTEGER  
DIM C AS  INTEGER 
DIM D AS  INTEGER 
DIM E AS  INTEGER 
DIM F AS  INTEGER  
DIM G AS  INTEGER  
DIM H AS  INTEGER 
DIM S AS  INTEGER  
DIM T AS  INTEGER  
DIM X AS  INTEGER 
DIM Y AS  INTEGER 
DIM Z AS  INTEGER  
S = 0
 FOR R = 1 TO 10
 FOR A = 1 TO 6
 FOR B = 1 TO 6 
 FOR C = 1 TO 6 
 FOR D = 1 TO 6 
 FOR E = 1 TO 6 
 FOR F = 1 TO 6
 FOR G = 1 TO 6 
 FOR H = 1 TO 6
                                               
      X = A + B + C + D + E + F + G + H                             
      Y = X MOD ( 10 )                                   
      IF  Y = S THEN Z = Z + 1
                                        
                                     
 NEXT H 
 NEXT G 
 NEXT F 
 NEXT E 
 NEXT D
 NEXT C
 NEXT B
 NEXT A
 
 T = T + Z 
 PRINT Z , " = ", S
 S = S + 1
 NEXT R 
 PRINT T, " = TOTAL " 
             
          
          
          
Comments: