program Елочка

[svoy]

PHP Code:

program Елочка;
Begin
Лес.елочка.create();
While not Лес.елочка.dead do
Begin
               лес.елочка.age := лес.елочка.age + 1;
               if зима or лето then
               begin
                               лес.елочка.plain := true;
                               лес.елочка.color := cl_green;
               end;
               метель.filename:="D:MusicNSYNC - 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. 


[Aram Hambardzumyan]

сам написал или списывал?

Originally Posted by svoy

PHP Code:

Прадзник.Дети.Настроение Праздник.елочка.радость; 


я плохо помню паскаль, но здесь кажется пропущен знак присваивания. да и параметр цикла в теле цикла участия не принимает...

[svoy]

da vi shto????

kanechno zhe spisal.....

Esli velik uzhe izobreli zachem zhe ego snova izobratat'?