لطفا بازی ox در پاسکال را بنویسید لطفا با توابع
لطفا بازی ox در پاسکال را بنویسید لطفا با توابع
برنامه زیر رو در نظر بگیریدحالا چجوری میتونم تعریف کنم که از صفحه خارج نشه میبینید که اگه فرضا کلید بالا را ادامه بدینم از مختصات خارج می شهکد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
با تشکر از راهنمایی شما
سلام به همه دوستان
من دارم برنامه کتاب خونه رو تو پاسکال می نویسم اماگرافیک رو بلد نیستم.
اگه کسی پروسیجر آماده در این مورد داره اونو بزاره.
راستی اگه کسی می تونه در موردخود این برنامه منو کمک کنه خیلی ممنون میشم.
با سلام خدمت دوستان و اساتيد محترم
من يه پروژ مربو به دفترچ تلن رو نوستم متاسفانه در قسمت اصلي برنامه با پيفام Error 2: File Not Found برخورد ميکنم. از اساتيد خواهش ميکنم هر چه زودتر منو راهنمايي کنند!
لازم به ذکر است که برنامه از چند تابع و پروسيجر تشکيل شده و قسمت MAIN شامل دستورات زير است:
{********************<< MAIN >>********************}
begin
textbackground (0);
clrscr;
items[1] := 'Insert';
items[2] := 'Delete';
items[3] := 'Edit';
items[4] := 'Search';
items[5] := 'Change Color';
items[6] := 'Exit';
comments [1] := 'Insert New Record.';
comments [2] := 'Delete Record.';
comments [3] := 'Edit Record.';
comments [4] := 'Search Record.';
comments [5] := 'Change Menu Color.';
comments [6] := 'Exit.';
pcolor := 5;
pbcolor:= 7;
phlcolor:= 2;
assign (f2,'Tel.bak');
if fsearch ('tel.bal',getenv ('c:\')) <> ' ' then
erase (f2);
assign (f,'Tel.dat');
if fsearch ('Tel.dat',getenv('c:\')) = ' ' then
rewrite (f);
rename (f,'Tel.bak');
assign (f,'Tel.dat');
rewrite (f);
rename (f2,'Tel.bak');
if fsearch ('Tel.bak',getenv('c:\')) = ' ' then
rewrite (f2)
else
reset (f2);
for i:=0 to filesize (f2)-1 do
begin
read (f2,info);
if info.deleted=false then
write (f,info);
end;
while true do
begin
case popup (25,10,pbcolor,1,items,comments,pcolor,phlcolor,1) of
1 : insert;
2 : delete;
3 : updating;
4 : searching;
5 : changecolor;
6,0 : break;
end;
end;
assign (f2,'Tel.bak');
if fsearch ('Tel.bak',getenv('c:\')) = ' ' then
erase (f2);
close (f);
textbackground (0);
clrscr;
end.
سلام دوستان کسی هست به من کمک کنه؟
من برنامه ماتریس n*n به زبان پاسکال می خوام
سلام دوستان.
من دستورات(قالب) bnf زبان پاسكال رو مي خوام.
كسي مي تونه كمك كنه؟
با سلام
پروژه پايان ترم پاسكال
ممنون ميشم كمكم كنين
برنامه بنويسيد كه يك جدول n*n در نظر بگيرد كه اعداد يك تا n را در جدول طوري قرار دهد كه در هر سطر و ستون اعداد يك تا n قرار گرفته و غير تكراري باشد.(حداقل 6*6)
(جواب با ارايه ها و پروسجر و ....)
با تشكر
سلام.
چرا من نمیتونم از دستور clrscr استفاده کنم؟؟ بعد از نوشتن کد یه لحظه برنامه اجرا میشه و بعد ارور میده. کدش رو این جوری مینویسم:
;...program
;uses crt
var
;...
begin
;clrscr
;....
.end
Last edited by Farshadd; 07-03-2009 at 23:10.
مثلا برنامت می خواد با ماتریسه چی کار کنه؟نوشته شده توسط helia_20032003 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
چه اروری می ده؟نوشته شده توسط farshadd [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)