Станция Юных Техников, при поддержке компьютерной фирмы
ВНИМАНИЕ! для регистрации надо заполнить бланк регистрации
Бланк регистрации
и послать по адресу
starworld@ksut.krasnoyarsk.su
И желательно поторопитсья с регистрацией и вопросами, а то через неделю мне в командировку пора.
В прошлом году народ жаловался, что всем осточертели лабиринты. Хоть с "крабами" хоть с "удавами". Ну что-ж пойдем на встречу пожеланиям трудящихся :-)
Итак условия задачи новогоднего конкурса программистов
1) L_UP - Подпрограмма подьема на этаж выше. (без параметров)
2) L_DOWN - Подпрограмма спуска на один этаж. (без параметров)
3) L_STOP(N) - Остановить лифт и открыть двери. А теперь ВНИМАНИЕ! Цифра,
передаваемая данной подпрограмме нужна для команд людям на этаже.
если она =1, то в лифт зайдут те люди, которые едут наверх.
=2, в лифт зайдут люди едущие вниз.
любое другое значение - в лифт просто зайдут люди в порядке очереди.
Информация о всех параметрах лифта хранится в специальной структуре,
следующего содержания:M_Z - Массив заявок в кабине лифта. Номер элемента указывает на этаж:ВНИМАНИЕ! сколько людей ждет вас на этаже неизвестно (как в настоящем лифте). Ну вот как тут построить оптимальную программу? :-)
0 - на этот этаж нет заявки 1 - есть заявка Тоесть например, если в массиве будет (0 1 1 0 0 0 0 0 0), то это означает, что люди, находящиеся в кабине лифта, едут на 2-ой и третий этажи. M_UP - Массив кнопок "вверх" на всех этажах. Номер элемента указывает на этаж:
Например (1 0 1 0 0 0 0 0 0 0) На первом и третьем этажах стоят люди, которые хотят ехать вверх. M_DOWN - Массив кнопок "Вниз" на всех этажах Номер элемента указывает на этаж:
Например (0 0 0 0 0 0 0 0 0 1) На последнем этаже стоят люди, которые хотят ехать вниз. Если вы остановились на этаже, то заявки этого этажа сбрасываются
Программное обеспечение будет предназначено для нескольких языков программирования
Предполагается, что будет
PASCAL версий 5.5 и 7.0
VB-5
Если сильно надо, то можно еще будет сделать "С"
(но исключительно по просьбам трудящихся)
А пока уже готова первая версия для DELPHI5 и CBUILDER6.
Огромная просьба хорошенько погонять Все это, чтобы выловить баги до того, как приступим к работе. О замеченных недостатках, и просто о предложениях просьба писать на наш адрес.
Как всегда, все написано за вас :-) Нужно просто "подправить" программу, оптимизировать управление для получения максимального количества очков.
В полном соответствии с нашими принципами, задача не имеет однозначного решения. Поэтому все находятся в равных условиях. Тот, кто сможет придумать самый успешный алгоритм, получит больше очков.
Со своей стороны гарантируем абсолютно беспристрастное судейство :-) Кто заработает наибольшее число очков, тот и станет победителем! Именно грамотный алгоритм вашей программы и есть 90 процентов успеха. А еще рекомендуем посмотреть страничку "прошедшие конкурсы". Там можно понять основные традиции наших конкурсов.
Отвечать постараемся побыстрей, но уж как получится, до нового года врямя еще есть :-).
НА СЕГОДНЯ ЗАРЕГИСТРИРОВАЛИСЬ:
| Участник | класс | язык |
| Козырев Владимир - | 9 | Pascal 7.0 |
| Городилов Михаил - | 11 | Delphi 5.0 |
| Порпылев Максим - | 11 | Delphi 5.0 |
| Будников Дмитрий - | 11 | Delphi 5.0 |
| Иванов Александр - | 11 | Pascal 7.0 |
| Сорокин Дмитрий - | 11 | Pascal 5.0 |
| Воробъев Семен - | 9 | VB 5.0 |
| Нечвидов Павел - | 9 | VB 5.0 |
| Кукушкин Денис - | 9 | VB 5.0 |
| Назаренко Павел - | 9 | Pascal 5.0 |
| Русанов Иван - | 9 | Pascal 5.0 |
ВНЕ КОНКУРСА ВЫСТУПАЮТ:
| Участник | очки | язык | комментарий |
| Challenger J.D. | 524 | Delphi 7.0 | Студент СибГАУ |
| Дегтярев С.И. - | 524 | Delphi 5 | Выпускник |
| Дубенко В.А. - | 499 | Pascal 5.0 | Прохожий |
| Тест1 - | 80 | Pascal 5.0 | Тестовая программа |
| Тест2 - | 126 | Delphi 5.0 | Тестовая программа |