Программерский юмор

Тема в разделе "ЮМОР", создана пользователем NAT., 3 апр 2005.

  1. NAT.

    NAT. Админ

    Песенка про елочку для программистов:
    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.
     
  2. Gollum

    Gollum Guest

    Интересно. И как такое компилируется? :)
     
  3. Ясень

    Ясень New Member

    А что делает эта программа?
     
  4. NAT.

    NAT. Админ

    Ладна..., будем считать что проехали... :D
     
  5. kv

    kv ADMIN Команда форума

    NAT, кайф!
     
  6. Swede

    Swede New Member

    Вот двое самых активных участника форума. Только они днем и ночью читают наш с вами форум.
    Та-та-та Та-дам! ВСТРЕЧАЙТЕ Яндекс Бот (YandexBot) и Гугл Бот (Google Bot)
     

    Вложения:

  7. captaincraft

    captaincraft Banned

    Вот двое самых активных участника форума

    ждем их на группу ? :)
     
  8. seff

    seff Banned

    Рабозарл клативатуру, почитсил и сборла ортбано.
     

Поделиться этой страницей