Interframe Подключение Софт Info Magic Фото Почта Карта Нарвы
Пользователь
Забыли пароль? Регистрация
Сейчас на сайте

Пользователей на сайте: 35

3 пользователя, 32 гостя

stepanco volk Jurastik

Горячие новости

Уничтоженные гравийные дорожки на променаде - это
Счётчики

LiveInternet

Рейтинг@Mail.ru



В лесу родилась елочка

Скоро Новый Год - учим песенки или ЖЕСТКИЙ КОДИНГ!

Всех тех кто имел дело с языком програмирования Pascal песенка не оставит равнодушным.




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.

Юмор Прямая ссылка Добавил: slayer 10.10.2005 06:55

|


Добавить комментарий

Зарегистрируйтесь на сайте, чтобы
не вводить код безопасности каждый раз.