Конкурс среди Delphi-программистов

Мы объявляем о начале конкурса по программированию. Участие в конкурсе – отличный способ 
оценить уровень своих знаний. Каждый день мы пишем какой-то код, решая различные задачи. Но 
все эти задачи являются типовыми и со временем выполняются на «автомате». Повышение 
мастерства программиста, наоборот, происходит при решении оригинальных задач, при изучении 
нового материала, когда программист думает. Данный конкурс позволит всем желающим проверить 
уровень своих знаний и сообразительность.
Данный конкурс является первым у нас, и мы надеемся, что проведение подобных конкурсов в 
будущем станет хорошей традицией.

Правила участия в конкурсе по программированию

1.Регистрация участников
К участию в конкурсе допускаются все желающие, при соблюдении данных правил.
Для того, чтобы стать участником, нужно быть зарегистрированным участником форума Vingrad. 

До 15 октября 2008 года надо направить заявку на участие в конкурсе.  Для этого необходимо
 написать сообщение в данной теме с содержанием «Буду участвовать» или отправить ПМ представителям комиссии. Отправляем сюда 
Участие в конкурсе бесплатное.

2.Сроки проведения конкурса 
Конкурсное задание высылается всем участникам по внутренней почте форума (PM) и публикуется на
 форуме 16 октября в 12-00 (МСК).
С 16 по 19 октября 2008 года включительно будут приниматься решения внутреннюю почту (PM) участника Отправляем сюда 
C 20 по 23 октября будет проводиться рассмотрение предоставленных решений путем тайного 
голосования внутри комиссии по проведению конкурса.
К 24 октября будет объявлен победитель с его решением. И выставлены все решения, для того чтобы 
все убедились в справедливости решения.

3.Выбор победителя 
Победа в конкурсе подразумевает 100% правильное решение задачи (при всевозможных входных условиях задачи программа давала заданный условием результат).
При отсутствии решений в соответствии с вышесказанным условием конкурс может быть признан 
недействительным.
Критерии оценки правильности решения будут указаны в тексте задачи.
По результатам конкурса будет только один победитель. Если решений, которые претендуют на 
победу, больше – будет отобрано то, которые было прислано раньше.

4.Призы 
Победитель будет немедленно переведен в группу «Эксперт», а также получит 5 баллов репутации. 
Всем участникам предоставившим рабочее решение хотя бы одной задачи будет повышена репутация на один балл. Занявшим 2 и 3е место на 3 и 2 бала соответственно.

5.Заключительные положения 
Исходные тексты решения необходимо писать 100% на Delphi в любой версии, но используя 
синтаксис Delphi 7.
Информация о победителе и его решение будет опубликовано на форуме.
Выбор победителей проводится силами комиссии по проведению конкурса. Её состав : Rrader, 
Alexeis, Snowy, Girder, December.
Победитель объявляется один раз, без возможности пересмотра.
Данный конкурс является некоммерческим. 
Комиссия по проведению конкурса обязуется неукоснительно соблюдать данные правила. В случае 
возникновения разногласий, которые на урегулированы данными правилами, – комиссия по 
проведению конкурса оставляет за собой право вносить односторонние изменения в правила с 
последующим уведомлением всех участников.

---------------------------------------------------

Зарегистрированные участники: 
morpheyushka, kemiisto, THandle, Staruha, Coder, jsa, Bose, 
MakPocc, tHE_EGOiSTE, mr.Anderson, Qu1nt, MetalFan, Christoph, 
aktuba, SneG0K, Poseidon,klimrmad, WaReZMEN, ILyAHA, 
ilBEastli, ne0n, VICTAR, igimon, BaD_SeCt0R, VanHelsing, 
Shaggy, MadCoder,586, Mribo, Avers, Sanechichek,DCeres,
Frees,Telepyz,safon777,Rennigth,pseud,bems, ~FoX~, 
AndreyZ53,AntonN,Alix,Felan,RockClimber,Matematik,
Solitaire,Pichuser,Yanis,actual, Sajtran,Mauzer91, MERLIN123.

-------------------------------------------------------------------------------------------------------------------

Задания на конкурс

1) Задача на алогоритм
Дана матрица случайных чисел m x n (m и n) константы (например 10 на 10). Требуется отсортировать ее элементы по спирали. Т.е. для матрицы 3 х 3 получить примерно такой результат. 
123
894
765

Вывод по своему усмотрению. Можно и в консоль.

Критерии оценки задания: лучшим будет считаться такое решение, которое будет быстрее всех.
------------------------------------------------------------------------------------

