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

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

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

> Координаты картофелин
Merhaba
сообщение 12.05.2011 19:48
Сообщение #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 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Unconnected
сообщение 13.05.2011 7:26
Сообщение #2


mea culpa
*****

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

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


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

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


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

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


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

 



- Текстовая версия 25.05.2024 16:20
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"