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.
Вот.Удачи 1) Имя - Робот 2) Круг решаемых задач - Робот занимает ровно одну клетку поля. Он может переместиться на соседнюю клетку в любом направлении, закрасить клетку, проверить, свободен ли путь к соседней клетке, выдать сообщение об ошибке, если команда неправильна. 3) Среда - Робот действует на прямоугольном клетчатом поле. Между некоторыми клетками поля могут быть расположены стены. Некоторые клетки могут быть закрашены 4) СКИ - включает в себя:5 команд действий (влево, вправо, вверх, вниз, закрасить)8 команд проверки условий (слева/справа/сверху/снизу свободно/закрашено)цикл N разцикл ПокаМожно также определять процедуры - заранее заданные наборы команд (подпрограммы), которые можно вызывать по имени 5) Система отказов - Если Робот не может выполнить команду, он выдаёт сообщение ОТКАЗ (например, ему мешает стена) Другая причина отказа - ошибка в написании команды 6) Режимы работы - Робот работает в режиме програмного управления
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