Программа Нового Года

Главная » Технический юмор » Программа Нового Года
newyear

Новогодний тост

Приходит парень к колдуну и просит:

— Сделай мне член до земли.

Колдун подумал, подумал и сделал ему ноги длиной десять сантиметров.

Так выпьем же за грамотно составленное техническое задание !

Новогодние песни

 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.

Оставьте комментарий к статье