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

Matrix1. Даны целые положительные числа $$M$$ и $$N$$. Сформировать целочисленную матрицу размера $$M \times N$$, у которой все элементы $$I$$-й строки имеют значение $$10*I$$ $$(I = 1, …, M)$$.

Решение:

program Matrix1;
var
  a:array [1..10,1..10] of integer;
  M, N, i, j:Integer;

begin
 Write('M: ');
 Readln(M);
 Write('N: ');
 Readln(N);


 for  i:=1 to M do
  for j:=1 to N do
   a[i,j]:=i*10;

 for  i:=1 to M do
  begin
   for j:=1 to N do Write(' : ',a[i,j]);
   writeln(' : ');
  end;
end.

program Matrix1;

var

a:array [1..10,1..10] of integer;

M, N, i, j:Integer;

begin

Write('M: ');

Readln(M);

Write('N: ');

Readln(N);

for i:=1 to M do

for j:=1 to N do

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

for i:=1 to M do

begin

for j:=1 to N do Write(' : ',a[i,j]);

writeln(' : ');

end;

end.

Другие задачи из раздела Matrix можно посмотреть здесь.

Комментарии 5

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.

Ответить

Maxim

23.12.2016 в 18:29

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;

Ответить
Bronislav

27.08.2018 в 15:41

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

Ответить

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

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.

Ответить

модуль 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.

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

Ответить

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

Комментарии:

Комментарии 5

Добавить комментарий Отменить ответ