Катание на коньках., Составить задачу которая сортирует по очкам. |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Катание на коньках., Составить задачу которая сортирует по очкам. |
DarkWishmaster |
27.06.2011 18:21
Сообщение
#1
|
Бывалый Группа: Пользователи Сообщений: 168 Пол: Мужской Репутация: 3 |
Привет. Такая задача:
В соревнование по артистическому катанию на льду играли N игроков. Они набрали очков из интервала [0..100]. Очки это вещественые числа формата: aa.bb. Составить програму которая показывает К финалистов т.е сортировать по убыванию этих N и показать только К из них. Пример: IN: 15 9 8.5 9.5 8.5 7.5 7.7 7.5 7.7 8.5 5.5 6.3 7.4 7.5 8.5 9.1 9.8 OUT: 9.80 9.50 9.10 8.50 8.50 8.50 8.50 7.70 7.70 0<=N,K<=30000; Время выполнения < 1 сек Так как вектор 1..30000 вещественых чисел слишком большая структура то я сделал так: Массив 0..100, 0..100 где координата i - целая часть а j - дробная часть числа из файла. Вот код, для больших чисел работает вроде.
Проблемы: 1) Для примера показаного выше в файл ничего не пишет, но если написать чтоб выводил на экран то всё выводит. 2) Почему-то когда nr=70.0 то trunc(nr)=69 тоже не пойму. 3) Не уверен что правильно выводит решение. прикрепил тесты. Сообщение отредактировано: DarkWishmaster - 27.06.2011 21:29 Прикрепленные файлы tpatinaj.rar ( 455.24 килобайт ) Кол-во скачиваний: 269 |
Lapp |
27.06.2011 21:12
Сообщение
#2
|
Уникум Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
Подробно твой код пока не смотрел, но и не уверен, что стОит. Вот эти слова:
Так как вектор 1..30000 вещественых чисел слишком большая структура - говорят о том, что ты все еще Цитата то я сделал так: Идея верная - не потому, что тот массив слишком большой, а потому что так проще для сортировки (сортировка подсчетом). Но мне неясно, зачем массив двумерный. Не проще ли завести массив из 10000 целых, а индекс находить так:Массив 0..100, 0..100 где координата i - целая часть а j - дробная часть числа из файла i:= Round(x*100);- без всяких там целых/дробных частей? -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
DarkWishmaster |
27.06.2011 21:15
Сообщение
#3
|
Бывалый Группа: Пользователи Сообщений: 168 Пол: Мужской Репутация: 3 |
Подробно твой код пока не смотрел, но и не уверен, что стОит. Вот эти слова: - говорят о том, что ты все еще Идея верная - не потому, что тот массив слишком большой, а потому что так проще для сортировки (сортировка подсчетом). Но мне неясно, зачем массив двумерный. Не проще ли завести массиы из 10000 целых, а индекс находить так: i:= Round(x*100);- без всяких там целых/дробных частей? Проще! щя редактирую, спасибо =)) |
Lapp |
28.06.2011 4:53
Сообщение
#4
|
Уникум Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
Зря ты стал редактировать старый пост. После этого тему можно выбрасывать - никто уже не сможет разобраться в ней: слова одни, код другой.. Да и ошибки в коде.. Видимо, надо сокращать время редактирования до часа или меньше.
Файл у тебя пустой, потому что ты его не закрываешь. С оператором exit нужно быть предельно осторожным. Он не структурный, а потому практически такой же вредный, как и goto. Корни твоей ошибки в том, что ты выделил запись в файл в отдельную процедуру. Само по себе это не плохо (хотя тут совершенно не нужно), но ты забыл ЗАЧЕМ ты это сделал (а потому и забыл, что бессмысленное действие) и спутал функциональность цикла записи и всего акта записи (открытие файла, цикл, закрытие). Тут больше подошел бы break, но им я тоже пользоваться не советую (по той же причине). Самое же смешное состоит в том, что этот оператор if вообще не нужен, поскольку у тебя это уже есть в условии while. Структуру этого цикла я бы тоже переделал, примерно вот так: [неправильно, см. ниже] while r<k do begin -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
DarkWishmaster |
28.06.2011 13:09
Сообщение
#5
|
Бывалый Группа: Пользователи Сообщений: 168 Пол: Мужской Репутация: 3 |
Зря ты стал редактировать старый пост. После этого тему можно выбрасывать - никто уже не сможет разобраться в ней: слова одни, код другой.. Да и ошибки в коде.. Видимо, надо сокращать время редактирования до часа или меньше. Файл у тебя пустой, потому что ты его не закрываешь. С оператором exit нужно быть предельно осторожным. Он не структурный, а потому практически такой же вредный, как и goto. Корни твоей ошибки в том, что ты выделил запись в файл в отдельную процедуру. Само по себе это не плохо (хотя тут совершенно не нужно), но ты забыл ЗАЧЕМ ты это сделал (а потому и забыл, что бессмысленное действие) и спутал функциональность цикла записи и всего акта записи (открытие файла, цикл, закрытие). Тут больше подошел бы break, но им я тоже пользоваться не советую (по той же причине). Самое же смешное состоит в том, что этот оператор if вообще не нужен, поскольку у тебя это уже есть в условии while. Структуру этого цикла я бы тоже переделал, примерно вот так: while r<k do begin Понял! Спасибо! |
Lapp |
28.06.2011 21:40
Сообщение
#6
|
Уникум Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
Понял! Спасибо! Упс! Взгляд с утра на свежую голову - лучшее средство для поиска ошибок у себя.. Тот цикл будет работать неправильно. Надо вот так: while r<k do Извиняюсь за дезу.. )) -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
Текстовая версия | 21.06.2024 16:08 |