ParsX.com
پذیرش پروژه از دانشجویی ... تا سازمانی 09376225339
 
   ProfileProfile   Log in to check your private messagesLog in to check your private messages  |  FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups Log inLog in   RegisterRegister 

یه برنامه ساده ولی جالب ...

 
Post new topic   Reply to topic    ParsX.com Forum Index -> برنامه نويسي دلفي و پاسكال : Delphi & Pascal Programming
View previous topic :: View next topic  
Author Message
arash
مدير بخش سي
مدير بخش سي


Joined: 27 Nov 2004
Posts: 1232
Location: www.parsx.com

PostPosted: Tue May 03, 2005 6:58 pm    Post subject: یه برنامه ساده ولی جالب ... Reply with quote

در این برنامه چند تابع مختصر استفاده که عبارتند از :
clrscr: این تابع برای پاک کردن صفحه به کار می رود
(مدت زمان بر حسب میلی ثانیه) delay : برای وقفه انداختن به اندازه زمانی که به تابع داده می شود

و خود برنامه :
program hello;
 Uses
     crt;
 var
   i,j:integer;
 begin
  for j:=1 to 13 do
  begin
    for i:=1 to 47 do
                    begin
                       clrscr;
                       gotoxy(35,i);
                       write('**');
                       gotoxy(34,i+1);
                       write('****');
                       gotoxy(35,i+2);
                       write('**');
                       delay(abs(i-50)*200);
                    end;
    for i:=47 downto 1 do
                    begin
                       clrscr;
                       gotoxy(35,i);
                       write('**');
                       gotoxy(34,i+1);
                       write('****');
                       gotoxy(35,i+2);
                       write('**');
                       delay(abs(i-50)*200);
                    end;
  end;{end of main for}
 end.


البته می دونم برنامه ساده ای هستش ولی من خوشم اومد !!! شما رو نمی دونم ؟
Back to top
cyberax
مهمون يكي دو روزه


Joined: 28 Apr 2005
Posts: 7

PostPosted: Wed May 04, 2005 7:48 am    Post subject: Reply with quote

خوب بود برنامه آرش جان
Back to top
vahid
بي تو هرگز


Joined: 26 Nov 2004
Posts: 3067
Location: Tehran

PostPosted: Wed May 04, 2005 8:21 am    Post subject: Reply with quote

برا من اجرا نشد . ميگه dIVISION BY zERO فكر كنم بخاطر همون CRT باشه . آرش لينك آپديتش رو داري ؟
Back to top
Display posts from previous:   
Post new topic   Reply to topic    ParsX.com Forum Index -> برنامه نويسي دلفي و پاسكال : Delphi & Pascal Programming All times are GMT + 3.5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum