ParsX.com
پذیرش پروژه از دانشجویی ... تا سازمانی 09376225339
 
   ProfileProfile   Log in to check your private messagesLog in to check your private messages  |  FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups Log inLog in   RegisterRegister 

كمك وخوام

 
Post new topic   Reply to topic    ParsX.com Forum Index -> برنامه نويسي دلفي و پاسكال : Delphi & Pascal Programming
View previous topic :: View next topic  
Author Message
ali.r
دوست آشناي سايت


Joined: 13 Sep 2005
Posts: 57

PostPosted: Thu Jun 22, 2006 10:31 am    Post subject: كمك وخوام Reply with quote

خدمت تمامي پشت كنكوري هاي عزيز اعم از سراسري و آزاد سلام عرض ميكنم.
آقا ما يه برنامه گرافيكي با اين Pascal دردگرفته نوشتيم ديدم هيچ رقمه اجرا نميشه . بعد گفتيم يه برنامه ساده با پاسكال بنويسيم ببينيم چي ميشه!يه برنامه كه 2 تا عدد جمع كنه وحاصل را در خروجي نمايش بده!!!!!!!!!!اما بازمRun نشد.
از تمامي آقايون و خانوماي دكتر مهندسي( Laughing ) كه در اين ضمينه اطلاعاتي دارن دعوت به عمل مي آيد كه ما را راهنمايي بفرمايند.
باتشكر
Back to top
vahid
بي تو هرگز


Joined: 26 Nov 2004
Posts: 3067
Location: Tehran

PostPosted: Thu Jun 22, 2006 12:19 pm    Post subject: Reply with quote

اسم كامپايلرت رو بنويس . فايل tp رو نبايد اجرا كني فايل tpx رو اجرا كن بلكه جواب بده .
اون برنامه اي هم كه دو تا عدد رو با هم جمع مي كنه رو بنويس.
قبل از اينكه اينجا بنويسيش . Readln رو قبل از end.بنويس . اجراش كن . .. بعد بگو چي مي شه .
Back to top
ali.r
دوست آشناي سايت


Joined: 13 Sep 2005
Posts: 57

PostPosted: Thu Jun 22, 2006 6:07 pm    Post subject: Reply with quote

نشد!
Back to top
vahid
بي تو هرگز


Joined: 26 Nov 2004
Posts: 3067
Location: Tehran

PostPosted: Fri Jun 23, 2006 11:43 am    Post subject: Reply with quote

مشكل از كامپايلرت نيست . مشكل از خودته . كامپايلر بعد از نصب درست عمل مي كنه . وقتي ctrl+F9 مي زني چي مي شه .
در ضمن گفته بودم كد برنامه اي كه دو تا عدد رو با هم جمع مي كنه رو هم اينجا بنويس.
Back to top
ali.r
دوست آشناي سايت


Joined: 13 Sep 2005
Posts: 57

PostPosted: Sun Jun 25, 2006 7:06 pm    Post subject: Reply with quote

چه جوری کدم را بیارم تو سایت
هر جوری میارم کدام جابجا می شه Rolling Eyes
Back to top
vahid
بي تو هرگز


Joined: 26 Nov 2004
Posts: 3067
Location: Tehran

PostPosted: Mon Jun 26, 2006 12:21 pm    Post subject: Reply with quote

اشكال نداره . بزار جابجا شه .
براي اينكه جابه جا نشه . تو اديتور سايت بايد كدها رو انتخاب كني بعد دكمه code رو بزني .
Back to top
ali.r
دوست آشناي سايت


Joined: 13 Sep 2005
Posts: 57

PostPosted: Tue Jun 27, 2006 4:32 pm    Post subject: Reply with quote

اینم کد
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

PostPosted: Tue Jun 27, 2006 8:04 pm    Post subject: Reply with quote

در ضمن با کامپایلر ویندوز و داس امتحان کردی و جواب نداد
به نظر می رسه ما نمی تونیم با قسمت گرافیکی پاسکال کار کنیم
چرا ؟
نمی دونم ؟
Back to top
ali.r
دوست آشناي سايت


Joined: 13 Sep 2005
Posts: 57

PostPosted: Wed Jun 28, 2006 1:25 pm    Post subject: Reply with quote

کلا زحمت کشیدی ! نابغه من هیچیرو نمی تونم کامپایل کنم!
Back to top
vahid
بي تو هرگز


Joined: 26 Nov 2004
Posts: 3067
Location: Tehran

PostPosted: Wed Jun 28, 2006 2:08 pm    Post subject: Reply with quote

فايل زير رو دانلود كن و بجاي تابع هاي زير از توابع زير استفاد ه كن :
فايل uses vgraph
بجاي initgraph بنويس vesagraph بجاي initclose هم بنويس vesaclose . توي گوگل vesagraph رو سرچ كن . هر چي پيدا كردم تو كامپيوترم پيداشون نكردم .
مشكلش بخاطر كارتهاي گرافيكي كه پيشرفته هستند هستش .
Back to top
arash
مدير بخش سي
مدير بخش سي


Joined: 27 Nov 2004
Posts: 1232
Location: www.parsx.com

PostPosted: Wed Jun 28, 2006 9:47 pm    Post subject: Reply with quote

http://www.box.net/public/idjs6yuvrg
Back to top
vahid
بي تو هرگز


Joined: 26 Nov 2004
Posts: 3067
Location: Tehran

PostPosted: Wed Mar 14, 2007 5:33 pm    Post subject: Reply with quote

arash wrote:
در ضمن با کامپایلر ویندوز و داس امتحان کردی و جواب نداد
به نظر می رسه ما نمی تونیم با قسمت گرافیکی پاسکال کار کنیم
چرا ؟
نمی دونم ؟


بالاخره بعد از عمري فعاليت نتيجه چشمگيري براي اين سوال پيدا شد :

دو تا تنظيم بايد بكني : از منوي options مي ري توي قسمت Directories و شاخه unit ها رو دقيق مشخص مي كني مثلا : e:\tp\units
بعد هم توي خط initgraph(gd,gm'..\\bgi'( رو مي نويسي .
ضمنا اين راه حل براي سي هم جواب مي ده .
با تشكر از دكتر يوسف رمضاني نژاد Wink
Back to top
vahid
بي تو هرگز


Joined: 26 Nov 2004
Posts: 3067
Location: Tehran

PostPosted: Wed Mar 14, 2007 5:39 pm    Post subject: Reply with quote

يعني كدت مي شه :

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
Display posts from previous:   
Post new topic   Reply to topic    ParsX.com Forum Index -> برنامه نويسي دلفي و پاسكال : Delphi & Pascal Programming All times are GMT + 3.5 Hours
Page 1 of 1

 
Jump to:  
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