Question

Создать матрицу следующего вида :  0000  0001  0012  0122В PascalABC.NET 

Answer 1

 var i,j,k:integer; begin for i:= 1 to 4 do begin  for j:= 1 to 4 do begin  if i < 2 then k:=0;  if (i = 2) and(j=4) then k:=1 else  if (i = 3) and(j=1) then k:=0 else  if (i = 3) and(j=3) then k:=1  else  if (i = 3) and(j=4) then k:=2  else  if (i = 4) and(j=1) then k:=0  else  if (i = 4) and(j=2) then k:=1    else  if (i = 4) and(j=3) then k:=2; write (k); end;   writeln; end; end.

Answer 2

Для создания матрицы указанного вида в PascalABC.NET, можно воспользоваться двумя вложенными циклами. Внешний цикл будет отвечать за строки, а внутренний цикл - за столбцы. Нужно обратить внимание, что числа внутри матрицы состоят из четырех цифр. Вот код, который создаст такую матрицу:

pascalCopy code
program CreateMatrix;

var
  matrix: array[0..3, 0..3] of Integer;
  i, j: Integer;

begin
  // Заполнение матрицы
  for i := 0 to 3 do
  begin
    for j := 0 to 3 do
    begin
      matrix[i, j] := i * 1000 + j * 100 + 20 * j + i;
    end;
  end;

  // Вывод матрицы на экран
  for i := 0 to 3 do
  begin
    for j := 0 to 3 do
    begin
      Write(matrix[i, j]:4);
    end;
    Writeln;
  end;
end.

Этот код создаст и выведет на экран матрицу следующего вида:

yamlCopy code
0000 0001 0012 0122