help with dice school project "dice program" 
	 
	
		| Author | 
		Message | 
	 
		 
		RYAN191
 
 
 
    
		 | 
		
		
			
				  Posted: Thu Apr 09, 2009 4:02 pm    Post subject: help with dice school project "dice program"  | 
	
				
				 | 
			 
			 
				
  | 
			 
			
				Create a program that will play the following game. The computer will use a pair of dice. Before the
 
game begins the computer will ask the user how many times to roll and how many times the roll will
 
match the first roll. The computer is to roll once to see the first roll. On each successive roll the
 
computer is to count the total number of times the total is matched. While running, the computer is
 
to output a chart indicated the results of each role, whether the total was matched and whether the
 
die numbers matched. A total match results in a single point. Another point is given when the
 
specific numbers are also matched.
 
 
this is the outline for the project im doing can someone help change it   
 
____________________________________
 
	  | Turing: | 	 		  colour(blue) 
put "Welcome to the game Dice" 
colour(black) 
procedure die1 
 drawbox(300, 50, 200, 150, 7) 
drawfilloval(250, 100, 10, 10, 7) 
end die1 
 procedure die2 
 drawbox(300, 50, 200, 150, 7) 
drawfilloval(285, 135, 10, 10, 7) 
drawfilloval(215, 65, 10, 10, 7) 
end die2 
 procedure die3 
 drawbox(300, 50, 200, 150, 7) 
drawfilloval(285, 135, 10, 10, 7) 
drawfilloval(215, 65, 10, 10, 7) 
drawfilloval(250, 100, 10, 10, 7) 
end die3 
 procedure die4 
 drawbox(300, 50, 200, 150, 7) 
drawfilloval(285, 135, 10, 10, 7) 
drawfilloval(215, 65, 10, 10, 7) 
drawfilloval(285, 65, 10, 10, 7) 
drawfilloval(215, 135, 10, 10, 7) 
end die4 
 procedure die5 
 drawbox(300, 50, 200, 150, 7) 
drawfilloval(285, 135, 10, 10, 7) 
drawfilloval(215, 65, 10, 10, 7) 
drawfilloval(285, 65, 10, 10, 7) 
drawfilloval(215, 135, 10, 10, 7) 
drawfilloval(250, 100, 10, 10, 7) 
end die5 
 procedure die6 
 drawbox(300, 50, 200, 150, 7) 
drawfilloval(285, 135, 10, 10, 7) 
drawfilloval(215, 65, 10, 10, 7) 
drawfilloval(285, 65, 10, 10, 7) 
drawfilloval(215, 135, 10, 10, 7) 
drawfilloval(215, 100, 10, 10, 7) 
drawfilloval(285, 100, 10, 10, 7) 
end die6 
 procedure d1 
 drawbox(480, 50, 380, 150, 7) 
drawfilloval(430, 100, 10, 10, 7) 
end d1 
 procedure d2 
 drawbox(480, 50, 380, 150, 7) 
drawfilloval(465, 135, 10, 10, 7) 
drawfilloval(395, 65, 10, 10, 7) 
end d2 
 procedure d3 
 drawbox(480, 50, 380, 150, 7) 
drawfilloval(465, 135, 10, 10, 7) 
drawfilloval(395, 65, 10, 10, 7) 
drawfilloval(430, 100, 10, 10, 7) 
end d3 
 procedure d4 
 drawbox(480, 50, 380, 150, 7) 
drawfilloval(465, 135, 10, 10, 7) 
drawfilloval(395, 65, 10, 10, 7) 
drawfilloval(465, 65, 10, 10, 7) 
drawfilloval(395, 135, 10, 10, 7) 
end d4 
 procedure d5 
 drawbox(480, 50, 380, 150, 7) 
drawfilloval(465, 135, 10, 10, 7) 
drawfilloval(395, 65, 10, 10, 7) 
drawfilloval(465, 65, 10, 10, 7) 
drawfilloval(395, 135, 10, 10, 7) 
drawfilloval(430, 100, 10, 10, 7) 
end d5 
 procedure d6 
 drawbox(480, 50, 380, 150, 7) 
drawfilloval(465, 135, 10, 10, 7) 
drawfilloval(395, 65, 10, 10, 7) 
drawfilloval(465, 65, 10, 10, 7) 
drawfilloval(395, 135, 10, 10, 7) 
drawfilloval(395, 100, 10, 10, 7) 
drawfilloval(465, 100, 10, 10, 7) 
end d6 
 var answer: string 
put "Would you like to roll the dice?(y/n)" 
get answer 
 if answer= "y" then 
var die  : array 1 ..  6 of procedure dice 
 
die  (1) := die1 
 
die  (2) := die2 
 
die  (3) := die3 
 
die  (4) := die4 
 
die  (5) := die5 
 
die  (6) := die6 
 
die  (Rand.Int  (1,  6)) 
var d  : array 1.. 6 of procedure dice 
 
d (1):= d1 
 
d (2):= d2 
 
