لطفا بازی 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
مثلا برنامت می خواد با ماتریسه چی کار کنه؟نقل قول:
چه اروری می ده؟نقل قول:
شما این فایل رو دانلود کنید و پس از اکسترکت در پوشه tp\units کپی کنید ، حالا بدین ترتیب کد نویسی کنید :نقل قول:
کد:Program Test;
Uses newdelay,crt;
Var
...
Begin
...
...
clrscr;
End.
کد:http://karimi1366.persiangig.com/NEWDELAY.zip
سلام.نقل قول:
دستتون درد نکنه.
ولی درست و اصلش همونیه که توی پست قبل گفتم.
در واقع باید اونجوری بنویسیم... راهی هست؟؟
کمک خیلی فوری
یه برنامه تو پاسکال بنویسيد که ضرب دو ماتریس 7*7 رو حساب کنه
خواهشا از مهندسین عزیز میخوام کمک کنین
راستش حال کد گذاشتن ندارم اما روش رو میگم .
دو تا آرایه 7*7 تعریف کن.
دو مرتبه از حلقه for تو در تو برای پر کردن آرایه ها استفاده کن.
بعدش هم که با توجه به فرمول محاسبه ، حسابش کن.
یک دونه قبلا نوشته ماله 2*2
می تونه راحت این کد رو به هر ماتریسی تبدیل کنی با عوض کردن مقدار های قسمت const توجه کن که r مخخف row هست یعنی ردیف و c هم مخفف column به معنی ستون.1و2 همم برای ماتریس اول و دومکد:program matrix;
uses crt;
const
r1 = 7;
c1 = 7;
c2 =7;
r2 = 7;
type
arr1 = array[1..r1,1..c1] of integer;
arr2 = array[1..r2,1..c2] of integer;
arr3 = array[1..r1,1..c2] of integer;
var
x : arr1;
y : arr2;
z : arr3;
i,j : integer;
{start Procedure}
procedure multmatrix(row1,row2,col1,col2 : integer;m1 : arr1;m2 : arr2;var m3 : arr3);
var i,j,k : integer;
begin
for i := 1 to row1 do
for j := 1 to col2 do
begin
z[i,j] := 0;
for k := 1 to col1 do begin
z[i,j] := z[i,j] + m1[i,k] * m2[k,j] ;
end;
end;
end;
{end procedure}
begin
clrscr;
for i := 1 to r1 do
for j := 1 to c1 do
begin
write('enter x[',i,',',j,'] : ');
readln(x[i,j]);
end;
for i := 1 to r2 do
for j := 1 to c2 do
begin
write('enter y[',i,',',j,'] : ');
readln(y[i,j]);
end;
multmatrix(r1,r2,c1,c2,x,y,z);
writeln;
writeln('Result =') ;
for i := 1 to r1 do begin
write(' |');
for j := 1 to c2 do
begin
write(z[i,j]:6);
end;
writeln(' |');
end;
readln;
end.
:11: تفدیم شما !
دو تا آرایه 7*7 تعریف کن.
دو مرتبه از حلقه for تو در تو برای پر کردن آرایه ها استفاده کن.
بعدش هم که با توجه به فرمول محاسبه ، حسابش کن.
یک دونه قبلا نوشته ماله ماتریس 2*2:
می تونه راحت این کد رو به هر ماتریسی تبدیل کنی با عوض کردن مقدار های قسمت const توجه کن که r مخخف row هست یعنی ردیف و c هم مخفف column به معنی ستون.1و2 همم برای ماتریس اول و دوم+ یک خوذد دست کاری تو شکل دستورات writeکد:program matrix;
uses crt;
const
r1 = 2;
c1 = 2;
c2 =2;
r2 = 2;
type
arr1 = array[1..r1,1..c1] of integer;
arr2 = array[1..r2,1..c2] of integer;
arr3 = array[1..r1,1..c2] of integer;
var
x : arr1;
y : arr2;
z : arr3;
i,j : integer;
{start Procedure}
procedure multmatrix(row1,row2,col1,col2 : integer;m1 : arr1;m2 : arr2;var m3 : arr3);
var i,j,k : integer;
begin
for i := 1 to row1 do
for j := 1 to col2 do
begin
z[i,j] := 0;
for k := 1 to col1 do begin
z[i,j] := z[i,j] + m1[i,k] * m2[k,j] ;
end;
end;
end;
{end procedure}
begin
clrscr;
for i := 1 to r1 do
for j := 1 to c1 do
begin
write('enter x[',i,',',j,'] : ');
readln(x[i,j]);
end;
for i := 1 to r2 do
for j := 1 to c2 do
begin
write('enter y[',i,',',j,'] : ');
readln(y[i,j]);
end;
multmatrix(r1,r2,c1,c2,x,y,z);
writeln;
writeln('Result =') ;
for i := 1 to r1 do begin
write(' |');
for j := 1 to c2 do
begin
write(z[i,j]:6);
end;
writeln(' |');
end;
readln;
end.
:11: تفدیم شما !
نقل قول:
سلام
دوست عزیز
خیلی ممنون به خاطر پاسخ سریع !
یک سوال ( پروژه ) برای زبان پاسکال
خواهشا کمک کنین
برنامه ای بنویسید که ماتریس A7*7را زا ورودی دریافت کند و آن را
مطابق شکل زیر
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
به صورت مار پیچی مورد پیمایش قرار داده و
محتویات آن را در خانه های 1 تا 49 بردار B قرار دهد و بردار B را
در خروجی چاپ کند
سلام
این الگوریتم خوندنت از ماتریسه.
خودت زحمت بقیه جاهاش رو بکش.
L یه شمارنده و n تعداد سطر های ماتریسه شماست.
موفق باشی.:31:کد:k:=0;
l:=0;
n:=7;
while (شرط)
Begin
for i:= l to l
for j=l to n-l
MyArray[k]:=cell[i,j];
for j:=n-l to n-l
for i:=l+1 to n-l
MyArray[k+I]:=cell[i,j];
for i:= n-l to n-l
for j:= n-l-1 to l
MyArray[k]:=cell[i,j];
for j:= l to l
for i:=n-l-1 to l+1
MyArray[k]:=cell[i,j];
l:=l+1;
end;
لطفا یه کم بیشتر توضیح بده
تا شنبه نیاز دارم
نقل قول:
کد:k:=0;
l:=0;
n:=7;
while (شرط)
Begin
for i:= l to l
for j=l to n-l
MyArray[k]:=cell[i,j];
for j:=n-l to n-l
for i:=l+1 to n-l
MyArray[k+I]:=cell[i,j];
for i:= n-l to n-l
for j:= n-l-1 to l
MyArray[k]:=cell[i,j];
for j:= l to l
for i:=n-l-1 to l+1
MyArray[k]:=cell[i,j];
l:=l+1;
end;
ببین دوست من ، از اونجایی که ماتریس دو بعد دارد ، بنابرابن برای دسترسی به عناصر اش نیازمند دو اندیش هستیم مثلا اولین عنصر دارای اندیس (1.1) است ، برای اینکه ماتریس مورد پیمایش قرار گیرد از حلقه for تودرتو استفاده میشود ،بدین ترتیب درون حلفه ما میتوانیم اندیس ها به صورت متوالی و صعودی داشته باشیم ، و داشتن اندیس= پیمایش ماتریس.نقل قول:
لطفا یه کم بیشتر توضیح بده
متوجه شدید دوست عزیز.
بست اشتباه!!
سلام من میخوام در باسکال با دستور while یا for ستاره ها را به این صورت چاب کنم
لطفا راهنمایی کنید
*******
******
*****
****
***
**
*
**
***
****
*****
******
*******
سلام
با كنسول دلفي نوشتمش. ولي نبايد توي پاسكال مشكلي داشته باشه.
کد:var
ind , ind2 : integer;
cnt , SpcCnt: integer;
begin
cnt := 7;
SpcCnt := 0;
for ind := 0 to 13 do
begin
if cnt > 0 then
begin
for ind2 := 1 to SpcCnt do
write(' ');
for ind2 := 1 to cnt do
write('*' + ' ');
SpcCnt := SpcCnt + 1;
end else if cnt < 0 then
begin
for ind2 := 1 to SpcCnt do
write(' ');
for ind2 := -1 downto cnt - 1 do
write('*' + ' ');
SpcCnt := SpcCnt - 1
end else begin
SpcCnt := SpcCnt - 2;
cnt := cnt - 1;
continue;
end;
writeln;
cnt := cnt - 1;
end;
readln;
end.
کسی می دونه چطور می شه تعداد خطوط یک فایل txt رو با پاسکال چاپ کرد؟
سلام
دوستان و اساتید محترم
یه سوال دارم - ممنون میشم کمکم کنید و برنامه پاسکالشو برام بمویسید
8 بازی قراره انجام بشه بین 16 تیم
تیم 1 و 2
تیم 3و4
تیم 5و6
..
..
تیم 15و16
وقتی تیم 1و2 باری میکنند یا برد تیم 1 نتیجشه یا مساوی یا برد تیم 2
وقتی تیم 3و4 باری میکنند یا برد تیم 3 نتیجشه یا مساوی یا برد تیم 4
الی اخر
سوال
میخوام برنامه خروجی بده چنذ نتیجه منحصر به فرد اتفاق میافته
مثلا 1 نتیجه : همه میبرند
........
یا جدول زیر ببینید
ردیف
تیم میزبان
برد
مساوی
باخت
تیم میهمان
1
101
a
b
c
102
2
103
d
e
f
104
3
105
g
h
i
106
4
107
j
k
l
108
5
109
m
n
o
110
6
111
p
q
r
112
7
113
s
t
u
114
8
115
v
w
x
116