С помощью подпрограммы с массивом октрытого типа сделать ввод и вывод матриц разных размеров - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

как с помощью подпрограммы с массивом октрытого типа сделать ввод и вывод матриц разных размеров?

Решение задачи: «С помощью подпрограммы с массивом октрытого типа сделать ввод и вывод матриц разных размеров»

textual
Листинг программы
procedure mRead(var a; m, n: Integer);
var
  aa: array [0..$FFFE div SizeOf(Integer)-1] of Integer absolute a;
  i: Integer;
begin
  for i:=0 to m*n-1 do Read(aa[i]);
end;
 
procedure mWrite(const a; m, n: Integer);
const W=6;
var
  aa: array [0..$FFFE div SizeOf(Integer)-1] of Integer absolute a;
  i, j, k: Integer;
begin
  k:=0;
  for i:=0 to m-1 do begin
    for j:=0 to n-1 do begin
      Write(' ',aa[k]:W-1); Inc(k);
    end; WriteLn;
  end;
end;
 
var
  a: array [0..2,0..2] of Integer;
  b: array [0..3,0..3] of Integer;
begin
  Write('A(3x3): '); mRead(a,3,3);
  Write('B(4x4): '); mRead(b,4,4);
  WriteLn('A ='); mWrite(a,3,3);
  WriteLn('B ='); mWrite(b,4,4);
end.

Объяснение кода листинга программы

Вывод матрицы A размером 3x3: Значения матрицы A: B(4x4): Матрица B размером 4x4: A = B = Значения матрицы B:

Оцени полезность:

11   голосов , оценка 4.091 из 5
Похожие ответы