ВВЕРХ
ВНИЗ
  • Home
  • Matrix
  • Matrix 1 - 6

Matrix 1 - 6

На этой странице рассмотрим простейшие случаи формирования двумерных массивов (матриц).

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

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
var
  A: array[1..10, 1..10] of integer;
  M, N, i, j: byte;

begin
  write('M = ');
  readln(M);
  write('N = ');
  readln(N);
  for i := 1 to M do 
  begin
    for j := 1 to N do
    begin
      a[i, j] := 10 * i;
      write(a[i, j]:4)
    end;
    writeln
  end
end.

Matrix2. Даны целые положительные числа M и N. Сформировать целочисленную матрицу размера M × N, у которой все элементы J-го столбца имеют значение 5·J (J = 1, …, N).

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
var
  A: array[1..10, 1..10] of integer;
  M, N, i, j: byte;

begin
  write('M = ');
  readln(M);
  write('N = ');
  readln(N);
  for i := 1 to M do 
  begin
    for j := 1 to N do
    begin
      a[i, j] := 5 * j;
      write(a[i, j]:4)
    end;
    writeln
  end
end.

Matrix3. Даны целые положительные числа M, N и набор из M чисел. Сформировать матрицу размера M × N, у которой в каждом столбце содержатся все числа из исходного набора (в том же порядке).

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
var
  B: array[1..10] of integer;
  A: array[1..10, 1..10] of integer;
  M, N, i, j: byte;

begin
  writeln('Введите M и N:');
  readln(M, N);
  writeln('Введите набор ', M, ' целых чисел:');
  for i := 1 to M do
    read(b[i]); //Вводим элементы последовательности
  writeln('Формируем матрицу:');
  for i := 1 to M do 
  begin
    for j := 1 to N do
    begin
      a[i, j] := b[i];
      write(a[i, j]:4)
    end;
    writeln
  end
end.

Matrix4. Даны целые положительные числа M, N и набор из N чисел. Сформировать матрицу размера M × N, у которой в каждой строке содержатся все числа из исходного набора (в том же порядке).

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
var
  B: array[1..10] of integer;
  A: array[1..10, 1..10] of integer;
  M, N, i, j: byte;

begin
  writeln('Введите M и N:');
  readln(M, N);
  writeln('Введите набор ', N, ' целых чисел:');
  for j := 1 to N do
    read(b[j]); //Вводим элементы последовательности
  writeln('Формируем и выводим матрицу:');
  for i := 1 to M do 
  begin
    for j := 1 to N do
    begin
      a[i, j] := b[j];
      write(a[i, j]:4)
    end;
    writeln
  end
end.

Matrix5. Даны целые положительные числа M, N, число D и набор из M чисел. Сформировать матрицу размера M × N, у которой первый столбец совпадает с исходным набором чисел, а элементы каждого следующего столбца равны сумме соответствующего элемента предыдущего столбца и числа D (в результате каждая строка матрицы будет содержать элементы арифметической прогрессии).

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
23  
24  
25  
26  
27  
var
  B: array[1..10] of integer;
  A: array[1..10, 1..10] of integer;
  M, N, i, j: byte;
  D: integer; //разница арифметической прогрессии

begin
  writeln('Введите M и N:');
  readln(M, N);
  writeln('Введите набор ', M, ' целых чисел:');
  for i := 1 to M do
    read(b[i]); //Вводим элементы последовательности
  write('D = ');
  readln(D);
  writeln('Формируем матрицу:');
  for i := 1 to M do 
  begin
    for j := 1 to N do
    begin
      if j = 1 then a[i, j] := b[i] //первый элемент строки
      else //Остальные значения строки:
        a[i, j] := a[i, j - 1] + D; //предыдущий увеличиваем на D
      write(a[i, j]:4) //Выводим элементы матрицы
    end;
    writeln
  end
end.

Сравните задачу Matrix5 с примером Array3.

Matrix6. Даны целые положительные числа M, N, число D и набор из N чисел. Сформировать матрицу размера M × N, у которой первая строка совпадает с исходным набором чисел, а элементы каждой следующей строки равны соответствующему элементу предыдущей строки, умноженному на D (в результате каждый столбец матрицы будет содержать элементы геометрической прогрессии).

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
23  
24  
25  
26  
27  
var
  B: array[1..10] of integer;
  A: array[1..10, 1..10] of integer;
  M, N, i, j: byte;
  D: integer; //знаменатель геометрической прогрессии

begin
  writeln('Введите M и N:');
  readln(M, N);
  writeln('Введите набор ', N, ' целых чисел:');
  for j := 1 to N do
    read(b[j]); //Вводим элементы последовательности
  write('D = ');
  readln(D);
  writeln('Формируем матрицу:');
  for i := 1 to M do 
  begin
    for j := 1 to N do
    begin
      if i = 1 then a[i, j] := b[j] //первый элемент столбца
      else //Остальные значения столбца:
        a[i, j] := a[i - 1, j] * D; //предыдущий увеличиваем на D
      write(a[i, j]:6) //Выводим элементы матрицы
    end;
    writeln
  end
end.

Сравните задачу Matrix6 с примером Арифметическая и геометрическая прогрессии. Последовательность Фибоначчи.



Яндекс.Метрика