Question

How to generate a random RGB color code in Pascal

Answer 1

program RandomRGBColor;

function GenerateRandomNumber(min, max: integer): integer;
begin
  GenerateRandomNumber := Random(max - min + 1) + min;
end;

procedure GenerateRandomRGBColor;
var
  red, green, blue: integer;
begin
  red := GenerateRandomNumber(0, 255);
  green := GenerateRandomNumber(0, 255);
  blue := GenerateRandomNumber(0, 255);

  writeln('Random RGB Color: rgb(', red, ', ', green, ', ', blue, ')');
end;

begin
  Randomize;  // Seeds the random number generator with the current time 

  GenerateRandomRGBColor;
end.



(*
run:

Random RGB Color: rgb(188, 230, 52)

*)

 

70+ SQL courses for beginners and professionals