С помощью подпрограммы с массивом октрытого типа сделать ввод и вывод матриц разных размеров - 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: