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

[polisoftco]

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

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

[bad_boy_2007]

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

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

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

[polisoftco]

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

[Blossom]

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

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

[Blossom]

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[Blossom]

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[polisoftco]

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

[Blossom]

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

[bad_boy_2007]

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

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

[Blossom]

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