Question: Need help to turn this code to java program to use it to generate five random numbers procedure TDeck.Shuffle; var ctr: Byte; tmp: Byte; random_number:
Need help to turn this code to java program to use it to generate five random numbers
procedure TDeck.Shuffle; var ctr: Byte; tmp: Byte;
random_number: Byte; begin { Fill the deck with unique cards } for ctr := 1 to 52 do Card[ctr] := ctr;
{ Generate a new seed based on the system clock } randomize;
{ Randomly rearrange each card } for ctr := 1 to 52 do begin random_number := random(51)+1; tmp := card[random_number]; card[random_number] := card[ctr]; card[ctr] := tmp; end;
CurrentCard := 1; JustShuffled := True; end;
Step by Step Solution
There are 3 Steps involved in it
Get step-by-step solutions from verified subject matter experts
