يه سوال دارم فوريه !!!

[afshin]

سلام به بروبچ ایرانویج
راستش مغزم هنگ کرد گفتم اینجا سوالم رو مطرح کنم شاید یکی مغز ما رو ریست کرد و ما رو راهنمایی کرد ... والا استاد برنامه نویسی ما یه برنامه گفته بنویسید که من اولش فکر کردم خیلی سادست ولی الان نمیدونم چرا هرچی فکر میکنم الگوریتم
مناسبی واسه این برنامه به ذهنم نمیرسه !!!
برنامه اینه : برنامه ای بنویسید که تمام جایگشت های حروف یک کلمه 8 حرفی رو
نمایش بده !!!
توضیج : مثلا" کلمه computer رو در نظر بگیرید با حروف این کلمه میشه به تعداد
8 فاکتوریل ( 40320 کلمه ) متمایز با معنی یا بی معنی ساخت مثلا :
Mocputer یا retupcom یا retupmoc یا ompectur و ........
برنامه باید تمامی این کلمات رو پیدا کنه و چاپ کنه !!!
از این الگوریتم فکر کنم تو باز کردن رمز هم استفاده میکنن !!!

حالا هرکی برنامه ای یا الگورتم برنامه به ذهن مبارکش میرسه من رو راهنمایی کنه که یه 2 نمره هم ما این وسط کاسبی کنیم !!!
قربون همگی !!! من برنامه رو واسه یکی دو روز دیگه باید آماده کنم !!!
:cry:

[shahram_ir]

عزيز به چه زباني باشه؟ :?:

[ashkan]

افشين جون سلام ، مرسي بلاخره يه بحث علمي اينجا راه انداختي كه برميگشت به الگوريتم خوب راه حل.
ببين اين مسله در همون حد كه اولش ساده جلوه كرد سخته ولي موقع اجرا بيشتر از چند خط نميشه برنامش چرا به شكل پايين نيگاه كن

اول سه حرفي ها ABC
براي اين حالت حرف قرمز 2 بار تكرار شده-براي هر حالت (توجه سه حرفي و هر حرف 2 بار) و دو تاي ديگه جابجا شدن يعني مثلا ABC و بعدي ACB حرف اول دو بار سر جاش آمده و حرف دوم و سوم جابجا شدن.
حالا براي 4 حرفي در اين حالت يك حرف مثلا A شش بار تكرار شده بعنوان حرف اول و توي اين شش بار هر حرف B,C,D هركدام بعنوان حرف دوم 2 بار تكرار شدن و حروف سوم و چهارم جابجا شدن.
اين مثال احتمالا بهت ميگه چطور بايد برنامه رو بنويسي.

خوب اين الگوريتم براي اين برنامه ميشه اول تعداد حروف رو برداره(مثلا 8 تا حرف-كلمه 8 حرفي)
بعد حرف اول رو بنويسه (تعداد باقي مونده ميشه 7 تا)
حالا همين كار رو براي هفت حرفي ها انجام بده يعني دوباره يك حرف رو برداره(از 7 حرف باقي مونده)
بعدش حرف رو بنويسه و دوباره حالا براي 6 حرفي انجامش بده همينطور تا به دو حرفي برسه.
در واقع بايد يه تابع خود فراخوان يا ريكرسيو نوشته بشه (فك كنم خيلي ساده باشه).
اگه گرفتي چي ميگم برنامش رو نوشتي و تموم شد همه بروبچ دانشگاه هم برنامه رو تحويل دادن اينو بزارش تو سايت (البته به ميل خودته-نگي چه پررو)

[afshin]

اولا آقا اشكان عزيز دستت درد نكنه ... يه چيزايي متوجه شدم كه روش كار ميكنم ...
متاسفانه الان برگشتم تهران و رو اين كامپيوترم هيچ زبان برنامه نويسي نسب نيست كه برنامه رو بنويسم ... اما به الگوريتم فكر كردم ... دو روز ديگه
برميگردم پيش اون كامپيوترم و برنامه رو به زبان vb و دلفي و .... مينويسم ( البته اگه تونستم ) ... و بعد با كمال ميل ميزارم تو سايت ... ( پر رو كه نيستي هيچ ... خيلي هم آقايي ...شما دستور بدي من هر كار كه از دستم بربياد ميكنم !!! )
راستش اگه ميبيني يكي دو روز دير تشكر كردم دليلش اين بود كه اين Isp من
كه خدا خفش كنه اصلا به ايرانويج وصل نميشد و من 3 روز بود كه داشتم دق ميكردم ولي يكي از دوستان ( آقا نبي ) كه آّنلاين بود ديدم و گفت كه ميتونه بياد تو سايت و احتمالا اشكال از Isp هست من هم رفتم Isp رو عوض كردم
و الان هم كه در خدمت شما .... از آقا نبي هم همينجا تشكر ميكنم چون اين توضيحات شما رو همون ديروز برام فرستاد ...
به هر حال خيلي از توضيحاتت ممنون !!!
از آقا شهرام هم ممنون ... آقا شهرام عزيز زبونش اصلا مهم نيست
مثل آقا اشكان به زبون فارسي هم بنويسي احتمالا كارم حل ميشه !!
مهم همون الگوريتمشه كه اگه ادم درست بفهمه برنامه رو ميتونه بنويسه !!

دوباره از همه بروبچ ايران ويج بخصوص سر دسته ( عمو اشكان عزيز )
متشكرم ... :wink:

[ashkan]

قربانت ، آره نميدونم چي شده خيلي از ISPها چند روزه سايت رو فيلتر كردن رفته ، اينو من خيلي وقته فهميدم چون آمار بازديد سايت بشدت پايين آمده و معلوم بود كه علتش نميتونه چيزي جز فيلتر باشه.
راستي از كي عمو شدم و خبر ندارم.

[amirjan]

بابا دپرس شدم به خدا !! مردم از بس Refresh زدم !!!! چش بود اين سايت؟! قضيه فيلترينگ چيه ؟!!
--------------------------------
آقا افشين اين چند روز ، چون آخرين مطلبي كه خوندم مال شما بود ، فقط دنبال اين بودم كه كارت راه بيفته ، اين وسط كلي چيز ميز ياد گرفتم ! (فاكتوريل ، پرميتاسيون ،‌‌ ...) خيلي برام جالب بود. تا حالا كسي ازم همچين سوالي نكرده بود. خلاصه دارم روش كار ميكنم ، برات استادش ميكنم :wink:

[afshin]

یافتم .............. یافتم !!!!‌ :arrow:

[amirjan]

یافتم .............. یافتم !!!!‌ :arrow:

آخ جون ! خيلي دوست دارم بدونم ، چه جوريه !

[afshin]

amirjan جان .... برنامه رو آپلود كردم برو ببين ...
راستي يادم رفته بود ازت تشكر كنم بابت اينكه به فكر من بودي ...
ببخشيد كه يك كم دير شد !!!‌ :oops:

http://www.iranvig.com/modules.php?name=...=2&thold=0
:wink:

[amirjan]

ايول ! برم ببينم چيه ! ...

[NabiKAZ]

سلام
من اومدم اين برنامه رو بزارم كه ديدم قبلا به نتيجه رسيديد .
به هر صورت اينم برنامه من كه البته جاي كار داره .
اين برنامه فقط تمامي كلمات 3 كاركتري كه ميشه با حروف رشته ورودي ساخته بشن رو ايجاد ميكنه.

کد:

Dim x As String
Dim Char(1 To 100) As String * 1
x = Text1.Text
maxlen = Len(x)
For i = 1 To maxlen
    Char(i) = Mid(x, i, 1)
    
Next i
List1.Clear
For i1 = 1 To maxlen
    For i2 = 1 To maxlen
        For i3 = 1 To maxlen
            word = Char(i1) + Char(i2) + Char(i3)
            List1.AddItem word
        Next i3
    Next i2
Next i1

ممنون
نبي