Dice + Bar Graph + Pie Chart
| Author |
Message |
Wingyan
|
 Posted: Thu Apr 21, 2011 5:46 pm Post subject: Dice + Bar Graph + Pie Chart |
|
|
What is it you are trying to achieve?
I'm doing a Turing assignment right now. I'm need to create a program that have two dices rolling, then I need to create a bar graph and a pie chart based on the rolling dice result.
What is the problem you are having?
Can anyone tell me how to create a bar graph and a pie chart based on the rolling dice result?
That's what I've got so far...
| Turing: |
setscreen("graphics")
%Declare the value
var x: array 1.. 4 of int := init (100, 140, 240, 200)
var y: array 1.. 4 of int := init (200, 240, 240, 200)
var a: array 1.. 4 of int := init (200, 240, 240, 200)
var b: array 1.. 4 of int := init (200, 240, 140, 100)
var x1: array 1.. 4 of int := init (350, 390, 490, 450)
var y1: array 1.. 4 of int := init (200, 240, 240, 200)
var a1: array 1.. 4 of int := init (450, 490, 490, 450)
var b1: array 1.. 4 of int := init (200, 240, 140, 100)
%Dice1:
procedure square
Draw.Box (100, 100, 200, 200, black)
Draw.Polygon (x, y, 4, black)
Draw.Polygon (a, b, 4, black)
%Dice 2:
Draw.Box (350, 100, 450, 200, black)
Draw.Polygon (x1, y1, 4, black)
Draw.Polygon (a1, b1, 4, black)
end square
%Rolling Dice Procedure
var count : int
count := 0
var d1, d2 : int
procedure roll_dice
loop
square
exit when count = 10
count := count + 1
randint (d1, 1, 6)
randint (d2, 1, 6)
if d1 = 1 then
Draw.FillOval (150, 150, 5, 5, black)
Draw.FillOval (222, 170, 5, 6, black)
Draw.FillOval (207, 120, 5, 6, black)
Draw.FillOval (234, 220, 5, 6, black)
Draw.FillOval (220, 233, 6, 5, black)
Draw.FillOval (145, 233, 6, 5, black)
Draw.FillOval (117, 206, 6, 5, black)
Draw.FillOval (195, 206, 6, 5, black)
Draw.FillOval (165, 221, 6, 5, black)
elsif d1 = 2 then
Draw.FillOval (190, 190, 5, 5, black)
Draw.FillOval (110, 110, 5, 5, black)
Draw.FillOval (165, 221, 6, 5, black)
Draw.FillOval (222, 170, 5, 6, black)
Draw.FillOval (207, 120, 5, 6, black)
Draw.FillOval (234, 220, 5, 6, black)
elsif d1 = 3 then
Draw.FillOval (190, 190, 5, 5, black)
Draw.FillOval (110, 110, 5, 5, black)
Draw.FillOval (150, 150, 5, 5, black)
Draw.FillOval (117, 206, 6, 5, black)
Draw.FillOval (220, 233, 6, 5, black)
Draw.FillOval (222, 170, 5, 6, black)
elsif d1 = 4 then
Draw.FillOval (190, 190, 5, 5, black)
Draw.FillOval (190, 110, 5, 5, black)
Draw.FillOval (110, 110, 5, 5, black)
Draw.FillOval (110, 190, 5, 5, black)
Draw.FillOval (165, 221, 6, 5, black)
Draw.FillOval (207, 120, 5, 6, black)
Draw.FillOval (234, 220, 5, 6, black)
elsif d1 = 5 then
Draw.FillOval (190, 190, 5, 5, black)
Draw.FillOval (190, 110, 5, 5, black)
Draw.FillOval (110, 110, 5, 5, black)
Draw.FillOval (110, 190, 5, 5, black)
Draw.FillOval (150, 150, 5, 5, black)
Draw.FillOval (220, 233, 6, 5, black)
Draw.FillOval (117, 206, 6, 5, black)
Draw.FillOval (165, 221, 6, 5, black)
Draw.FillOval (222, 170, 5, 6, black)
elsif d1 = 6 then
Draw.FillOval (190, 190, 5, 5, black)
Draw.FillOval (190, 110, 5, 5, black)
Draw.FillOval (110, 110, 5, 5, black)
Draw.FillOval (110, 190, 5, 5, black)
Draw.FillOval (190, 150, 5, 5, black)
Draw.FillOval (110, 150, 5, 5, black)
Draw.FillOval (220, 233, 6, 5, black)
Draw.FillOval (145, 233, 6, 5, black)
Draw.FillOval (117, 206, 6, 5, black)
Draw.FillOval (195, 206, 6, 5, black)
Draw.FillOval (207, 120, 5, 6, black)
Draw.FillOval (234, 220, 5, 6, black)
end if
if d2 = 1 then
Draw.FillOval (150+ 250, 150, 5, 5, black)
Draw.FillOval (222+ 250, 170, 5, 6, black)
Draw.FillOval (207+ 250, 120, 5, 6, black)
Draw.FillOval (234+ 250, 220, 5, 6, black)
Draw.FillOval (220+ 250, 233, 6, 5, black)
Draw.FillOval (145+ 250, 233, 6, 5, black)
Draw.FillOval (117+ 250, 206, 6, 5, black)
Draw.FillOval (195+ 250, 206, 6, 5, black)
Draw.FillOval (165+ 250, 221, 6, 5, black)
elsif d2 = 2 then
Draw.FillOval (190+ 250, 190, 5, 5, black)
Draw.FillOval (110+ 250, 110, 5, 5, black)
Draw.FillOval (165+ 250, 221, 6, 5, black)
Draw.FillOval (222+ 250, 170, 5, 6, black)
Draw.FillOval (207+ 250, 120, 5, 6, black)
Draw.FillOval (234+ 250, 220, 5, 6, black)
elsif d2 = 3 then
Draw.FillOval (190+ 250, 190, 5, 5, black)
Draw.FillOval (110+ 250, 110, 5, 5, black)
Draw.FillOval (150+ 250, 150, 5, 5, black)
Draw.FillOval (117+ 250, 206, 6, 5, black)
Draw.FillOval (220+ 250, 233, 6, 5, black)
Draw.FillOval (222+ 250, 170, 5, 6, black)
elsif d2 = 4 then
Draw.FillOval (190+ 250, 190, 5, 5, black)
Draw.FillOval (190+ 250, 110, 5, 5, black)
Draw.FillOval (110+ 250, 110, 5, 5, black)
Draw.FillOval (110+ 250, 190, 5, 5, black)
Draw.FillOval (165+ 250, 221, 6, 5, black)
Draw.FillOval (207+ 250, 120, 5, 6, black)
Draw.FillOval (234+ 250, 220, 5, 6, black)
elsif d2 = 5 then
Draw.FillOval (190+ 250, 190, 5, 5, black)
Draw.FillOval (190+ 250, 110, 5, 5, black)
Draw.FillOval (110+ 250, 110, 5, 5, black)
Draw.FillOval (110+ 250, 190, 5, 5, black)
Draw.FillOval (150+ 250, 150, 5, 5, black)
Draw.FillOval (220+ 250, 233, 6, 5, black)
Draw.FillOval (117+ 250, 206, 6, 5, black)
Draw.FillOval (165+ 250, 221, 6, 5, black)
Draw.FillOval (222+ 250, 170, 5, 6, black)
elsif d2 = 6 then
Draw.FillOval (190+ 250, 190, 5, 5, black)
Draw.FillOval (190+ 250, 110, 5, 5, black)
Draw.FillOval (110+ 250, 110, 5, 5, black)
Draw.FillOval (110+ 250, 190, 5, 5, black)
Draw.FillOval (190+ 250, 150, 5, 5, black)
Draw.FillOval (110+ 250, 150, 5, 5, black)
Draw.FillOval (220+ 250, 233, 6, 5, black)
Draw.FillOval (145+ 250, 233, 6, 5, black)
Draw.FillOval (117+ 250, 206, 6, 5, black)
Draw.FillOval (195+ 250, 206, 6, 5, black)
Draw.FillOval (207+ 250, 120, 5, 6, black)
Draw.FillOval (234+ 250, 220, 5, 6, black)
end if
delay (500)
cls
end loop
end roll_dice
roll_dice
cls
|
Please specify what version of Turing you are using
Turing 4.0.5 |
|
|
|
|
 |
Sponsor
Sponsor
|
|
|
Insectoid
|
| Posted: Thu Apr 21, 2011 6:15 pm Post subject: RE:Dice + Bar Graph + Pie Chart |
|
|
What is a bar graph? Just a bunch of rectangles.
What is a pie chart? Just a bunch of...angles.
Other than that, you just need to use a bit of math. |
|
|
|
|
|
|
|
Register
Wiki
Blog
Search
Turing
Chat Room
Members
