Dice Program + Pie Graph

[TomYoung]

%Procudure For Dice One
procedure Dice1
var f : array 1 .. 6 of nat
for d : 1 .. 6
f (d) := 0
end for
var rollss : int
var rolling:int:=1
put "How many times are each dice rolled?"
get rollss
cls
randomize
var c : int
for z:1..rollss
randint (c,1,6)
put "This is roll number: ",rolling
put "Number Rolled: "..
if c >= 1 and c <= 6 then
f(c) := f (c) + 1
rolling:=rolling+1
end if
if c=4 then
put "4"
elsif c = 5 then
put "5"
elsif c = 1 then
put "1"
elsif c = 2 then
put "2"
elsif c = 3 then
put "3"
elsif c = 6 then
put "6"
end if
delay (750)
cls
end for
for d : 1 .. 6 % Print frequency of capital letters
put d, " ", f(d)
%%%%%%%%%%%%%%%%%%%%%%%%
var a:real
drawoval (250,250,100,100,7)
a:= 360 * (f(d) / rollss)
var aa:real
aa:= a
Draw.FillArc (250,250,100,100,0,aa,1)
Draw.FillArc (250,250,100,100,0,a+a,1)
Draw.FillArc (250,250,100,100,0,a+a+a,1)
Draw.FillArc (250,250,100,100,0,a+a+a+a,1)
Draw.FillArc (250,250,100,100,0,a+a+a+a+a,1)
Draw.FillArc (250,250,100,100,0,a+a+a+a+a+a,1)
end for
end Dice1

Dice1



____________________________________________________________________________________________________________________



All right, So I have this much, but it keeps saying the assigned value is the wrong type. Anyone can give me pointers? Thanks in advance.

[goroyoshi]

It has to be an integer or else you need to use floor/ceil/round and that seems to glitch on me

try floor{it rounds the decimal down} (your real numbers)

if not that then make those variables integers

also i notice that your arcs will overlap eachother

[TomYoung]

Umm... Where am I suppose to use "round", am I suppose to still var a: real?

[goroyoshi]

round (variable)

[TomYoung]

goroyoshi @ Tue Apr 05, 2011 7:48 pm wrote:

round (variable)

Hahaha, yeah thanks. Going to figure out my pie graphing now! I just got to figure out an array. Thanks so much.

Edit: If you have any suggestions for me, I would love to hear them!

[goroyoshi]

ok sorry was busy, so for round you need a real number,

[TomYoung]

goroyoshi @ Tue Apr 05, 2011 7:58 pm wrote:

ok sorry was busy, so for round you need a real number,

Yeah no problem. But I have encounter a NEW problem. This problem is that to fill up my pie graph, it went absolutely wrong. Any suggestions on how i can fill up my pie graph?

[goroyoshi]

you probably need quite a few variables for the angles

[Raknarg]

Note:
if c=4 then
put "4"
elsif c = 5 then
put "5"
elsif c = 1 then
put "1"
elsif c = 2 then
put "2"
elsif c = 3 then
put "3"
elsif c = 6 then
put "6"
end if

can all be replaced with
put c

Also, you can probs do that pie with one Draw.FillArc, or even better: Draw.Line if you know any trigonometry.