تبلیغات :
آکوستیک ، فوم شانه تخم مرغی، صداگیر ماینر ، یونولیت
دستگاه جوجه کشی حرفه ای
فروش آنلاین لباس کودک
خرید فالوور ایرانی
خرید فالوور اینستاگرام
خرید ممبر تلگرام

[ + افزودن آگهی متنی جدید ]




صفحه 1 از 2 12 آخرآخر
نمايش نتايج 1 به 10 از 13

نام تاپيک: درخواست ارائه يك روش كلي براي حل چند مساله ساده..

  1. #1
    آخر فروم باز behnam_tr's Avatar
    تاريخ عضويت
    Mar 2007
    محل سكونت
    T@BRIZ
    پست ها
    2,640

    پيش فرض درخواست ارائه يك روش كلي براي حل چند مساله ساده..

    با سلام...

    ====>لطفا روشهايي رو(الگوريتم) براي حل اين مسائل بگيد كه فقط از ضرب و تقسم و باقيمانده و خارج قسمت استفاده شود(البته يك حالت كلي).<=======


    =====>مسائل:

    1-مشخص كردن اينكه يك عدد كامل است يا نه(عددي كامل است كه مجموع مقسوم عليه هاي آن برابر با خود عدد باشد...متال:عدد 6)

    2-مشخص كردن اينكه يك عدد اول است يا نه؟

    3-به توان رساندن يك عدد به توان عدد ديگر

    a=2 ,b=3 ===>2^3=8
    مثلا از روش ديگري به غير از اين روش براي حل اين مسئله استفاده كنيم كه البته در حالت كلي برقرار باشد.....

    4-بدست آوردن مغلوب يك عدد...مثال:12===21

    5-بخش پذيري يك عدد بر
    3

    با تشكر ....
    Last edited by behnam_tr; 08-03-2008 at 21:54.

  2. #2
    حـــــرفـه ای mehdi_7070's Avatar
    تاريخ عضويت
    Aug 2005
    پست ها
    3,232

    پيش فرض

    من اینها را اول سال برای درس "مبانی علم رایانه" نوشتم . نمی دونم منظور شما همین ها بوده یا نه؟

    1. مشخص کردن اینکه یک عدد کامل (تام) است یا نه

    1- شروع
    2- يك عدد را بگير (N)
    3- P=0
    4- T=1
    5- اگر باقي مانده N/T برابر صفر بود ، سپس P=P+T
    6- T=T+1
    7- اگر T<N به مرحله 5 برو
    8- اگر P=N بود ، چاپ كن «تام است» و برو به پایان
    9- چاپ كن «تام نيست»
    10- پايان

    2. مشخص کردن اینکه یک عدد اول است یا نه
    1- شروع
    2- يك عدد را بگير (N)
    3- I=2
    4- اگر باقي مانده N/I برابر صفر بود چاپ كن « اول نيست» و به مرحله 9 برو
    5- I=I+1
    6- اگر I<N است به مرحله 4 برو
    7- چاپ كن «اول است»
    8- پايان

    3. این الگوریتم مقدار M را به توان N می رساند .

    1- شروع
    2- M,N را بخوان
    3- I=1 , S=1
    4- S=S*M , N=N-1
    5. اگر N=1 برو به مرحله 8
    6- I=I+1 و برو به مرحله 4
    7- S را چاپ کن
    8- پایان

    4. مقلوب یک عدد
    برای این من کد VB نوشتم . باید خودت به الگوریتم تبدیل کنی . بدردت میخوره؟

    5. بخش پذیری یک عدد بر 3
    خوب از طریق باقی مانده می تونید این کار را انجام بدهید (Mod) . یعنی یک عدد را بگیرد ، اگر باقی مانده تقسیم این عدد بر 3 برابر صفر بود ، بر 3 بخش پذیر هست .

  3. این کاربر از mehdi_7070 بخاطر این مطلب مفید تشکر کرده است


  4. #3
    آخر فروم باز behnam_tr's Avatar
    تاريخ عضويت
    Mar 2007
    محل سكونت
    T@BRIZ
    پست ها
    2,640

    پيش فرض ايول به مرامت بابا!!!!

    من اینها را اول سال برای درس "مبانی علم رایانه" نوشتم . نمی دونم منظور شما همین ها بوده یا نه؟

    4. مقلوب یک عدد
    برای این من کد VB نوشتم . باید خودت به الگوریتم تبدیل کنی . بدردت میخوره؟

    .
    ايول آقا مهدي گل كاشتي بله دقيقا منظورم همين بود...
    در مورد مسئله 5 كد يا الگوريتم رو (فرقي نمي كنه ) براي زبان پاسكال ميخام...

    واقعا مرسي

  5. #4
    آخر فروم باز behnam_tr's Avatar
    تاريخ عضويت
    Mar 2007
    محل سكونت
    T@BRIZ
    پست ها
    2,640

    پيش فرض

    آقا مهدي اگه فلوچارتشون رو هم ميذاشتي عالي ميشد....(البته اگه امكانش هست)

  6. #5
    حـــــرفـه ای mehdi_7070's Avatar
    تاريخ عضويت
    Aug 2005
    پست ها
    3,232

    پيش فرض

    خواهش می کنم دوست عزیز ...
    این هم موارد باقی مانده :

    4. چاپ مقلوب یک عدد
    کد VB که گفتم . خودت دیگه باید به الگوریتم تبدیل بکنی .
    Dim a As Double
    Dim d As Integer
    a = Val(Text1.Text)
    While a <> 0
    d = a Mod 10
    Text2.Text = Text2.Text & d
    a = (a - d) / 10
    Wend

    5. بخش پذیری بر 3
    1- شروع
    2- یک عدد را بگیر (N)
    3- اگر باقی مانده تقسیم N بر 3 برابر 0 بود چاپ کن "بخش پذیر است" و برو به پایان
    4- چاپ کن "بخش پذیر نیست"
    5- پایان

    در مورد فلوچارت هم که رسم اون از روی الگوریتم ساده هست

  7. #6
    آخر فروم باز behnam_tr's Avatar
    تاريخ عضويت
    Mar 2007
    محل سكونت
    T@BRIZ
    پست ها
    2,640

    پيش فرض

    اقا مهدي ميشه براي مسائل 1 و 2 و3 مثال عددي بزني آخه هر كاري كردم جور درنيومد...

    خواهش ميكنم راهنمايي كن واسه امروز لازم دارم....

  8. #7
    حـــــرفـه ای mehdi_7070's Avatar
    تاريخ عضويت
    Aug 2005
    پست ها
    3,232

    پيش فرض

    الگوریتم های 1 و 2 را یک قسمتی اش را تصحیح کردم . با این تغییرات ببینید درست شده یا نه .
    برای شماره 3 کد وی بی نوشتم .
    برای شماره 4 هم یک الگوریتم گذاشتم ، ولی تست نکردم .

    شماره 1 :

    4- T=1

    شماره 2 :
    4- اگر باقي مانده N/I برابر صفر بود چاپ كن « اول نيست» و به مرحله 9 برو

    شماره 3 :
    من کد وی بی اش را براتون نوشتم . خودتون به الگوریتم تبدیل کنید .
    m = InputBox("Enter M")
    n = InputBox("Enter N")
    s = 1
    For i = 1 To n
    s = m * s
    Next i
    Print s

    این احتمالا برای چاپ مقلوب یک عدد جواب بده . یک امتحانی بکن :
    1- شروع
    2- یک عدد را بگیر (X)
    3- I=X mod 10
    4- I را چاپ کن
    5- X=INT(X/10)
    6- اگر P>0 بود به مرحله 2 برگرد
    7- پایان

  9. #8
    آخر فروم باز K A R I M I's Avatar
    تاريخ عضويت
    Feb 2006
    محل سكونت
    تهـــــــران
    پست ها
    2,732

    پيش فرض

    با اجازه آقا مهدی من برنامه ها رو به زبان پاسکال برای این دوستمون بنویسم ( اگه وقت کنم ! ) ،
    این اولیش برای اینکه مشخص کنه عدد کامله یا نه :
    کد:
    برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
    اینم خود برنامه :
    کد:
    برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
    اینم دومی برای اینکه مشخص کنه عدد اول هست یا نه :
    کد:
    برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
    لینک خود برنامه :
    کد:
    برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
    اینم سومین برنامه به توان رسوندن 2 عدد :
    کد:
    برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
    کد:
    برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
    چهرمین برنامه هم برای بخش پذیری یک عدد برای 3 :
    کد:
    برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
    اینم خود برنامه :
    کد:
    برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
    اینم آخرین برنامه برای عوض کردن ارقام عدد و مغلوب کردن آن:
    کد:
    برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
    اینم لینک خود برنامه :
    کد:
    برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
    Last edited by K A R I M I; 08-03-2008 at 18:26.

  10. #9
    حـــــرفـه ای mehdi_7070's Avatar
    تاريخ عضويت
    Aug 2005
    پست ها
    3,232

    پيش فرض

    من الگوریتم ها را توی VB پیاده سازی کردم و درست بود (با آخرین تغییرات که براتون گذاشتم)

    ظاهرا دیگه مشکلتون کاملا حل شد! چون [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] عزیز براتون سورس پاسکال هم گذاشت .

  11. #10
    آخر فروم باز behnam_tr's Avatar
    تاريخ عضويت
    Mar 2007
    محل سكونت
    T@BRIZ
    پست ها
    2,640

    پيش فرض

    مرسي كريمي جان...

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

    مثلا براي بخش پذيري يك عدد بر 3 بايد از روش مجموع ارقام (بايد مجموع ارقام بر سه بخش پذير باشد) استفاده كنيم
    يعني اول بايد يه كاري كنيم كه ارقام رو از عدد اصلي جدا كنيم و بعد با هم جمع كنيم حال اگر حاصل بر 3 بخش پذير باشد اين عدد هم بر 3 بخش پذير است.

صفحه 1 از 2 12 آخرآخر

Thread Information

Users Browsing this Thread

هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)

User Tag List

قوانين ايجاد تاپيک در انجمن

  • شما نمی توانید تاپیک ایحاد کنید
  • شما نمی توانید پاسخی ارسال کنید
  • شما نمی توانید فایل پیوست کنید
  • شما نمی توانید پاسخ خود را ویرایش کنید
  •