Новогодняя песня для программистов

Олег Труфанов опять порадовал креативом. Песня про елочку на Pascal или Delphi:

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.

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

Ваш e-mail не будет опубликован. Обязательные поля помечены *