var numply : int
var players : array 1 .. 4 of string
var name : int := 0
var roll : array 1 .. 5 of int
var count, w : int := 0
var str1, str2, str3, str4, str5 : int
var done : boolean := false
var roll1, roll2, roll3, roll4, roll5 : int
proc rolling
for a : 1 .. 5
roll (a) := Rand.Int (1, 6)
randint (roll (a), 1, 6)
put "Rolled ", roll (a)
end for
end rolling
put "Please enter the number of players, 4 max"
get numply
loop
name += 1
put "enter names"
get players (name) : *
exit when name = 4 or name = numply
end loop
procedure check
for a : 1 .. 5
for b : 1 .. 5
for c : 1 .. 5
if roll (a) = 1 and roll (b) = 1 and roll (c) = 1 then
count := count + 1000
done := false
end if
exit when done
end for
exit when done
end for
exit when done
end for
end check
rolling
check
put " score is ", count, ""
for i : 1 .. name
put players (i), ": ", count
end for
|