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
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.05.2016, 13:33
Ответы с готовыми решениями:

Напишите пожалуста программу :которая по заданному номеру клетки даст номер всех клеток,имеющих с ней общую сторону
Клетки шахматной доски пронумерованы от 1 до 64 по строчкам, слева на право и снизу вверх.Написать...

По заданному номеру клетки выдать номера всех клеток имеющих с ней общую сторону
Клетки шахматной доски пронумерованы от 1 до 64 по строкам слева направо и снизу вверх.По...

По заданному номеру клетки выдать номера всех клеток имеющих с ней общую сторону
Клетки шахматной доски пронумерованы от 1 до 64 по строкам слева напрпаво и снизу вверх.По...

По заданному номеру клетки найти номера всех клеток, имеющих с ней общую сторону
Проблема такая. Не могу сделать вот эту задачу: Клетки шахматной доски пронумерованы от 1 до 64 по...

2
Эксперт С++
1623 / 953 / 782
Регистрация: 06.02.2016
Сообщений: 2,449
Записей в блоге: 30
25.05.2016, 17:55 2
Лучший ответ Сообщение было отмечено abolim как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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 минут
Не, не правильное решение. Так крайние клетки не выведутся
0
0 / 0 / 0
Регистрация: 24.05.2016
Сообщений: 3
25.05.2016, 21:28  [ТС] 3
можешь подправить?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.05.2016, 21:28
Помогаю со студенческими работами здесь

Написать программу, которая по заданному номеру клетки дает номера всех клеток, имеющих с ней общую сторону
Клетки шахматной доски пронумерованы от 1 до 64 по строчкам слева направо и снизу наверх. Написать...

Вывести на экран номера всех элементов массива, у которых значение больше номера
Заполнить массив из 20 элементов целыми случайными числами от 1 до 20, вывести его на экран....

Вывести в файл описания всех клеток, целиком лежащих внутри круга, в порядке возрастания расстояния от клетки до центра
Пытался по разному подходить к решению этой задачи, но в итоге все без толку. Условие полностью:...

Определить сумму всех четных элементов массива A(3,3) ,имеющих четные номера.
Определить сумму всех четных элементов массива A(3,3) ,имеющих четные номера.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru