Question

How to convert a specific column of a decimal matrix to a string in Pascal

Answer 1

program ConvertColumnToString;

const
  COLS = 6;
  ROWS = 5;

  matrix: array[1..ROWS, 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
  TIntMatrix = array[1..ROWS, 1..COLS] of Integer;

function ConvertColumnToString(var m: TIntMatrix; rows, col: Integer): string;
var
  i: Integer;
  s, numStr: string;
begin
  s := '';

  for i := 1 to rows do
  begin
    Str(m[i][col], numStr);   { convert integer to string }
    s := s + numStr + ' ';
  end;

  ConvertColumnToString := s;
end;

var
  col: Integer;
  resultStr: string;

begin
  col := 4;  

  resultStr := ConvertColumnToString(matrix, ROWS, col);

  WriteLn(resultStr);
end.



(*
run:

18 99 2 1 9 

*)

 

70+ SQL courses for beginners and professionals