كمك فوري در مورد پاسكال (تا 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 (شیش رقم) باید برنامه عوض شه.
این الگوریتم توی برنامه های تولید کاراکتر بیشتر استفاده می شه (برای پیدا کردن مثلا پسورد) اما اگه بخوایم پویا ترش کنیم یکم سخت می شه. اون موقع فقط دو تا حلقه ی تو در تو به وجود میاد و بقیه چیز ها با آرایه حل می شه.

نقل قول:

---

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

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

---

ولی به نظر من روش خوبیه و قابل تعمیم هم میتونه باشی ، یکم روش فکر میکنم ولی این روزا به خاطر امتحاناتم کم فکر میکنم :31::31:

شما که این رو می‌گی٬ این روش رو طوری تعمیم بده که باش بشه اعداد 1 تا 12 رقمی بدون 0 رو نمایش بده!

سلام
کامپایلر پاسکال ندارم الان هم دقیقا در مورد سینتکس پاسکال حضور ذهن ندارم !!!
با توجه به اینکه تابع Trunc مقدار صحیح عدد اعشاری رو بر میگردونه و تابع Frace مقدار صحیح عدد رو بر میگردونه میتونی تابعی بنویسی که بدون هیچ محدودیتی کار کنه

کد:

---

For i=Start to End
        temp=i
        show=true
        while Temp<>0 and Show=false
                temp=temp/10;
                if frace(temp)=0 then  show=false
                temp=trace(temp)
        wend
if show=true then writeln(i)
next i

---

الگوریتمش باید درست باشه ولی تست کامل نکردم ممنون میشم خبرشو بدی !

نه بابا! جالب شد!
البته من که نفهمیدم به چه زبونی نوشتی! نه پاسکاله نه بیسیک! اما الگوریتم رو دیدم، الگوریتم به نظر میاد درست باشه، یعنی یقیناً درسته.
خب بذار من به زبون پاسکال بنویسمش و یکم تغییر هم توش بدم، شما می تونستی از mod و div (mod که تو بیسیک هم هست، div معادل \ بیسیکه و همون تقسیم صحیحه):

کد:

---

for i:=startNumber to endNumber do
begin
        temp:=i;
        canShow:=true;
        while (temp>1) and (canShow) do
        begin
                if (temp mod 10) =0 then
                        canShow:=false;
                temp := temp div 10;
        end;
        if canShow then
                writeln(i);
end;

---

یکم خوشکل تر میشه اگه بجای صفر بزاریم TargetNum بعد TargetNum هرعددی باشه (یک رقمی) ، الگوریتم اعدادی رو نمایش میده که فاقد اون عدد باشه :31:
راست میگی ها من به چه زبونی نوشته بودم :18::31::13::27::21:
راستی ویرایش خیلی جالبی رو کدم انجام دادی خوشم ویامد ! :10:

نقل قول:

---

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

نه بابا! جالب شد!
البته من که نفهمیدم به چه زبونی نوشتی! نه پاسکاله نه بیسیک! اما الگوریتم رو دیدم، الگوریتم به نظر میاد درست باشه، یعنی یقیناً درسته.
خب بذار من به زبون پاسکال بنویسمش و یکم تغییر هم توش بدم، شما می تونستی از mod و div (mod که تو بیسیک هم هست، div معادل \ بیسیکه و همون تقسیم صحیحه):

کد:

---

for i:=startNumber to endNumber do
begin
        temp:=i;
        canShow:=true;
        while (temp>1) and (canShow) do
        begin
                if (temp mod 10) =TargetNum then
                        canShow:=false;
                temp := temp div 10;
        end;
        if canShow then
                writeln(i);
end;

---

---

حالا که به اینجا رسیدیم بذار سوال رو پیچیده تر کنم! زیر برنامه ای بنویسید که یک نام (مانند Blossom) و یک عدد n(مانند 5) را از ورودی بگیرد و تمام کلمات ممکن n حرفی را با کاراکتر های تشکیل دهنده‌ی کلمه‌ی گرفته شده از ورودی تولید کند.
نظرت چیه؟! البته من در اون حد پاسکال بلد نیستم که از این قرتی بازی ها توش انجام بدم (البته شاید هم بتونم) ولی من این رو با جاوا می‌نویسم. جاوا که کار کردی؟!

نقل قول:

---

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

حالا که به اینجا رسیدیم بذار سوال رو پیچیده تر کنم! زیر برنامه ای بنویسید که یک نام (مانند Blossom) و یک عدد n(مانند 5) را از ورودی بگیرد و تمام کلمات ممکن n حرفی را با کاراکتر های تشکیل دهنده‌ی کلمه‌ی گرفته شده از ورودی تولید کند.
نظرت چیه؟! البته من در اون حد پاسکال بلد نیستم که از این قرتی بازی ها توش انجام بدم (البته شاید هم بتونم) ولی من این رو با جاوا می‌نویسم. جاوا که کار کردی؟!

---

فردا و پس فردا 2 تا امتحان پشت سر هم دارم دومیش سنگینه واسه همین احتمالا دیگه تا 3 شنبه شب آن نمیشم :31: بعد میام یکم بیشتر بحث کنیم :46:

نقل قول:

---

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

حالا که به اینجا رسیدیم بذار سوال رو پیچیده تر کنم! زیر برنامه ای بنویسید که یک نام (مانند Blossom) و یک عدد n(مانند 5) را از ورودی بگیرد و تمام کلمات ممکن n حرفی را با کاراکتر های تشکیل دهنده‌ی کلمه‌ی گرفته شده از ورودی تولید کند.
نظرت چیه؟! البته من در اون حد پاسکال بلد نیستم که از این قرتی بازی ها توش انجام بدم (البته شاید هم بتونم) ولی من این رو با جاوا می‌نویسم. جاوا که کار کردی؟!

---

سوال جالبیه !
دو تا الگوریتم واسش در نظر دارم :
1- n تا n تا (n طول رشته ای هست که میخواد جست و جو بشه یا همون رشته کوچولویه !) رشتمون رو جدا میکنیم و با رشته ای که میخواد سرچ بشه مقایسه میکنیم
2- یک ماشین حالت پیاده سازی میکنیم به این شکل که اگه اولین رقم خوانده شده با اولین رقم مطالبقت داشت برو به استیت 2 و الی آخر در غیر اینصورت برو رشته بعدی رو بخون

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

جواب می‌گیری اونوقت؟

الان فهمیدم چی نوشتی! نخیرشم!
شما می‌خوای مثلا پسورد یه ایمیل رو برگردونی، نه یه گاوصندوق!
یعنی باید همه‌ی پسورد رو یه جا چک کنه!
مثلا اگه ورودی ‌Blossom و 3 باشه باید این ها رو تولید کنه:
BBB
BBL
BBO
BBS
BBM
BLB
BLL
BLO
BLS
یعنی مجموعاً د به توان تعداد کاراکتر های غیر تکراری! برای مثال من 3 به توان 5 کلمه باید تولید کنه.

نقل قول:

---

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

الان فهمیدم چی نوشتی! نخیرشم!
شما می‌خوای مثلا پسورد یه ایمیل رو برگردونی، نه یه گاوصندوق!
یعنی باید همه‌ی پسورد رو یه جا چک کنه!
مثلا اگه ورودی ‌Blossom و 3 باشه باید این ها رو تولید کنه:
BBB
BBL
BBO
BBS
BBM
BLB
BLL
BLO
BLS
یعنی مجموعاً د به توان تعداد کاراکتر های غیر تکراری! برای مثال من 3 به توان 5 کلمه باید تولید کنه.

---

یکم فهمیدم یکم نفهمیدم !!!
اون یکمی که فهمیدم اینه که باید یک رشته و یک عدد صحیح رو بگیریم ارقام تکراری رشته رو حذف کنیم و به تعداد ارقام رشته به توان عدد صحیح ورودی ، زیر رشته های غیر تکراری ایجاد کنیم :46:
اون یکمی که نفهمیدم مربوط به مثالت میشه ! تو مثالت مشکل ندارم فقط یه سوال فسقلی دارم ! تعداد ارقام تکراری رشته ورودیت 5 تایه و عدد ورودی هم 3 هست یعنی پنج به توان سه رشته باید تولید بشه !!! بخاطر اینکه این اعداد خیلی زیاد میدن ادامشو ننوشتی دیگه درسته ؟ چون سه تا نقطه نزدی شک کردم که شاید اشتباه از برداشت من باشه !
یکم روش فکر میکنم و نتیجه رو میزارم همینجا !
ولی اولین چیزی که مسلمه اینه که باید اول کاراکتر های تکراری رشته رو با یک تابع دیگه حذف کنیم

درسته. من ... نزدم. بدیهیه که باید اول کاراکتر های تکراری حذف شه ولی اون خیلی آسونه. کافیه یک کاراکتر یک کاراکتر اون ها رو مقایسه کنی. یعنی این که شما یه آرایه بسازی و یک حرف از رشته برداری و توی آرایه دنبال اون حرف بگردی، اگر وجود نداشت اون رو به آرایه اضافه کنی و بری حرف بعد رو برداری، در آخر یه آرایه از حروف داری...

با VB.Net یک الگوریتم بازگشتی نوشتم ولی همونطور که خودت هم بهتر میدونی الگوریتم های بازگشتی از سرعت و کارایی خوبی برخوردار نیستن ، فعلا که چیز دیگه ای به ذهنم نمیرسه !!!

کد:

---

Module Module1

    Private str As String
    Private N As Integer
    Private m As String = 0

    Sub Main()
        N = 5
        str = "ALI"
        A("")
        Console.WriteLine("Total Number : " & m)
        Console.ReadLine()
    End Sub

    Private Function A(ByVal S As String) As String
        If S.Length = N Then
            Console.WriteLine(S)
            m = m + 1
            Return S
        Else
            For i As Integer = 0 To str.Length - 1
                A(S + str(i))
            Next
        End If
    End Function

End Module

---

عذر میخوام که یکم دیر شد چون اول از همه یکمکی سخت بود و بعدش این چند روزه زیاد فرصت نمیکردم روش فکر کنم :31:

یادم رفت توضیح بدم !!
متغییر M صرفا جهت شمارش تعداد رشته هایی که تولید شده مثلا برای رشته ورودی Ali و ترکیب های چهار تایی این رشته باید سه به توان چهار رو نشون بده ، این متغییر بیشتر برای تست بدرد میخوره که بدونی تعداد رشته هایی که تولید شده صحیح هست یا خیر

متغییر N مشخص میکنه که ترکیبات چند تایی باید تولید بشه

متغییر Str رشته ورودی رو توش میریزی

متغییر S - ورودی تابع خود بازگشتی A رشته ای که تا الان تولید ده رو برمیگردونه

آره، خوب درومده...
جالب بود، البته این بحث رو برای یاد گرفتن راه انداختیم ها! دیر شد معنی نداره!
من این سوال رو این طور حل کردم:
تمام حروف مجاز رو توی یک آرایه ریختم.
یک آرایه ی عددی به طول N (که از ورودی می‌گیره) ساختم که تمام محتویاتش 0 بود.
بعد عنصر اندیس 0 رو +1 کردم و چک کردم که این عنصر بیشتر از آخرین اندیس آرایه ی حروفم نشه، اگه شد 0ش می کنم و عنصر بعد رو +1 می کنم و چک می‌کنم که عنصر دوم هم محتویاتش بیشتر از حد مجاز نشه، اگه شد عنصر دوم رو 0 می‌کنم و عنصر سوم رو +1 و این کار رو برای تمام آرایم (توی یه حلقه‌ی for ) تکرار می‌کنم.
با استفاده از این دو تا آرایه، خروجی رو تولید می‌کنم و به مرحله قبل می‌رم تا وقتی که آخرین عنصر آرایه سر ریز بشه.
هم سریع بود و هم آسون.
البته امید وارم که خوب توضیح داده باشم، اگه این طور نیست که یه مثال بزنم.