На ввод номера клетки вывести номера всех клеток, имеющих с ней общую сторону

@abolim · Регистрация: 24.05.2016

Студворк — интернет-сервис помощи студентам

Все клетки шахматной доски пронумерованы от 1 до 64 так, что первая строка клеток имеет номера от 1 до 8, вторая — от 9 до 16 и т. д. Написать программу, которая на ввод номера клетки выводит номера всех клеток, имеющих с ней общую сторону.
Заранее спасибо

Добавлено через 13 минут
если кто может написать напишите плз программу

Добавлено через 14 часов 15 минут
ребятки помогите очень очень надо

@Peoples · 25.05.2016, 17:55

Pascal

program pr;
var
  sh, i, j, m, n: integer;
  a: array [1..8, 1..8] of integer;
begin
  m := 1;
  n := 1;
  for i := 8 downto 1 do
    for j := 1 to 8  do
    begin
      a[i, j] := n * m;
      m := m + 1;
    end;
  for i := 1 to 8 do
  begin
    for j := 1 to 8 do
      write(a[i, j]:3);
    writeln;
  end;
  writeln('Введите номер клетки');
  readln(sh);
  writeln('Соседние клетки');
  for i := 1 to 8 do
    for j := 1 to 8 do
      if a[i, j] = sh then
      begin
        writeln(a[i - 1, j]);
        writeln(a[i, j - 1]);
        writeln(a[i + 1, j]);
        writeln(a[i, j + 1]);
      end;
end.

Добавлено через 15 минут
Не, не правильное решение. Так крайние клетки не выведутся

@abolim · 25.05.2016, 21:28 **[ТС]**

можешь подправить?

@abolim 0 / 0 / 0 Регистрация: 24.05.2016 Сообщений: 3
		1
	На ввод номера клетки вывести номера всех клеток, имеющих с ней общую сторону 25.05.2016, 13:33. Показов 3225. Ответов 2 Метки нет (Все метки) Все клетки шахматной доски пронумерованы от 1 до 64 так, что первая строка клеток имеет номера от 1 до 8, вторая — от 9 до 16 и т. д. Написать программу, которая на ввод номера клетки выводит номера всех клеток, имеющих с ней общую сторону. Заранее спасибо Добавлено через 13 минут если кто может написать напишите плз программу Добавлено через 14 часов 15 минут ребятки помогите очень очень надо 0

@abolim 0 / 0 / 0 Регистрация: 24.05.2016 Сообщений: 3
	25.05.2016, 21:28 [ТС]	3
	можешь подправить? 0

Опции темы

На ввод номера клетки вывести номера всех клеток, имеющих с ней общую сторону

Решение