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
Дорогие пользователи!Наш сайт постоянно совершенствуется благодаря вашим отзывам. Ваша обратная связь очень важна для нас — она помогает выявлять ошибки и делать сервис удобнее.Поделитесь своими замечаниями в комментариях или воспользуйтесь кнопкой «Что можно улучшить на сайте?». Благодаря вашим отзывам мы быстрее находим недочёты и продолжаем совершенствовать платформу.Спасибо, что помогаете нам делать Студворк лучше!
- Как подготовиться к вступительным экзаменам в вуз: пошаговый план
Собрали пошаговый алгоритм от выбора материалов до дня испытания. Рассказываем, как развить дисциплину и подготовиться без стресса.
- Как перевестись на другой факультет или специальность внутри вуза: условия и порядок
Сравним требования разных вузов и объясним, как перевестись на другую специальность. Разберём заявление и академразницу без лишних сложностей.
- Учебные задачи не берут каникулы — дарим летние скидки
Летом учёба не заканчивается: практика, пересдачи, новые заказы. Дарим скидки на заказы и PRO-аккаунты!
Поможем написать учебную работу любой сложности
Первые отклики уже через 10 минут
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Комментарии5
-- С чего ты взяла?
-- А он, вместо того чтобы мне свой подарок принести, нашел куклу, которую мама в шкафу прятала, и под елочку положил.
-- Если не будешь капризничать, Дед Мороз подарит тебе башенный кран.
-- Здорово! -- обрадовался он. -- Теперь у меня их будет два.
-- Почему два? -- удивилась бабушка.
-- А второй я нашел у тебя под кроватью.
-- Вы только что из дикой Сибири. Ах, расскажите, как вы провели там прошлое Рождество?
-- Я был на елке, сударыня.
-- На елке?! -- обомлела та. -- Вот тебе и дикий край! И кто же это вам устроил-то?
-- Волки, сударыня, волки...