-----------------------------------

TomYoung

Tue Apr 05, 2011 7:14 pm


Dice Program + Pie Graph

-----------------------------------

%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