Предмет: Информатика,
автор: Alina99wow
Пожалуйста, помогите, срочно надо!
Для клетки с координатами (x, y) в таблице размером M × N выведите координаты ее соседей. Соседними называются клетки, имеющие общую сторону. Решить надо в паскале!
Ответы
Автор ответа:
0
var n, m, x, y, i, j: integer;
begin
write('n=');readln(n);
write('m=');readln(m);
write('x=');readln(x);
write('y=');readln(y);
for i := -1 to 1 do
for j := -1 to 1 do
if (i <> j) and (i <> -j) and
(x+i>0) and (x+i<n+1) and
(y+j>0) and (y+j<m+1) then
writeln('(', x+i, ',', y+j, ')');
end.
begin
write('n=');readln(n);
write('m=');readln(m);
write('x=');readln(x);
write('y=');readln(y);
for i := -1 to 1 do
for j := -1 to 1 do
if (i <> j) and (i <> -j) and
(x+i>0) and (x+i<n+1) and
(y+j>0) and (y+j<m+1) then
writeln('(', x+i, ',', y+j, ')');
end.
Похожие вопросы
Предмет: Математика,
автор: STARICS99
Предмет: Алгебра,
автор: garaevavaleria94
Предмет: Геометрия,
автор: gulsanam06
Предмет: Математика,
автор: Дипо
Предмет: Биология,
автор: Аннушка17