Спасибо большое!

LexGoomer - Half-Life 2: Episode Two, Portal 2
IPomas - нет профиля
Дамир - нет профиля
storminside - Battlefield: Bad Company 2
Tricklinkamicus - Dark Messiah Might and Magic, Portal 2
slow - Magicka Collection, Magicka: Gamer Bundle, Magicka, E.Y.E.: Divine Cybermancy, Killing Floor - Steampunk Mr. Froster DLC, Zombie Driver: Summer of Slaughter
KorDen - F1 2010
banana - Battlefield: Bad Company 2
Орион - Red Orchestra 2
Никита С - Half-Life: Source, Garry's Mod, S.T.A.L.K.E.R.: Clear Sky.

Newfr добавил 18-09-2011 в 17:10:12:
Блин, даже рандом им не нравится!

Нормальный такой рандом )

нуу, вообще, если честно, ваш генератор не совсем псевдослучайных чисел!))
в код программы, после объявления переменных нужно было добавить команду "randomize;", которая как раз таки и отвечает за активацию "псевдослучайности" функции "random"!
без этой команды Паскаль берёт не псевдослучайные числа, а просто случайные, и полученные по одному и тому же алгоритму! это даже заметно по порядку чисел: они идут по возрастающей!
так что лотерея какая-то не честная получилась))
вот, собственно, код вашей программы, если вдруг кто забыл: https://www.hl-inside.ru/showpic/?/trash/contest1y.jpg

ABCENT1993 добавил 18-09-2011 в 17:57:08:
так что скажите вашему программисту, что он допустил очень грубую оплошность)

Спасибо!! Наша-Life

O'rly?
По порядку я уже их расставил, чтоб искать было удобнее.
И вы не совсем правы. Процедура Randomize всего лишь обновляет таблицу генератора псевдослучайных чисел, которая в себе содержит 232 (?) числа. Если ее не запускать random будет показывать по кругу все значения этой таблицы. Поскольку моя программа запускалась однократно, то наличие randomize особой роли не играет. Так что учите мат. часть, а не придирайтесь к программистам

Спасибо nasha-life С юбилеем вас

я ни к кому не придираюсь, и уж тем более никого не учу)

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

з.ы.: да что толку спорить: лотерея прошла, победители награждены)
как вы и говорили: "об этом нужно было думать раньше!")))

и да, стандартная таблица случайных чисел turbo pascal - 255 чисел

Когда я ее писал диапазон чисел был не известен еще. При смене диапозона и запуске программы таблица в любом разе обновилась, иначе бы вы не увидели результатов выше 100
Кроме того эта таблица прекращает свое существование, когда вы выходите из программы.
В целом вы правы - в труЪ программах надо обновлять таблицу, но в данном конкретном случае это не имело значения.

Ок, как скажете) Админ всегда прав!))
В конце концов, я свечку не держал и как там дело было не знаю)

Да вообще все в Пейнте нарисовали и призы кому надо выдали

Всё возможно)))

Кстати, было бы справедливо наградить спец. призами лучших нескольких участников, чьи работы "засветились" в каждом конкурсе. А то всё же старались люди, да так ничего и не получили)

Было бы справедливо, если б вы нам подарки дарили, а не мы вам. Если уж на то пошло

это конечно само собой) я имею ввиду конкурсы

Ну как минимум четыре призера лотереи принимали участие в конкурсах - slow, Никита C, KorDen и Robocube (Tricklinkamicus - его брат и поделился призом). Последние троя ничего не выигрывали до этого. Так что в какой-то мере, следуя вашей логике, справедливость восторжествовала (если вы, конечно, не намекали тонко на себя ).