IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Координаты картофелин
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 57
Пол: Мужской

Репутация: -  0  +


Добрый Вечер!!!
Помогите Пожалуйста решить задачу, очень надо!!!
Ограничение времени: 0.5 секунды
Ограничение памяти: 64 МБ

Анка и Петька ждали Чапаева и ели картошку. Вскоре они наелись и решили поиграть в «Чапаева» оставшимися четырьмя картофелинами.
Петька достал доску размером 20 × 20 клеток, положил на неё картофелины и сказал, что по правилам никакие две картофелины не могут находиться в одной клетке, а одной картофелиной можно сбить другую только в том случае, если они расположены на одной горизонтали или вертикали и между ними нет других картофелин.
Анка предложила взять некоторые картофелины и поставить их на другие свободные клетки так, чтобы каждой картофелиной можно было сбить ровно одну другую. Помогите Петьке переставить как можно меньше картофелин, чтобы выполнить её просьбу.
Исходные данные
В четырёх строках записаны координаты картофелин xi, yi — целые числа в пределах от 1 до 20. Никакие две картофелины не расположены в одной клетке.
Результат
Выведите новые координаты картофелин. Картофелины следует описывать в том же порядке, в котором они заданы на входе. Если возможных ответов несколько, выведите любой.

Пример:
1 1
2 2
4 4
4 3
Результат:
1 2
2 2
4 4
4 3
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


mea culpa
*****

Группа: Пользователи
Сообщений: 1 372
Пол: Мужской
Реальное имя: Николай

Репутация: -  24  +


Задаётся массив из 4-х элементов типа TPotate, в нем будет храниться инфа о каждой картофелине - координаты и количество бьющих её картошек. В начале этот массив заполняется, функция bcount находит, сколько клеток бьют клетку, координаты которой во входных параметрах ф-ии. Ну и главный цикл - проход по всем элементам массива, если какой-то эл-т бьёт не 1 клетка, а больше или меньше (а по условию нужна именно одна), то ищем такую клетку, которую бьёт одна другая клетка.. и переставляем. И обновляем информацию о том, какую клетку сколько бьют.

Сообщение отредактировано: Unconnected -


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Merhaba   Координаты картофелин   12.05.2011 23:48
Unconnected   Слабонервным не читать :blink: {$APPTYPE CO…   13.05.2011 3:57
Merhaba   Слабонервным не читать :blink: {$APPTYPE C…   13.05.2011 10:23
Unconnected   Задаётся массив из 4-х элементов типа TPotate, в н…   13.05.2011 11:26
Merhaba   Задаётся массив из 4-х элементов типа TPotate, в …   13.05.2011 11:46
Unconnected   type TPotate=record x,y,b:byte; end; var p:arra…   13.05.2011 11:54
Merhaba   type TPotate=record x,y,b:byte; end; var p:arr…   13.05.2011 12:30
Lapp   Un, что-то у тебя не то.. Я добавил псевдографику…   13.05.2011 13:24
sheka   Объясните задание, пожалуйста.   13.05.2011 13:43
Lapp   Объясните задание, пожалуйста. На доске 4 ладьи.…   13.05.2011 14:53
Merhaba   На доске 4 ладьи. Переместить минимальное количе…   13.05.2011 22:47
Merhaba   На доске 4 ладьи. Переместить минимальное количе…   14.05.2011 0:03
Merhaba   На доске 4 ладьи. Переместить минимальное количе…   18.05.2011 23:48
sheka   http://www.google.com.ua/search?hl=ru&q=pa...256l2…   13.05.2011 23:57
Unconnected   Это не очень правильное решение, как оказалось, не…   14.05.2011 0:29
Merhaba   Это не очень правильное решение, как оказалось, н…   14.05.2011 21:44
Unconnected   Не знаю, нужно ли ещё, но вот (экзамены на носу, в…   21.05.2011 18:17
Merhaba   Не знаю, нужно ли ещё, но вот (экзамены на носу, …   21.05.2011 23:47


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

 





- Текстовая версия 7.05.2024 18:36
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name