2024-11-17 10:55:18
Как создать массив размерностью n×n элементов и заполнить его по образцу, например, для матрицы 6×6, где элементы расположены следующим образом:
- 0 0 0 0 0 0
- 0 1 0 0 0 0
- 0 0 0 0 0 0
- 0 0 0 1 0 0
- 0 0 0 0 0 0
- 0 0 0 0 0 1
Как решить эту задачу с использованием PascalABC и оформить в виде процедуры?
Информатика 10 класс Работа с массивами и процедурами в PascalABC массив размерность n×n элементы матрица 6×6 заполнение PascalABC процедура информатика 10 класс программирование алгоритм двумерный массив создание массива решение задачи код примеры учебный материал
2024-12-07 18:23:17
Для создания и заполнения массива размерностью n×n в PascalABC можно использовать следующую процедуру:
procedure FillMatrix(n: integer);
var
matrix: array of array of integer;
i, j: integer;
begin
SetLength(matrix, n, n); // создаем массив размером n×n
// заполняем массив по образцу
for i := 0 to n - 1 do
begin
for j := 0 to n - 1 do
begin
matrix[i][j] := 0; // заполняем нулями
end;
end;
for i := 0 to n - 1 do
begin
if (i mod 2 = 1) then // ставим 1 в нужные позиции
matrix[i][i div 2] := 1;
end;
// выводим массив на экран
for i := 0 to n - 1 do
begin
for j := 0 to n - 1 do
begin
Write(matrix[i][j], ' ');
end;
Writeln;
end;
end;
Вы можете вызвать эту процедуру, передав ей нужное значение n, например:
begin FillMatrix(6); end.