program Елочка;
Begin
Лес.елочка.create();
While not Лес.елочка.dead do
Begin
лес.елочка.age := лес.елочка.age 1;
if зима or лето then
begin
лес.елочка.plain := true;
лес.елочка.color := cl_green;
end;
метель.filename:="D:"Music"NSYNC - Bye Bye Bye.mp3";
метель.open;
sleep(1000);
метель.play;
мороз.укутать(лес.елочка);
GetMessage(H, лес.елочка.handle, 0, 0);
if h.uint = wm_замерзла then
dead := true;
end;
лес.заяц.create;
лес.заяц.трусливый := true;
лес.заяц.color := cl_gray;
x := лес.елочка.left;
y := лес.елочка.top;
While x
Begin
лес.заяц.left := x;
inc(x);
лес.заяц.top := y round( abs(sin(x*pi/180)*10) );
end;
Winexec("wolf3d.exe /evil",0);
лес.елочка.cuttoclipboard;
Праздник.pastefromclipboard;
Праздник.елочка.skin.loadfromfile("нарядная.jpg");
For i:=1 to SizeOf(Праздник.елочка.радость) do
Праздник.Дети.Настроение Праздник.елочка.радость;
End.
Новогодняя песня для программистов
Предыдущая тема
Следующая тема
Последние статьи
- Новые идеи — Август 2026
Дорогие пользователи!Мы стараемся, чтобы Студворк был тем местом, куда хочется возвращаться, где удобно работать и общаться с единомышленниками.Вы можете помочь нам в этом, предлагая идеи по улучшению функционала в комментариях.Самые полезные идеи будут рассмотрены в приоритетном порядке и реализованы как можно скорее!
- Технические работы — Август 2026
Дорогие пользователи!Наш сайт постоянно совершенствуется благодаря вашим отзывам. Ваша обратная связь очень важна для нас — она помогает выявлять ошибки и делать сервис удобнее.Поделитесь своими замечаниями в комментариях или воспользуйтесь кнопкой «Что можно улучшить на сайте?». Благодаря вашим отзывам мы быстрее находим недочёты и продолжаем совершенствовать платформу.Спасибо, что помогаете нам делать Студворк лучше!
- Как поступить в авиационный колледж: требования, документы и этапы поступления
Сроки приема, документы, конкурс по аттестату и особенности разных специальностей. Разбираем весь порядок действий от выбора программы до зачисления.
- Интернатура и ординатура: в чем разница и как поступить
Разбираем, чем отличается интернатура от ординатуры. Объясняем поступление, аккредитацию и конкурсные баллы без лишних ошибок.
- Неоконченное высшее образование: что это такое, какие документы подтверждают и где может пригодиться
Показываем, какой документ подтверждает обучение без диплома. Объясняем, как оформить справку и когда она понадобится работодателю, вузу или комиссии
Поможем написать учебную работу любой сложности
Первые отклики уже через 10 минут
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Комментарии5
-- С чего ты взяла?
-- А он, вместо того чтобы мне свой подарок принести, нашел куклу, которую мама в шкафу прятала, и под елочку положил.
-- Если не будешь капризничать, Дед Мороз подарит тебе башенный кран.
-- Здорово! -- обрадовался он. -- Теперь у меня их будет два.
-- Почему два? -- удивилась бабушка.
-- А второй я нашел у тебя под кроватью.
-- Вы только что из дикой Сибири. Ах, расскажите, как вы провели там прошлое Рождество?
-- Я был на елке, сударыня.
-- На елке?! -- обомлела та. -- Вот тебе и дикий край! И кто же это вам устроил-то?
-- Волки, сударыня, волки...