Question

How to fill a matrix with 1 and 0 in random locations with Pascal

Answer 1

program FillMatrixWith1And0InRandomLocationsProgram;

uses SysUtils;

const
  ROWS = 5;
  COLS = 4;

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

var
  matrix: TMatrix;

procedure FillMatrixWithRandom0And1(var matrix: TMatrix; rows, cols: Integer);
var
  i, j: Integer;
begin
  Randomize;
  for i := 1 to rows do
  begin
    for j := 1 to cols do
    begin
      matrix[i, j] := Random(2);  // Generates either 0 or 1
    end;
  end;
end;

procedure PrintMatrix(matrix: TMatrix; rows, cols: Integer);
var
  i, j: Integer;
begin
  for i := 1 to rows do
  begin
    for j := 1 to cols do
    begin
      Write(matrix[i, j], ' ');
    end;
    Writeln;
  end;
end;

begin
  FillMatrixWithRandom0And1(matrix, ROWS, COLS);
  
  PrintMatrix(matrix, ROWS, COLS);
end.




(*
run:

1 1 1 0 
0 0 0 0 
0 0 1 1 
1 0 0 0 
0 1 1 0 

*)

 

70+ SQL courses for beginners and professionals