Hi there!!
sorry for gettin back to you so late... had a pile of stuff due in
Right Iv had a little bash at writing those 2 procedures. They dont seem to compile properly
as i dont seem to grasp them that well...yet
type TColours = (Blue, Red, Green, Black);
var A: array[0..3] of TColours;
B: array[0..11] of TColours;
procedure SetColour;
{will this randomly set the elements to different different colours or just set a whole array to a random colour. Also am i using the logic notation correctly?}
begin
repeat
randomize;
random(A);
random(B);
until
B = not(black) and A = not(black);
end;
Bookmarks