Отправлено Димыч 20 декабря 2002 г. 18:35

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.

• 5 баллов!!! (-) — Роман Матвеев   (20.12.2002 20:09, пустое)
  • Пятёрку ставить нельзя - много ошибок в программе ! — Rintik   (23.12.2002 10:37, пустое)