Question

How to use a const matrix in Pascal

Answer 1

program ConstMatrix;

const
  COLS = 6;

  matrix: array[1..5, 1..COLS] of Integer = (
    (4, 7, 9, 18, 29, 0),
    (1, 9, 18, 99, 4, 3),
    (9, 17, 89, 2, 7, 5),
    (19, 49, 6, 1, 9, 8),
    (29, 4, 7, 9, 18, 6)
  );

type
  TIntRow = array[1..COLS] of Integer;
  TIntMatrix = array[1..5] of TIntRow;

var
  i, j: Integer;

begin
  for i := 1 to 5 do
  begin
    for j := 1 to COLS do
      Write(matrix[i][j], ' ');
    WriteLn;
  end;
end.



(*
run:

4 7 9 18 29 0 
1 9 18 99 4 3 
9 17 89 2 7 5 
19 49 6 1 9 8 
29 4 7 9 18 6 

*)

 

70+ SQL courses for beginners and professionals