problem makeing chart
Author |
Message |
RYAN191
|
Posted: Fri Apr 10, 2009 12:30 pm Post subject: problem makeing chart |
|
|
Im making this program for school and i have the program so it rolls the dice but how do i get whatever it rolls i need it to showit in a table
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
end if |
Mod Edit: Remember to use syntax tags! Thanks code: | [syntax="turing"]Code Here[/syntax] |
|
|
|
|
|
 |
Sponsor Sponsor

|
|
 |
RYAN191
|
Posted: Fri Apr 10, 2009 12:31 pm Post subject: RE:problem makeing chart |
|
|
i can't figure it out |
|
|
|
|
 |
Ava.Gabe.182
|
Posted: Fri Apr 10, 2009 3:08 pm Post subject: Re: problem makeing chart |
|
|
what do you mean you want to make a chart? like how do yu want the chart to look? |
|
|
|
|
 |
DanielG
|
Posted: Fri Apr 10, 2009 7:34 pm Post subject: RE:problem makeing chart |
|
|
wait.. so you supposed to draw the dice.. and then you ask the user what the dice show... why not just tell them??? |
|
|
|
|
 |
|
|