| View previous topic :: View next topic |
| Author |
Message |
ali.r
دوست آشناي سايت
Joined: 13 Sep 2005
Posts: 57
|
 Posted: Thu Jun 22, 2006 10:31 am Post subject: كمك وخوام |
 |
|
خدمت تمامي پشت كنكوري هاي عزيز اعم از سراسري و آزاد سلام عرض ميكنم.
آقا ما يه برنامه گرافيكي با اين Pascal دردگرفته نوشتيم ديدم هيچ رقمه اجرا نميشه . بعد گفتيم يه برنامه ساده با پاسكال بنويسيم ببينيم چي ميشه!يه برنامه كه 2 تا عدد جمع كنه وحاصل را در خروجي نمايش بده!!!!!!!!!!اما بازمRun نشد.
از تمامي آقايون و خانوماي دكتر مهندسي(  ) كه در اين ضمينه اطلاعاتي دارن دعوت به عمل مي آيد كه ما را راهنمايي بفرمايند.
باتشكر |
|
| Back to top |
|
 |
vahid
بي تو هرگز
Joined: 26 Nov 2004
Posts: 3064
Location: Tehran
|
| Posted: Thu Jun 22, 2006 12:19 pm Post subject: |
|
|
اسم كامپايلرت رو بنويس . فايل tp رو نبايد اجرا كني فايل tpx رو اجرا كن بلكه جواب بده .
اون برنامه اي هم كه دو تا عدد رو با هم جمع مي كنه رو بنويس.
قبل از اينكه اينجا بنويسيش . Readln رو قبل از end.بنويس . اجراش كن . .. بعد بگو چي مي شه . |
|
| Back to top |
|
|
ali.r
دوست آشناي سايت
Joined: 13 Sep 2005
Posts: 57
|
| Posted: Thu Jun 22, 2006 6:07 pm Post subject: |
|
|
| نشد! |
|
| Back to top |
|
|
vahid
بي تو هرگز
Joined: 26 Nov 2004
Posts: 3064
Location: Tehran
|
| Posted: Fri Jun 23, 2006 11:43 am Post subject: |
|
|
مشكل از كامپايلرت نيست . مشكل از خودته . كامپايلر بعد از نصب درست عمل مي كنه . وقتي ctrl+F9 مي زني چي مي شه .
در ضمن گفته بودم كد برنامه اي كه دو تا عدد رو با هم جمع مي كنه رو هم اينجا بنويس. |
|
| Back to top |
|
|
ali.r
دوست آشناي سايت
Joined: 13 Sep 2005
Posts: 57
|
| Posted: Sun Jun 25, 2006 7:06 pm Post subject: |
|
|
چه جوری کدم را بیارم تو سایت
هر جوری میارم کدام جابجا می شه  |
|
| Back to top |
|
|
vahid
بي تو هرگز
Joined: 26 Nov 2004
Posts: 3064
Location: Tehran
|
| Posted: Mon Jun 26, 2006 12:21 pm Post subject: |
|
|
اشكال نداره . بزار جابجا شه .
براي اينكه جابه جا نشه . تو اديتور سايت بايد كدها رو انتخاب كني بعد دكمه code رو بزني . |
|
| Back to top |
|
|
ali.r
دوست آشناي سايت
Joined: 13 Sep 2005
Posts: 57
|
| Posted: Tue Jun 27, 2006 4:32 pm Post subject: |
|
|
اینم کد
| program test;
uses graph;
var
driver,mode,i,j:integer;
p:pointer;
top:boolean;
size:word;
begin
initgraph(driver,mode,'e:\tp\bgi');
cricle(40,40,20);
size:=imagesize(19,19,61,61);
getmem(p,size);
getimage(19,19,61,61,p^);
readln;
cleardevice;
for i:=10 to 560 do
putimage(i,50,p^,normalput);
for j:=50 t0 400 do
putimage(560,j,P^,normalput);
for i:=560 downto 10 do
putimage(i,400,p^,normalput);
for j:=400 downto 50 do
putimage(10,j,p^,normlput);
redln;
CloseGaph;
end. |
|
|
| Back to top |
|
|
arash
مدير بخش سي
Joined: 27 Nov 2004
Posts: 1232
Location: www.parsx.com
|
| Posted: Tue Jun 27, 2006 8:04 pm Post subject: |
|
|
در ضمن با کامپایلر ویندوز و داس امتحان کردی و جواب نداد
به نظر می رسه ما نمی تونیم با قسمت گرافیکی پاسکال کار کنیم
چرا ؟
نمی دونم ؟ |
|
| Back to top |
|
|
ali.r
دوست آشناي سايت
Joined: 13 Sep 2005
Posts: 57
|
| Posted: Wed Jun 28, 2006 1:25 pm Post subject: |
|
|
| کلا زحمت کشیدی ! نابغه من هیچیرو نمی تونم کامپایل کنم! |
|
| Back to top |
|
|
vahid
بي تو هرگز
Joined: 26 Nov 2004
Posts: 3064
Location: Tehran
|
| Posted: Wed Jun 28, 2006 2:08 pm Post subject: |
|
|
فايل زير رو دانلود كن و بجاي تابع هاي زير از توابع زير استفاد ه كن :
فايل uses vgraph
بجاي initgraph بنويس vesagraph بجاي initclose هم بنويس vesaclose . توي گوگل vesagraph رو سرچ كن . هر چي پيدا كردم تو كامپيوترم پيداشون نكردم .
مشكلش بخاطر كارتهاي گرافيكي كه پيشرفته هستند هستش . |
|
| Back to top |
|
|
arash
مدير بخش سي
Joined: 27 Nov 2004
Posts: 1232
Location: www.parsx.com
|
|
| Back to top |
|
|
vahid
بي تو هرگز
Joined: 26 Nov 2004
Posts: 3064
Location: Tehran
|
| Posted: Wed Mar 14, 2007 5:33 pm Post subject: |
|
|
| arash wrote: | در ضمن با کامپایلر ویندوز و داس امتحان کردی و جواب نداد
به نظر می رسه ما نمی تونیم با قسمت گرافیکی پاسکال کار کنیم
چرا ؟
نمی دونم ؟ |
بالاخره بعد از عمري فعاليت نتيجه چشمگيري براي اين سوال پيدا شد :
دو تا تنظيم بايد بكني : از منوي options مي ري توي قسمت Directories و شاخه unit ها رو دقيق مشخص مي كني مثلا : e:\tp\units
بعد هم توي خط initgraph(gd,gm'..\\bgi'( رو مي نويسي .
ضمنا اين راه حل براي سي هم جواب مي ده .
با تشكر از دكتر يوسف رمضاني نژاد  |
|
| Back to top |
|
|
vahid
بي تو هرگز
Joined: 26 Nov 2004
Posts: 3064
Location: Tehran
|
| Posted: Wed Mar 14, 2007 5:39 pm Post subject: |
|
|
يعني كدت مي شه : |
program test;
uses graph;
var
driver,mode,i,j:integer;
p:pointer;
top:boolean;
size:word;
begin
initgraph(driver,mode,'..\\bgi');
circle(40,40,20);
size:=imagesize(19,19,61,61);
getmem(p,size);
getimage(19,19,61,61,p^);
readln;
cleardevice;
for i:=10 to 560 do
putimage(i,50,p^,normalput);
for j:=50 to 400 do
putimage(560,j,P^,normalput);
for i:=560 downto 10 do
putimage(i,400,p^,normalput);
for j:=400 downto 50 do
putimage(10,j,p^,normalput);
readln;
CloseGraph;
end. |
|
|
| Back to top |
|
|
|
Profile 
Log in to check your private messages | 
FAQ 
Search 
Memberlist 
Usergroups 
Log in
Register
