Создать массив nxn и заполните его по правилу - Turbo Pascal
Формулировка задачи:
Дано число n, n <= 100 . Создайте массив n×n и заполните его по следующему правилу:
- числа на диагонали, идущей из правого верхнего в левый нижний угол, равны 1;
- числа, стоящие выше этой диагонали, равны 0;
- числа, стоящие ниже этой диагонали, равны 2.
Решение задачи: «Создать массив nxn и заполните его по правилу»
textual
Листинг программы
program project1;
var
n, i, j: integer;
Matrix: array of array of integer;
begin
writeln('enter n<=100');
readln(n);
SetLength(Matrix, n);
for i:=0 to n-1 do
SetLength(Matrix[i], n);
for i:=0 to n-1 do
Matrix[i][n-i-1]:=1;
for i:=0 to n-1 do
for j:=0 to n-1 do
begin
if (i<n-j-1) then
Matrix[i][j]:=0;
if (i>n-j-1) then
Matrix[i][j]:=2;
end;
for i:=0 to n-1 do
begin
for j:=0 to n-1 do
write(Matrix[i][j]);
writeln();
end;
readln();
end.
Объяснение кода листинга программы
Этот код написан на языке Turbo Pascal и выполняет следующие действия:
- Запрашивает у пользователя значение переменной n, которое должно быть меньше или равно 100.
- Выделяет массив Matrix размером n x n.
- Заполняет каждый элемент массива Matrix значениями 1, 0 и 2 в соответствии с правилом, описанным в задаче.
- Выводит на экран каждый элемент массива Matrix.
- Ждет ввода от пользователя.