Комментарии: Решаем задачи Абрамян на Паскале. Matrix1

Автор: Bronislav

Bronislav — Mon, 27 Aug 2018 12:24:57 +0000

модуль TaskMatrix:

unit TaskMatrix;

interface

const
  SzM = 10;
  SzN = 10;

type
  intMatrix = array [1..SzM, 1..SzN] of integer;
  realMatrix = array [1..SzM, 1..SzN] of real;

procedure FillMatrixByRandom(var a: intMatrix; m, n: integer);
procedure PrintMatrix(const a: intMatrix; m, n: integer);

implementation

procedure FillMatrixByRandom(var a: intMatrix; m, n: integer);
var
  i, j: integer;
begin
  for i := 1 to M do
    for j := 1 to N do
      a[i, j] := Random(10);
end;

procedure PrintMatrix(const a: intMatrix; m, n: integer);
var
  i, j: integer;
begin
  for i := 1 to M do
  begin
    for j := 1 to N do
      Write(a[i, j]: 4);
    Writeln;
  end;
end;

end.

unit TaskMatrix;

interface

const

SzM = 10;

SzN = 10;

type

intMatrix = array [1..SzM, 1..SzN] of integer;

realMatrix = array [1..SzM, 1..SzN] of real;

procedure FillMatrixByRandom(var a: intMatrix; m, n: integer);

procedure PrintMatrix(const a: intMatrix; m, n: integer);

implementation

procedure FillMatrixByRandom(var a: intMatrix; m, n: integer);

var

i, j: integer;

begin

for i := 1 to M do

for j := 1 to N do

a[i, j] := Random(10);

end;

procedure PrintMatrix(const a: intMatrix; m, n: integer);

var

i, j: integer;

begin

for i := 1 to M do

begin

for j := 1 to N do

Write(a[i, j]: 4);

Writeln;

end;

end.

Все-таки для таких вещей нужен спойлер, чтоб не засирать страницу вспомогательным кодом.

Автор: Bronislav

Bronislav — Mon, 27 Aug 2018 11:46:32 +0000

Что-то вроде этого:

program Matrix01;//fpc

uses TaskMatrix;

var
  a: intMatrix;
  m, n, i, j: integer;

begin
  m := 5;
  n := 6;
  
  for i := 1 to m do
    for j := 1 to n do
      a[i, j] := i * 10;
  
  PrintMatrix(a, m, n);
end.

program Matrix01;//fpc

uses TaskMatrix;

var

a: intMatrix;

m, n, i, j: integer;

begin

m := 5;

n := 6;

for i := 1 to m do

for j := 1 to n do

a[i, j] := i * 10;

PrintMatrix(a, m, n);

end.

Автор: Bronislav

Bronislav — Mon, 27 Aug 2018 11:41:35 +0000

В задачах этого раздела, наверное, уместно подключать модуль с процедурами ввода и вывода матриц (и вспомогательных массивов), чтоб не писать каждый раз кучу циклов вложенных циклов. Показывать код этих модулей по мере надобности в первой попавшейся задаче, в других потом давать ссылку на ранее показанный модуль. Я так думаю.

Автор: Maxim

Maxim — Fri, 23 Dec 2016 14:29:34 +0000

for (int x = 0; x < sizeX; x++)
matrix[I][x] = 10 * I;

for (int y = 0; y < sizeY; y++)
{
for (int x = 0; x < sizeX; x++)
cout << matrix[y][x] << " ";
cout << endl;
}
cout << endl;

Автор: Кирилл

Кирилл — Sun, 06 Dec 2015 18:38:06 +0000

uses PT4;
var m,n: integer;
    a: array [,] of integer;
begin
  Task('Matrix1');
read(m,n);
SetLength(a,m,n);
for var i:=0 to m-1 do
  for var j:=0 to n-1 do
    a[i,j] := (i+1)*10;
for var i:=0 to m-1 do
  for var j:=0 to n-1 do
    write(a[i,j]);
end.

uses PT4;

var m,n: integer;

a: array [,] of integer;

begin

Task('Matrix1');

read(m,n);

SetLength(a,m,n);

for var i:=0 to m-1 do

for var j:=0 to n-1 do

a[i,j] := (i+1)*10;

for var i:=0 to m-1 do

for var j:=0 to n-1 do

write(a[i,j]);

end.