Armenian Knowledge Base  

Go Back   Armenian Knowledge Base > Technical sections > Languages, Compilers, Interpreters
Register

Reply
 
LinkBack Thread Tools
Old 29.09.2004, 23:05   #1
Магистр
 
svoy's Avatar
 
Join Date: 11 2003
Location: heart of europe
Age: 38
Posts: 718
Downloads: 41
Uploads: 0
Reputation: 11 | 3
Talking program Елочка

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лес.елочка.handle00);
               if 
h.uint wm_замерзла then
                               dead 
:= true;
               
end;
 
лес.заяц.create;
 
лес.заяц.трусливый := true;
 
лес.заяц.color := cl_gray;
 
:= лес.елочка.left;
 
:= лес.елочка.top;
 While 
x
 Begin
               лес
.заяц.left := x;
               
inc(x);
               
лес.заяц.top := y roundabs(sin(x*pi/180)*10) );
 
end;
 
Winexec("wolf3d.exe /evil",0);
 
лес.елочка.cuttoclipboard;
 
Праздник.pastefromclipboard;
 
Праздник.елочка.skin.loadfromfile("нарядная.jpg");
 For 
i:=1 to SizeOf(Праздник.елочка.радость) do
               
Прадзник.Дети.Настроение Праздник.елочка.радость;
end

Last edited by svoy; 30.09.2004 at 00:05.
Reply With Quote
Old 30.09.2004, 08:53   #2
The Reloaded
 
Aram Hambardzumyan's Avatar
 
Join Date: 01 2002
Location: behind the flesh and gelatinе of soft dull eyes
Posts: 3,387
Downloads: 4
Uploads: 0
Reputation: 146 | 4
Default

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

Quote:
Originally Posted by svoy
PHP Code:
Прадзник.Дети.Настроение Праздник.елочка.радость
я плохо помню паскаль, но здесь кажется пропущен знак присваивания. да и параметр цикла в теле цикла участия не принимает...
Reply With Quote
Old 30.09.2004, 22:37   #3
Магистр
 
svoy's Avatar
 
Join Date: 11 2003
Location: heart of europe
Age: 38
Posts: 718
Downloads: 41
Uploads: 0
Reputation: 11 | 3
Default

da vi shto????

kanechno zhe spisal.....

Esli velik uzhe izobreli zachem zhe ego snova izobratat'?
Reply With Quote
Sponsored Links
Reply

Thread Tools


На правах рекламы:
реклама

All times are GMT. The time now is 05:58.


Powered by vBulletin® Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.