كمك فوري در مورد پاسكال (تا 21 دي وقت دارم خواهشن جواب بدين)

سلام دوستان...
من دو تا سوال داشتم خيلي عجله دارم 21/10/86 بايد تحويل بدم (پروژه امتحاني) درمورد پاسكال
1- برنامه اي بنويسيد كه يك ماتريسي رو بگيره و جمع درايه هاي هر سطر و ستون رو در انتهاي آن سطر و يا ستون بنويسه
مثلا : يك ماتريس 2 در 2 كه درايه هاي اول و دوم سطر اول رو با هم جمع كنه و در انتهاي سطر بنويسه (همچنين براي سطر دوم و ستون هاي اول و دوم) كه در آخر يك ماتريس 3 در 3 ميشه.
2- سوال بعدي برنامه اي بنويسيد كه از عدد 11111 تا 99999 تمامي اعدادي را كه بدون صفر است را پيدا كند يعني تمام اعداد 5 رقمي كه صفر نداشته باشه رو چاپ كنه.

ممنون ميشم جواب منو بدين خواش ميكنم اگر كسي بلده بگه چون من تا 21 دي بيشتر وقت ندارم اين پروژه برام حياتيه.

نقل قول:

---

نوشته شده توسط polisoftco [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام دوستان...
من دو تا سوال داشتم خيلي عجله دارم 21/10/86 بايد تحويل بدم (پروژه امتحاني) درمورد پاسكال
1- برنامه اي بنويسيد كه يك ماتريسي رو بگيره و جمع درايه هاي هر سطر و ستون رو در انتهاي آن سطر و يا ستون بنويسه
مثلا : يك ماتريس 2 در 2 كه درايه هاي اول و دوم سطر اول رو با هم جمع كنه و در انتهاي سطر بنويسه (همچنين براي سطر دوم و ستون هاي اول و دوم) كه در آخر يك ماتريس 3 در 3 ميشه.
2- سوال بعدي برنامه اي بنويسيد كه از عدد 11111 تا 99999 تمامي اعدادي را كه بدون صفر است را پيدا كند يعني تمام اعداد 5 رقمي كه صفر نداشته باشه رو چاپ كنه.

ممنون ميشم جواب منو بدين خواش ميكنم اگر كسي بلده بگه چون من تا 21 دي بيشتر وقت ندارم اين پروژه برام حياتيه.

---

اولی بسیار ساده است که اگه نتونی نجام بدی . . . :41:
و اما دومی کجاش مشکل داری ؟؟؟
در ضمن به این امید نیستی که اینجا کسی واست برنامه آماده بزاره دیگه نه !!!!:31:

با سلام...
من تازه با پاسكال دارم كار مي كنم 2 هفته ميشه ... سوال اول را حل كردم تونستم يك كاري بكنم اما سوال دوم نمي دونم چجوري بفهمم كه هيچ كدام از ارقام غير صفر هستند از (11111 تا 99999) بايد تمام ارقام غير صفر رو پيدا كرد. ممنون ميشم كدش رو برام بزارين چون من 2 و 3 روز بيشتر مهلت ندارم.
بازم ممنون از پاسختون دوست عزيز

نقل قول:

---

نوشته شده توسط polisoftco [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

با سلام...
من تازه با پاسكال دارم كار مي كنم 2 هفته ميشه ... سوال اول را حل كردم تونستم يك كاري بكنم اما سوال دوم نمي دونم چجوري بفهمم كه هيچ كدام از ارقام غير صفر هستند از (11111 تا 99999) بايد تمام ارقام غير صفر رو پيدا كرد. ممنون ميشم كدش رو برام بزارين چون من 2 و 3 روز بيشتر مهلت ندارم.
بازم ممنون از پاسختون دوست عزيز

---

می شه یکم اطلاعات کامل تر بدی تا کمکت کنیم؟
مثلا این که این ماتریسی که فرمودی٬ حد اکثر چند در چنده؟
و این که می خوای پروژه رو برات انجام بدیم یا راهنمایی کافیه؟

فکر کنم سوال دوم رو بشه اینطور حل کرد:

کد:

---

var
        n1,n2,n3,n4,n5,num:Integer;
begin
        for n1:=1 to 9 do
                for n2:=1 to 9 do
                        for n3:=1 to 9 do
                                for n4:=1 to 9 do
                                        for n5:=1 to 9 do
                                        begin
                                                num=n5+n4*10+n3*100+n2*1000+n1*10000;
                                                writeln(num);
                                        end;
        readln;
end.

---

البته اگه نوشتن کافیه که این طوری هم حل می شه:

کد:

---

var
        n1,n2,n3,n4,n5,num:Integer;
begin
        for n1:=1 to 9 do
                for n2:=1 to 9 do
                        for n3:=1 to 9 do
                                for n4:=1 to 9 do
                                        for n5:=1 to 9 do
                                                writeln(n1:1,n2:1,n3:1,n4:1,n5:1);
        readln;
end.

---

با سلام ...
ممنون دوست من از پاسختون ، در مورد سوال اولم ماتريس دلخواه است يعني كاربر بايد انتخاب كنه چند در چنده ولي اين سوال رو خودم تونستم حلش كنم ، در مورد سوال دومم ، جواب دومي شما (كد دوم) ، منظورم بود خيلي خيلي ممنونم.راستي اگه امكانش هست جواب سوال دوم رو هم بنويسين ممنون ميشم چند در چندش با خودت ، اما اگه تونستي m*n بگير تا كاربر خودش سطر و ستون را وارد كنه.
به هر حال خيلي خيلي ممنونم بابت جوابتون ، با تشكر...

راستش سیستم عامل من لینوکسه و یکم سخته که کامپایلر پاسکال روش نصب کنم. این جواب ها رو هم بدون کامپایلر نوشتم. ولی اگه تونستم و نصب کردم٬ حتما برنامه رو برات انجام می دم.

نقل قول:

---

نوشته شده توسط Blossom [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

البته اگه نوشتن کافیه که این طوری هم حل می شه:

کد:

---

var
        n1,n2,n3,n4,n5,num:Integer;
begin
        for n1:=1 to 9 do
                for n2:=1 to 9 do
                        for n3:=1 to 9 do
                                for n4:=1 to 9 do
                                        for n5:=1 to 9 do
                                                writeln(n1:1,n2:1,n3:1,n4:1,n5:1);
        readln;
end.

---

---

جواب جالبی دادی خوشم اومد یکم روش فکر کردم مشابه کد زیر رو واسش در نظر داشتم ولی زیاد خوشم نیومد از کدم !!!!
شبه کد به زبون VB مینویسم مشخصه الگوریتمش چطور کار میکنه

کد:

---

for i=11111 to 99999
if round(i/10)<>i/10 then  'این واسه اولین رقم سمت چپ اگه مخالف صفر بود
برای باقی ارقام هم همینطور چک میکنم به این شکل که  temp=i/10  و محاسبات رو روی temp میکنم
end if
next i

---

واسه سه رقم دسشب نوشتم ولی شرطهای تو در توی زیاد و الگوریتم با سرعت خیلی پایین بود !!!

خب این روش من یه جور از سر وا کردنه! مهندسی نیست. می دونی چرا؟ اگه اون پنج بشه 6 (شیش رقم) باید برنامه عوض شه.
این الگوریتم توی برنامه های تولید کاراکتر بیشتر استفاده می شه (برای پیدا کردن مثلا پسورد) اما اگه بخوایم پویا ترش کنیم یکم سخت می شه. اون موقع فقط دو تا حلقه ی تو در تو به وجود میاد و بقیه چیز ها با آرایه حل می شه.