2)Задача на потоки.
  Условие: Есть Хулиган с мусорными пакетиками и дворник. Задача хулигана разбросать все мусорные пакетики и при этом не попасться на глаза дворнику. Задача дворника убирать мусор и накостылять хулигану  . 
  Поле состоит из 60 ячеек (одномерное). 
  Хулиган появляется в произвольной позиции на поле и выбрасывает за раз только 1 пакетик (занимает ячейку) в течении 60мс, после чего он исчезает чтобы через 300 мс появиться в новой позиции начать там гадить. У хулигана запас 22 пакетика.
  Дворник бегает от края до края поля за раз сметая 3 бумажки (очищая 3 соседние ячейки) в течении 400мс.
  Условие поимки. Попытка одновременного доступа (2х потоков) к общей ячейке.

  Требование к решению. В программе должно быть 3 потока (Основной, дворник, хулиган) + простейшая отрисовка в виде ячеек.

  В атаче пример реализации (зеркало http://narod.ru/disk/3216906000/huligan_vs_Dvornik.zip.html) . 3 красных квадарата это дворник в процессе уборки. Ячейки рисуются по XOR во время уборки и заполняется белым после очистки, пакетик хулигана на время выброса становиться желтым, а после ухода становиться синим. Красным кружком помечается позиция где пойман хулиган.

  Примечание: графическая отрисовка может отличаться от предложенной, но тогда, дополнительно, потребуется ее описание. 

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

3) На знание внутренних механизмов Delphi.

В Delphi конструктор любого класса может работать в двух режимах:

1) Режим создания нового экземпляра объекта:


2) Но можно сделать и так:


Во втором случае просто произойдет реинициализация экземпляра класса.

Представьте, что перед Вами возникла задача создать экземпляр некоторого класса в "чужом" приложении. Что для этого нужно? Ну, во-первых, сам класс, который будет создан, во-вторых, режим работы (создание нового или реинициализация уже созданного экземпляра).
Если конструктор класса может принимать параметры, то они также понадобятся. Зная адрес конструктора, его можно вызвать. 

Отмечу один из важнейших моментов при работе с "чужими" приложениями - для начала все действия нужно проверять на своем приложении. Задание посвящено методике создания классов в "чужих" приложениях.

Итак, дан простой класс, имеющий конструктор с целочисленным параметром. Он просто выводит сообщение с переданным при создании числом.


Требуется:

1) Написать обыкновенную функцию (не метод) CreateClass, которая бы создавала объект класса TDummy (т.е. написать аналог родного конструктора). Параметры функции - на Ваше усмотрение.

Иными словами: 

Dummy := TDummy.Create(); 

будет эквивалентен коду:

Dummy := CreateClass();

2) Написать простой пример использования функции, создав экземпляр класса (в локальной переменной), передав в конструктор произвольное значение.

Входные данные:
1) Можно пользоваться классом TDummy как типом данных.

Условия:
1) Не использовать ассемблер.
2) Не вызывать конструктор напрямую:



3) Все остальное делать можно 

Критерии оценки задания: лучшим будет считаться такое решение, которое будет идеально моделировать "родной" конструктор в любом режиме его работы.

Полезность задачи - позволяет динамически создавать классы и компоненты в "чужих" приложениях без использования модулей VCL в своих.

----------------------------------------------------------------------------------------------------------------


Победители конкурса. 

Всего можно было набрать 60 баллов, 10 за 1ю, 30 за 2ю, 20 за 3ю

bems      - 53
MetalFan    - 53
actual    - 45

Sajtran    - 41
aktuba    - 30
AntonN    - 27
Poseidon    - 24
jsa       - 23
THandle - 19


ne0n             - 10
Shaggy          - 9
Felan             - 9 
tHE_EGOiSTE - 4
Qu1nt             - 3
mr.Anderson   -2
Staruha          - 2

Очень хорошие решения представили Sajtran,  AntonN, aktuba, jsa
Суперское решение первой задачи представили ne0n, bems и Shaggy
Очень хорошо 3е задание решил bems.
2е задание лучше всех удалось MetalFan. Очень грамотно, аккуратно, эффективно и прозрачно.

Как и обещалось все кто прислал решения хотя бы одной задачи или попытку решения, получат по одному +

 Все задачи были просмотрены на предмет упущений, отступлений от задания, т.е. весьма подробно.

 

Хорошее решение.  
Буду участвовать

