Question

How to initialize char array with random characters in Pascal

Answer 1

program RandomCharArray;

const
  ArraySize = 10; // Size of the char array
var
  charArray: array[1..ArraySize] of Char;
  i: Integer;
begin
  Randomize; // Initialize random number generator
  for i := 1 to ArraySize do
  begin
    // Generate a random character (from 'A' to 'Z')
    charArray[i] := Chr(Random(26) + Ord('A'));
  end;

  for i := 1 to ArraySize do
    Write(charArray[i], ' ');
end.



(*
run:

W J J B K N M X R G 

*)

 

70+ SQL courses for beginners and professionals

Answer 2

program RandomCharArray;

const
  SIZE = 10; // Array size
  CHARACTERS = '0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
  charArray: array[1..SIZE] of Char;
  i: Integer;

procedure InitializeCharArrayWithRandomCharacters(var arr: array of Char);
var
  j: Integer;
  randomIndex: Integer;
begin
  Randomize; // Initialize random number generator
  for j := Low(arr) to High(arr) do
  begin
    randomIndex := Random(Length(CHARACTERS)) + 1; // Generate a random index
    arr[j] := CHARACTERS[randomIndex];
  end;
end;

begin
  // Initialize the character array with random characters
  InitializeCharArrayWithRandomCharacters(charArray);

  for i := 1 to SIZE do
    Write(charArray[i], ' ');
end.



(*
run:

Y S 1 O C 9 x H j j 

*)

 

70+ SQL courses for beginners and professionals