d (3):= d3 
 
d (4):= d4 
 
d (5):= d5 
 
d (6):= d6 
 
d  (Rand.Int  (1,  6)) 
var diee,dce,di2,total,num1,num2: int 
put"Enter the number of the first die you have rolled:" 
get diee 
 case diee  of 
label 1 : put "You have rolled a 1" 
label 2:  put " You have rolled a 2" 
label 3 : put "You have rolled a 3" 
label 4 : put "You have rolled a 4" 
label 5:  put "You have rolled a 5" 
label 6 : put "You have rolled a 6" 
end case 
put "Enter the number of the second die you rolled:" 
get dce 
 case dce  of 
label 1 : put "You have rolled a 1" 
label 2:  put " You have rolled a 2" 
label 3 : put "You have rolled a 3" 
label 4 : put "You have rolled a 4" 
label 5:  put "You have rolled a 5" 
label 6 : put "You have rolled a 6" 
end case 
if diee= 1 then 
num1:= 1 
elsif 
diee= 2 then 
num1:= 2 
elsif 
diee= 3 then 
num1:= 3 
elsif 
diee= 2 then 
num1:= 2 
elsif 
diee= 3 then 
num1:= 3 
elsif 
diee= 4 then 
num1:= 4 
elsif 
diee= 5 then 
num1:= 5 
elsif 
diee= 6 then 
num1:= 6 
end if 
if dce= 1 then 
num2:= 1 
elsif 
dce= 2 then 
num2:= 2 
elsif 
dce= 3 then 
num2:= 3 
elsif 
dce= 2 then 
num2:= 2 
elsif 
dce= 3 then 
num2:= 3 
elsif 
dce= 4 then 
num2:= 4 
elsif 
dce= 5 then 
num2:= 5 
elsif 
dce= 6 then 
num2:= 6 
end if 
total:=num1+num2 
 put "The total of the two dice equals:" 
put total 
 if total=  7 then 
put "You Win!" 
elsif 
total = 11 then 
put "You Win!" 
elsif 
total  = 2 then 
put "You Lose!" 
elsif total = 3 then 
put "You Lose!" 
if total = 12 then 
put "You Lose!" 
else 
put "you must match your point value" 
end if 
end if 
end if  | 	  
 
_____________________________________________________________
 
 
 
Mod Edit: Remember to use syntax tags! Thanks   	  | code: | 	 		  [syntax="turing"]Code Here[/syntax]  | 	 
  | 
			 
			
				 | 
			 
		  | 
	 
	 
		 | 
		
		 | 
	 
	  
		  | 
	 
		 
		Sponsor Sponsor 
		 
  
		 | 
		
 | 
	 
	 
		  | 
	 
				 
		saltpro15
 
  
 
    
		 | 
		
		
			
				  Posted: Thu Apr 09, 2009 4:35 pm    Post subject: RE:help with dice school project "dice program"  | 
	
				
				 | 
			 
			 
				
  | 
			 
			
				first, please use syntax tags
 
	  | code: | 	 		  
 
[syntax="Turing"]
 
code here
 
[/syntax]
 
  | 	  
 
second, what do you want help with exactly? | 
			 
			
				 | 
			 
		  | 
	 
	 
		 | 
		
		 | 
	 
	  
		  | 
	 
				 
		RYAN191
 
 
 
    
		 | 
		
		
			
				  Posted: Thu Apr 09, 2009 5:14 pm    Post subject: Re: help with dice school project "dice program"  | 
	
				
				 | 
			 
			 
				
  | 
			 
			
				| I need it so when a user enters a nuber under 6 the dice keep rolling untill both of the dice are the number the user entered but record what was rolled previous times  on a chart | 
			 
			
				 | 
			 
		  | 
	 
	 
		 | 
		
		 | 
	 
	  
		  | 
	 
				 
		RYAN191
 
 
 
    
		 | 
		
		
			
				  Posted: Thu Apr 09, 2009 5:23 pm    Post subject: RE:help with dice school project "dice program"  | 
	
				
				 | 
			 
			 
				
  | 
			 
			
				| need to change it | 
			 
			
				 | 
			 
		  | 
	 
	 
		 | 
		
		 | 
	 
	  
		  | 
	 
				 
		TheGuardian001
 
 
 
    
		 | 
		
		
			
				  Posted: Thu Apr 09, 2009 8:35 pm    Post subject: Re: help with dice school project "dice program"  | 
	
				
				 | 
			 
			 
				
  | 
			 
			
				RYAN191 @ Thu Apr 09, 2009 4:02 pm wrote:  can someone help change it    
 
 
To put it nicely, No.
 
If you have a specific problem, we can point you in the right direction, however you will have to do all the work yourself. If you make an effort at solving the problem and still can't make it work, we can help you find the solution, but we won't do it for you. | 
			 
			
				 | 
			 
		  | 
	 
	 
		 | 
		
		 | 
	 
	  
		  | 
	 
				 
		 | 
	 
 
	
	
	 
	
	 |