Joined: 27 Nov 2004 Posts: 1232 Location: www.parsx.com
Posted: Tue May 03, 2005 6:58 pm Post subject: یه برنامه ساده ولی جالب ...
در این برنامه چند تابع مختصر استفاده که عبارتند از :
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.
البته می دونم برنامه ساده ای هستش ولی من خوشم اومد !!! شما رو نمی دونم ؟
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