AKB Forums

Go Back   AKB Forums > Technical sections > Languages, Compilers and Interpreters
Home Register Blogs FAQ Members List Calendar Downloads Arcade Mark Forums Read

Languages, Compilers and Interpreters C,C++,C#,.NET,Java,PHP,Perl,SQL and more

Troubles when posting message? Click here! :: Проблемы с отправлением сообщения? Нажмите сюда!

Reply
 
LinkBack Thread Tools Display Modes
Old Sep 29, 2004, 22:05   #1
Магистр
 
svoy's Avatar
 
Join Date: Nov 2003
Location: heart of europe
Posts: 704
Rep Power: 5
Reputation: 10
Send a message via ICQ to svoy Send a message via AIM to svoy Send a message via MSN to svoy Send a message via Yahoo to svoy Send a message via Skype™ to svoy
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
__________________

If you stop, you die! Doc Miles, Crank

Last edited by svoy : Sep 29, 2004 at 23:05.
svoy is offline   Reply With Quote Quote selected
Old Sep 30, 2004, 07:53   #2
The Reloaded
 
Aram Hambardzumyan's Avatar
 
Join Date: Jan 2002
Location: behind the flesh and gelatinе of soft dull eyes
Posts: 3,178
Rep Power: 7
Reputation: 45
сам написал или списывал?

Quote:
Originally Posted by svoy
PHP Code:
Прадзник.Дети.Настроение Праздник.елочка.радость
я плохо помню паскаль, но здесь кажется пропущен знак присваивания. да и параметр цикла в теле цикла участия не принимает...
Aram Hambardzumyan is offline   Reply With Quote Quote selected
Old Sep 30, 2004, 21:37   #3
Магистр
 
svoy's Avatar
 
Join Date: Nov 2003
Location: heart of europe
Posts: 704
Rep Power: 5
Reputation: 10
Send a message via ICQ to svoy Send a message via AIM to svoy Send a message via MSN to svoy Send a message via Yahoo to svoy Send a message via Skype™ to svoy
da vi shto????

kanechno zhe spisal.....

Esli velik uzhe izobreli zachem zhe ego snova izobratat'?
__________________

If you stop, you die! Doc Miles, Crank
svoy is offline   Reply With Quote Quote selected
Reply


Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Program Coordinator PsilocybeLarvae Jobs 0 Sep 18, 2004 17:39
Program Assistant / ESDF PsilocybeLarvae Jobs 0 Jul 13, 2004 11:51
Development Program Specialist Gayka Jobs 0 Apr 29, 2003 09:03
Program Officer Gayka Jobs 0 Apr 26, 2003 05:46
PHP Grant Program Forever Child Web Development 0 Mar 19, 2003 09:46


All times are GMT. The time now is 00:44.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
This board was founded on September 29, 2001
Powered by Viper Internet

Affordable Web Hosting | ParevNet

Buy text link