Question

Составить программу на Паскале. Заполнить массив размером 6 x 6 по правилу, используя процедуру. 1 2 3 4 5 6 0 1 2 3 4 5 0 0 1 2 3 4 0 0 0 1 2 3 0 0 0 0 1 2 0 0 0 0 0 1

Answer 1

===== PascalABC.NET =====

procedure MyFill(a: array[,] of integer);

begin

 for var i := 0 to a.RowCount - 1 do

   for var j := i to a.ColCount - 1 do

     a[i, j] := j - i + 1

end;

begin

 var a := MatrFill(6, 6, 0);

 MyFill(a);

 a.Println(2)

end.

Answer 2

Вот пример программы на языке Паскаль, которая заполняет массив размером 6 x 6 по указанному правилу:

pascalCopy code
program FillArray;

const
  N = 6; // Размер массива

type
  TMatrix = array[1..N, 1..N] of Integer;

procedure FillArrayByRule(var arr: TMatrix);
var
  i, j: Integer;
begin
  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      if j >= i then
        arr[i, j] := j - i + 1
      else
        arr[i, j] := 0;
    end;
  end;
end;

procedure PrintArray(const arr: TMatrix);
var
  i, j: Integer;
begin
  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      write(arr[i, j], ' ');
    end;
    writeln;
  end;
end;

var
  array6x6: TMatrix;

begin
  FillArrayByRule(array6x6);
  PrintArray(array6x6);
end.

В данной программе определен тип TMatrix для представления массива размером 6 x 6. Процедура FillArrayByRule заполняет массив по указанному правилу, а процедура PrintArray выводит его содержимое на экран.

При запуске программы будет выведен следующий результат:

Copy code
1 2 3 4 5 6 
0 1 2 3 4 5 
0 0 1 2 3 4 
0 0 0 1 2 3 
0 0 0 0 1 2 
0 0 0 0 0 1 

Каждое значение массива отображается в виде числа, разделенного пробелом.