لطفا بازی ox در پاسکال را بنویسید لطفا با توابع
Printable View
لطفا بازی ox در پاسکال را بنویسید لطفا با توابع
برنامه زیر رو در نظر بگیریدحالا چجوری میتونم تعریف کنم که از صفحه خارج نشه میبینید که اگه فرضا کلید بالا را ادامه بدینم از مختصات خارج می شهکد:
program omid_matrix3;
uses crt;
Var
f:char;
z:string;
a,b:integer;
procedure omid;
begin
textcolor(green);
gotoxy(33,12);
writeln('omid_matrix3');
textcolor(red);
gotoxy(32,14);
writeln('www.clik.co.sr');
textcolor(white);
end;
Begin
gotoxy (35,13);
write ('enter one char:');
readln (z);
write ('mokhtasat satr ra vared konid az 0 ta 25:');
readln (b);
write ('mokhtasate soton ra vared konid az 0 ta 80:');
readln (a);
clrscr;
gotoxy (a,b);
writeln (z);
while true do
begin
f:=readkey;
case ord(f) of
77:a:=a+1;
75:a:=a-1;
80:b:=b+1;
72:b:=b-1;
end;
clrscr;
omid;
gotoxy (a,b);
writeln (z);
end;
Readln
End.
با تشکر از راهنمایی شما
سلام به همه دوستان
من دارم برنامه کتاب خونه رو تو پاسکال می نویسم اماگرافیک رو بلد نیستم.
اگه کسی پروسیجر آماده در این مورد داره اونو بزاره.
راستی اگه کسی می تونه در موردخود این برنامه منو کمک کنه خیلی ممنون میشم.;)
با سلام خدمت دوستان و اساتيد محترم
من يه پروژ مربو به دفترچ تلن رو نوستم متاسفانه در قسمت اصلي برنامه با پيفام 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
مثلا برنامت می خواد با ماتریسه چی کار کنه؟نقل قول:
چه اروری می ده؟نقل قول: