Question

How to simulate rolling two dice (game cubes) with values 1–6 in Pascal

Answer 1

program DiceRollProgram;

uses
  crt;

function RollDice: integer;
begin
  RollDice := Random(6) + 1;  { returns 1..6 }
end;

var
  dice1, dice2: integer;

begin
  Randomize;  { seed the RNG once }

  dice1 := RollDice;
  dice2 := RollDice;

  writeln('Dice 1: ', dice1);
  writeln('Dice 2: ', dice2);
end.





(*
run:

Dice 1: 4
Dice 2: 2
*)

 

70+ SQL courses for beginners and professionals