Предмет: Информатика,
автор: fartshao
Сформировать квадратную матрицу порядка n по заданному образцу
2 1 1 … 1 1 1
3 2 1 … 1 1 1
3 3 2 … 1 1 1
……………..
3 3 3 … 3 2 1
3 3 3 … 3 3 2
Ответы
Автор ответа:
0
const
nn = 20;
var
i, j, n: integer;
a: array[1..nn, 1..nn] of integer;
begin
writeln('Задайте размер матрицы n');
readln(n);
if n > nn then
writeln('Вы превысили допустимый размер матрицы 20')
else begin
writeln('Матрица-результат');
for i := 1 to n do
begin
writeln;
for j := 1 to n do begin
if i < j then a[i, j] := 1
else if i = j then a[i, j] := 2
else a[i, j] := 3;
write(a[i, j]:2)
end;
end;
writeln
end
end.
Тестовый пример:
Задайте размер матрицы n
10
Матрица-результат
2 1 1 1 1 1 1 1 1 1
3 2 1 1 1 1 1 1 1 1
3 3 2 1 1 1 1 1 1 1
3 3 3 2 1 1 1 1 1 1
3 3 3 3 2 1 1 1 1 1
3 3 3 3 3 2 1 1 1 1
3 3 3 3 3 3 2 1 1 1
3 3 3 3 3 3 3 2 1 1
3 3 3 3 3 3 3 3 2 1
3 3 3 3 3 3 3 3 3 2
nn = 20;
var
i, j, n: integer;
a: array[1..nn, 1..nn] of integer;
begin
writeln('Задайте размер матрицы n');
readln(n);
if n > nn then
writeln('Вы превысили допустимый размер матрицы 20')
else begin
writeln('Матрица-результат');
for i := 1 to n do
begin
writeln;
for j := 1 to n do begin
if i < j then a[i, j] := 1
else if i = j then a[i, j] := 2
else a[i, j] := 3;
write(a[i, j]:2)
end;
end;
writeln
end
end.
Тестовый пример:
Задайте размер матрицы n
10
Матрица-результат
2 1 1 1 1 1 1 1 1 1
3 2 1 1 1 1 1 1 1 1
3 3 2 1 1 1 1 1 1 1
3 3 3 2 1 1 1 1 1 1
3 3 3 3 2 1 1 1 1 1
3 3 3 3 3 2 1 1 1 1
3 3 3 3 3 3 2 1 1 1
3 3 3 3 3 3 3 2 1 1
3 3 3 3 3 3 3 3 2 1
3 3 3 3 3 3 3 3 3 2
Автор ответа:
0
Добавьте, если надо, uses Crt в начале, как обычно пишете: я не знаю конкретно Ваших условий.
Автор ответа:
0
Ох извините за моё замечание это я накосячил поэтому я хотел бы поставить 5*, а не 4, как я наделал.
Автор ответа:
0
Спасибо
Похожие вопросы
Предмет: Математика,
автор: vasilinabubnova08
Предмет: Информатика,
автор: guriyanovaangelina
Предмет: Русский язык,
автор: bojkokira98
Предмет: Физика,
автор: fSamira
Предмет: Химия,
автор: dasha99ru