0 / 0 / 0
Регистрация: 12.05.2013
Сообщений: 3

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

12.05.2013, 18:56. Показов 2003. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Клетки шахматной доски пронумерованы от 1 до 64 по строкам слева напрпаво и снизу вверх.По заданному номеру клетки выдать номера всех клеток имеющих с ней общую сторону.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
12.05.2013, 18:56
Ответы с готовыми решениями:

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

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

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

1
 Аватар для SladkayaVata
272 / 188 / 173
Регистрация: 06.06.2012
Сообщений: 322
13.05.2013, 14:29
Лучший ответ Сообщение было отмечено Krasotka1307 как решение

Решение

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
const
  n = 8;
 
type
  mas = array[1..n, 1..n] of byte;
 
var
  a: mas;
  i, j, x, s: integer;
  indi, indj: byte;
 
procedure print_mas(a: mas);
var
  i, j: byte;
begin
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:3, ' ');
    writeln;
  end;
end;
 
procedure init_mas(var a: mas);
var
  i, j: byte;
begin
  s := 64;
  for i := 1 to n do
    for j := n downto 1 do
    begin
      a[i, j] := s;
      s := s - 1;
    end;
end;
 
begin
  init_mas(a);
  print_mas(a);
  readln(s);
  for i := 1 to n do
  begin
    for j := 1 to n do
      if a[i, j] = s then 
      begin
        indi := i;
        indj := j;
      end;
  end;
  if (indi - 1 > 0) and (indi - 1 <= n) then writeln('сверху ', a[indi - 1, indj], ' координаты: (', indi - 1, ',', indj, ')');
  if (indj - 1 > 0) and (indj - 1 <= n) then writeln('слева ', a[indi, indj - 1], ' координаты: (', indi, ',', indj - 1, ')');
  if (indi + 1 > 0) and (indi + 1 <= n) then writeln('снизу ', a[indi + 1, indj], ' координаты: (', indi + 1, ',', indj, ')');
  if (indj + 1 > 0) and (indj + 1 <= n) then writeln('справа ', a[indi, indj + 1], ' координаты: (', indi, ',', indj + 1, ')');
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
13.05.2013, 14:29
Помогаю со студенческими работами здесь

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

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

Найдите максимальную красоту среди красот всех клеток и количество клеток, имеющих такую красоту
Помогите с Олимпиадой задачкой. Проходит не все тесты: Видимость звездочек (упрощенная версия) ограничение времени на тест: 1...

Список всех клеток, на которые может попасть конь с указанной клетки за один ход
Вам дана строка, содержащая координату клетки на шахматном поле (например, “A2”). Напишите функцию possible_turns(cell), которая будет по...

По заданному регистрационному номеру автомобиля выдать фамилию владельца
Здравствуйте. Нужна помощь. Нужно сделать на pascal: &quot;Cформировать файл следующей структуры: марка автомобиля, фамилия владельца, адрес,...


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

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

Новые блоги и статьи
Angular vs Svelte - что лучше?
Reangularity 09.07.2025
Сегодня рынок разделился на несколько четких категорий: тяжеловесы корпоративного уровня (Angular), гибкие универсалы (React), прогрессивные решения (Vue) и новая волна компилируемых фреймворков. . .
Code First и Database First в Entity Framework
UnmanagedCoder 09.07.2025
Entity Framework дает нам свободу выбора, предлагая как Code First, так и Database First подходы. Но эта свобода порождает вечный вопрос — какой подход выбрать? Entity Framework — это. . .
Как использовать Bluetooth-модуль HC-05 с Arduino
Wired 08.07.2025
Bluetooth - это технология, созданная чтобы заменить кабельные соединения. Обычно ее используют для связи небольших устройств: мобильных телефонов, ноутбуков, наушников и т. д. Работает она на частоте. . .
Руководство по структурам данных Python
AI_Generated 08.07.2025
Я отчетливо помню свои первые серьезные проекты на Python - я писал код, он работал, заказчики были относительно довольны. Но однажды мой наставник, взглянув на мою реализацию поиска по огромному. . .
Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах
Programma_Boinc 08.07.2025
Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Опубликовано: 07. 07. 2025 Рубрика: Uncategorized Автор: AlexA Статья размещается на сайте с разрешения. . .
Раскрываем внутренние механики Android с помощью контекста и манифеста
mobDevWorks 07.07.2025
Каждый Android-разработчик сталкивается с Context и манифестом буквально в первый день работы. Но много ли мы задумываемся о том, что скрывается за этими обыденными элементами? Я, честно говоря,. . .
API на базе FastAPI с Python за пару минут
AI_Generated 07.07.2025
FastAPI - это относительно молодой фреймворк для создания веб-API, который за короткое время заработал бешеную популярность в Python-сообществе. И не зря. Я помню, как впервые запустил приложение на. . .
Основы WebGL. Раскрашивание вершин с помощью VBO
8Observer8 05.07.2025
На русском https:/ / vkvideo. ru/ video-231374465_456239020 На английском https:/ / www. youtube. com/ watch?v=oskqtCrWns0 Исходники примера:
Мониторинг микросервисов с OpenTelemetry в Kubernetes
Mr. Docker 04.07.2025
Проблема наблюдаемости (observability) в Kubernetes - это не просто вопрос сбора логов или метрик. Это целый комплекс вызовов, которые возникают из-за самой природы контейнеризации и оркестрации. К. . .
Проблемы с Kotlin и Wasm при создании игры
GameUnited 03.07.2025
В современном мире разработки игр выбор технологии - это зачастую балансирование между удобством разработки, переносимостью и производительностью. Когда я решил создать свою первую веб-игру, мой. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru