НОВОЕ В БЛОГАХ
  • Dezz13
    Куплю ведро брусники
    Dezz13 - 18 сен.
  • E-moll
    Самый лучший в мире кот :-P
    E-moll - 17 сен.
  • Всем привет
    Irinala - 16 сен.
  • Brille
    Хрустальные люстры в дом
    Brille - 16 сен.
  • Приложения мобильных казино
    SerStone - 12 сен.
  • Berg Master
    Струйный принтер HP OfficeJet 7110: почему я рекомендую
    Berg Master - 05 сен.
  • Слот Пират
    Alehan95 - 29 авг.
  • Gunner
    ржал
    Gunner - 25 авг.
  • Sana
    Gogetlinks
    Sana - 24 авг.
  • Berg Master
    Выбор оптимального VPS хостинга задача не из простых
    Berg Master - 22 авг.
Sana
Администратор
Рейтинг:
2659
Сообщений:
23,208
На сайте с:
07.09.2004
Из:
Саяногорск
Пользователь №:
1
17 декабря 2004, 22:51 | Оценка: нет оценки
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.
Саяногорск инфо - Саяногорский городской сайт
ICQ: 215340073 | e-mail: admin@sayanogorsk.info | Skype / Telegram: mrSana19
[IMG]
TinKa
Постоялец
Рейтинг:
0
Сообщений:
433
На сайте с:
14.11.2004
Из:
Novosibirsk
Пользователь №:
74
18 декабря 2004, 00:04 | Оценка: нет оценки
а ещё песенка для админов)
старенькая правда..
Злобный
Авторитет
Рейтинг:
1015
Сообщений:
9,157
На сайте с:
11.11.2004
Пользователь №:
65
18 декабря 2004, 00:39 | Оценка: нет оценки
А еще есть листинг пьянки прогамистов:
Procedure Drinks;
Begin

Open(Bottles);
Repeat
Drink(Next(Gramms100));
Zakus:=Eat(Next(Foods));
Until TwoViewInEyes;
End;{ Drinks }
[IMG]
Bars
Постоялец
Рейтинг:
0
Сообщений:
141
На сайте с:
16.11.2004
Из:
Новосибирск / Саяногорск
Пользователь №:
75
20 декабря 2004, 16:43 | Оценка: нет оценки
Sana, Злобный

Прикольно! Не знал, что на Паскале можно песни писать ...
И вообще - Pascal Forever!

TinKa

Классная песенка! Сурьезная такая ... thumbsup.gif
Телом - в Новосибирске, душой - в Саянах
Похожие темы Автор темы
Песня из ночного дозора Sana
1 чел. читают эту тему (1 Гостей и 0 Скрытых Пользователей)

наверх