Question

How to initialize a matrix with random characters in Pascal

Answer 1

program RandomMatrix;

const
  ROWS = 3;
  COLS = 4;

type
  TMatrix = array[1..ROWS, 1..COLS] of char;

procedure PrintMatrix(var matrix: TMatrix);
var
  i, j: integer;
begin
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
      write(matrix[i, j]:3);  { :3 gives setw(3)-like alignment }
    writeln;
  end;
end;

function GetRandomCharacter: char;
const
  characters = '0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
begin
  GetRandomCharacter := characters[1 + random(length(characters))];
end;

procedure InitializeMatrixWithRandomCharacters(var matrix: TMatrix);
var
  i, j: integer;
begin
  randomize;  { seed RNG with system clock }
  for i := 1 to ROWS do
    for j := 1 to COLS do
      matrix[i, j] := GetRandomCharacter;
end;

var
  matrix: TMatrix;

begin
  InitializeMatrixWithRandomCharacters(matrix);

  PrintMatrix(matrix);
end.



(*
run:

  K  k  1  X
  r  J  8  F
  3  3  r  G

*)

 

70+ SQL courses for beginners and professionals