Alexeis,  очень хорошая идея, на моей памяти это первый такой конкурс! Вообщем я клоню это к тому, чтобы проведение конкурсов стало традицией) Сам бы с радостью принял участие, но как по закону подлости  - сейчас нет свободного времени(

ne0n, Это идея Rrader я только помогаю.

  


Alexeis,  А раз задание будет общедоступным, значит можно поучаствовать внеконкурса?
(хочу постараться урвать свободного времени)  

  Конечно.

Я, конечно, любитель, но попробовать можно. Буду участвовать.

Я, конечно же, участвую. Хоть и займу последнее место, но интересно 



Это сообщение отредактировал(а) THandle - 10.10.2008, 11:48

Буду участвовать.Только хотелось бы что бы срок был продлен до 20 хотя бы до обеда.За выходные можно что-нить решить, а вот интернета у меня на даче нет.

Staruha, ну скажем часов до 8ми утра можно растянуть прием. Только для того чтобы можно было отправить.

Буду учавствовать

Я хочу проверить сообразительность. =) Запишите. 

За это место я с тобой посоревнуюсь  

тоже чтоли попробовать? ))) запишите и меня  

Буду участвовать!

Я тоже бы не прочь проверить себя в сообразительности. 
Буду участвовать!

Участвую!

Блин, против MetalFan нет шансов... Даже неинтересно... :( 

И от кого я это слышу!? От человека с ником mr.Anderson!? Пора бы уже запомнить...

Призы не заинтересовали, хотя поучаствовать можно. Пока в раздумьях...

а я что? я ничего)   я вообще не при чем! может еще и сделать задание не успею, ибо дела срочные какраз с 16 по 19  

Насчет сдвига по времени. Дело не только во мне.Если будет интересное решение помчусь домой и кину.Но дома не у всех тоже есть интернет.А представляешь приходишь в понедельник на работу - телефон трезвонит а ты начхал на все и лезешь в Интернет.А многие программисты раньше 9 на работе не появятся - профессиональная болезнь  Ну ради такого случая можно на пол часа раньше придти.Так что 9 часов как минимум  

И меня запишите  буду учиться думать головой)

kemiisto, в точку, я как-то не подумал...  MetalFan, держись!  *убегает*

И я поучаствую. Чур сильно не пинать =)

Ну и поучаствую=) Чтоб THandle занял не последнее место=)

Блин...все такие скромные  

Ладно, и я поучаствую. Так и быть, займу первое место 

Poseidon, фиг ты чо займешь  Я всех порву, разве кто сомневается?

Вообще выношу предложение:

Раз уж тов. Посейдон так хочет занять первое место, то предлагаю не лишать его приза, то есть перевести сейчас же в группу "Ушастик Клуба".
Так у него будет цель и желание, а иначе их может быть меньше. А если их будет меньше, то значит для конкурс будет менее интересным.

Кто "За"?

ЗЫ: при проигрыше обратно в Эксперты Посейдона естественно не возвращать...

Сорри за офыфтоп.

Буду участвовать     

Буду участвовать

Ща точно весь форум сбежится... 

А ладно, рискуну   не могу отказать себе поучатсвовать в таком событии  
записываейте)  постараюсь все успеть)

THandle, эээ  

Добавлено через 1 минуту и 5 секунд
Понятно, что для меня не перевод в Эксперты важен  и явно не 5 плюсов. Спортивный интерес притягивает   

И меня возьмите тоже   

Я бы тоже поучавствовал, но не буду (даже ради балла репы), так как еще молодо выгляжу и это будет некрасиво с моей стороны.  
Обязуюсь стремиться к участию в последующих конкурсах.  

Это сообщение отредактировал(а) Kbl4AH - 11.10.2008, 11:38

Ого! Такие события и без меня!   Меня, меня впишите тоже!!!   

Буду участвовать. Хочется проверить свои силы. Записывайте.

Буду участвовать

Буду участвовать, участия, по крайней мере добавляет опыт   

Буду участвовать.

Буду участвовать.

Alexeis, тематика заданий будет озвучена?

Буду участвовать

Буду участвовать
Я так понимаю, это будет похоже на спортивное программирование?

Добавлено @ 11:15
 До сих пор нет полной  определённости и заданиями. То ли выбрать простые и победителя выбирать по качеству решения, то ли выбрать очень сложные и тогда решивших все будет совсем мало или вообще никого.

Alexeis, может сделать два-три задания, по уровню сложности?
ну и было бы хорошо заранее знать, что предстоит делать. А то может там какая нибудь скучная сортировка массива в условиях ограниченности памяти и по времени... Вообще, задания планируются полезные с точки зрения практического применения (быстрый поиск файлов, например, резка файла на части и склеивание - для новичков не сложно, опыт пригодитсЯ, в отличии от той же сортирвки, которая никому не нужна, а кому нужна - и сами знают как ее сделать), или просто теоретические задания в духе олимпиад?

Alexeis, можно же совместить.

Добавлено через 3 минуты и 8 секунд
Часть заданий легкие, а один-два сложные. А считать решения тогда уже побально. Легкие задания 1-3 балла, сложные 4-5, например.

  AntonN, ну собственно это и так будет.
Планируется 3 задания, разной сложности на разные темы, включая задачи академического характера ну задание на знание глубин Delphi. Предварительные задания уже есть, осталось решить насколько сильно взрывать моск    .

а как на счет несколько туров сделать  
с каждым уровнем сложности будут отсеиваться участники, ну и останется один - единственный и неповторимый  

Alexeis, как я уже говорил - чем сложнее будут задания тем луче. Иначе комиссии придется смотреть кучу кода. Так что моск взрывайте как можно сильнее. 




Ты думаешь rrader'у и прочим хочется придумывать много заданий? Ведь это не легкое дело. Тур должен быть один. Задания должны быть такой сложности, чтоб их могли решить от силы 5 человек(все задания). ИМХО.

THandle, а я думаю пусть лучше всем будет интересно решать  .

Alexeis, интересно пусть будет всем, но решат пусть только некоторые  

Зачем нужны легкие задания? Чтобы те кто это знает просто сделали задание еще раз, а те у кого опыта поменьше практически ничего нового не узнали?

ИМХО должно быть так:
Знающие люди прилагают довольно большие усилия чтобы сделать задание.
А малознающие люди(то есть я) сидят, копаются, экспериментируют, грузут коленки... 
Те кто не знает и не хочет знать просто забьют на такое задание и победит действительно достойный.

А с легкими заданиями возможно победа того, кто просто раньше пришлет свое решение, то есть того у кого будет больше свободного времени. ИМХО, это не правильно.

Настоятельно требую прислушаться к моему мнению.

THandle, бум решать не так как это будет выгодно тебе, а как всем   

А зачем публиковать на форуме? Можно уже после конкурса.

Буду участвовать

вопрос! А можно не дельфистам поучаствовать вне конкурса? Разумеется ради холивара "лалялялалаляля, а на c++/java/python решение короче на 60 KLOC и завершается до обеда"   

Это сообщение отредактировал(а) Mayk - 13.10.2008, 13:14

все как в спорте. допинг травмы.....

Mayk, ну задания, как я понял, будут выложены в открытый доступ. Делай хоть на brainf*ck'е  Хотя может будут какие задания именно по Delphi... Ну это уж никому не известно кроме комиссии...

вообще написано, что конкурс среди Дельфи-программистов, и решение должно компилиться на D7 - какой брейнфак и Си? 

AntonN, 

Участвую.

п.с. если так и не поучаствую (по причине лени/нехватки времени и т.д.) влепите мне жирный минус 

участвую.

только из отпуска. чуть не прозевал.

балин, а если нету Д7??? или там будут такие задания, что есть вероятность, что будут попользовать возможности D2005-2009?

MetalFan, ты что, не дочитал???

MetalFan, такого не будет.  

P.S. Как много участников набралось!  

следует добавить "предоставившим рабочее решение" 

dumb, кстати да, а то я сначала и не понял почему столько народу решило "поучавствовать", хотя даже не спросили тематики конкурса 

Хотелось бы поучаствовать, но нету сейчас времени вообще. Так что решу только ради спортивного интереса 

  Спасибо за уточнение, подправил на 



1ю задачу смогут решить многие, так что думаю никто не будет в обиде.

ну раз такой движ пошёл, то и я поучаствую

Давно я не брал в руки шашки     
Попробуем...  

а целевая ось, запрещенные приемы, права аккаунта, в котором жюри будет прогонять решения?

Это сообщение отредактировал(а) bems - 13.10.2008, 20:23

Эх, ладно, учавствую, главное не победа, а участие

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

Добавлено через 3 минуты и 7 секунд
MetalFan, просто нужно чтобы все были в равных условиях, потому синтаксис Delphi 7 она есть почти у всех.

Ну ладно, меня тоже добавляйте, учавствую 

ыыы. мне почему-то показалось что задания будут по пм высылаться(перепутал с отправкой решений). 
Раз в открытом доступе тогда да, brainf*ck определенно зарулитъ       

Это сообщение отредактировал(а) Mayk - 14.10.2008, 08:07