|
دانلود نرم افزار
فروشگاه اینترنتی
|
|||||||
| رياضيات زیر شاخه ی تخصصی علوم ریاضی |
 |
|
|
اختيارات تاپيک | نمايش رسم |
03-03-2008, 07:09 PM
|
#1 |
|
آخر فروم باز
 
تاريخ عضويت: Mar 2007
محل سكونت: T@BRIZ
پست ها: 2,189
|
درخواست ارائه يك روش كلي براي حل چند مساله ساده..
با سلام...
 ====>لطفا روشهايي رو(الگوريتم) براي حل اين مسائل بگيد كه فقط از ضرب و تقسم و باقيمانده و خارج قسمت استفاده شود(البته يك حالت كلي).<============>مسائل: 1-مشخص كردن اينكه يك عدد كامل است يا نه(عددي كامل است كه مجموع مقسوم عليه هاي آن برابر با خود عدد باشد...متال:عدد 6) 2-مشخص كردن اينكه يك عدد اول است يا نه؟ 3-به توان رساندن يك عدد به توان عدد ديگر a=2 ,b=3 ===>2^3=8 مثلا از روش ديگري به غير از اين روش براي حل اين مسئله استفاده كنيم كه البته در حالت كلي برقرار باشد..... 4-بدست آوردن مغلوب يك عدد...مثال:12===21 5-بخش پذيري يك عدد بر 3 با تشكر ....
Last edited by behnam_tr; 03-08-2008 at 10:54 PM. |
|
|
| تبلیغــــات | |
Advertisement |
|
|
03-03-2008, 11:22 PM
|
#2 |
|
مدیر بازنشسته
 
تاريخ عضويت: Aug 2005
پست ها: 3,081
|
من اینها را اول سال برای درس "مبانی علم رایانه" نوشتم . نمی دونم منظور شما همین ها بوده یا نه؟
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 بخش پذیر هست . |
|
|
|
|
03-03-2008, 11:32 PM
|
#3 | |
|
آخر فروم باز
تاريخ عضويت: Mar 2007
محل سكونت: T@BRIZ
پست ها: 2,189
|
ايول به مرامت بابا!!!!
نقل قول:
.gif "N Aggressive (16)") ايول آقا مهدي گل كاشتي بله دقيقا منظورم همين بود...در مورد مسئله 5 كد يا الگوريتم رو (فرقي نمي كنه ) براي زبان پاسكال ميخام... .gif "N Aggressive (17)") واقعا مرسي
|
|
|
|
|
|
03-03-2008, 11:53 PM
|
#4 |
|
آخر فروم باز
تاريخ عضويت: Mar 2007
محل سكونت: T@BRIZ
پست ها: 2,189
|
آقا مهدي اگه فلوچارتشون رو هم ميذاشتي عالي ميشد....(البته اگه امكانش هست)
|
|
|
|
|
03-04-2008, 03:40 PM
|
#5 |
|
مدیر بازنشسته
تاريخ عضويت: Aug 2005
پست ها: 3,081
|
خواهش می کنم دوست عزیز ...
این هم موارد باقی مانده : 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- پایان در مورد فلوچارت هم که رسم اون از روی الگوریتم ساده هست 
|
|
|
|
|
03-08-2008, 02:11 PM
|
#6 |
|
آخر فروم باز
تاريخ عضويت: Mar 2007
محل سكونت: T@BRIZ
پست ها: 2,189
|
.gif "N Aggressive (40)") اقا مهدي ميشه براي مسائل 1 و 2 و3 مثال عددي بزني آخه هر كاري كردم جور درنيومد...خواهش ميكنم راهنمايي كن واسه امروز لازم دارم....
|
|
|
|
|
03-08-2008, 03:46 PM
|
#7 |
|
مدیر بازنشسته
تاريخ عضويت: Aug 2005
پست ها: 3,081
|
الگوریتم های 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- پایان |
|
|
|
| تبلیغــــات | |
Advertisement |
|
|
03-08-2008, 04:11 PM
|
#8 |
|
آخر فروم باز
تاريخ عضويت: Feb 2006
محل سكونت: تهـــــــران
پست ها: 2,268
|
با اجازه آقا مهدی من برنامه ها رو به زبان پاسکال برای این دوستمون بنویسم ( اگه وقت کنم ! ) ،
این اولیش برای اینکه مشخص کنه عدد کامله یا نه : کد:
برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید کد:
برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید کد:
برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید کد:
برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید کد:
برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید کد:
برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید کد:
برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید کد:
برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید کد:
برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید کد:
برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید Last edited by K A R I M I; 03-08-2008 at 07:26 PM. |
|
|
|
|
03-08-2008, 05:58 PM
|
#9 |
|
مدیر بازنشسته
تاريخ عضويت: Aug 2005
پست ها: 3,081
|
من الگوریتم ها را توی VB پیاده سازی کردم و درست بود (با آخرین تغییرات که براتون گذاشتم)
ظاهرا دیگه مشکلتون کاملا حل شد! چون K A R I M I عزیز براتون سورس پاسکال هم گذاشت . |
|
|
|
|
03-08-2008, 10:50 PM
|
#10 |
|
آخر فروم باز
تاريخ عضويت: Mar 2007
محل سكونت: T@BRIZ
پست ها: 2,189
|
مرسي كريمي جان...
فقط يه مشكلي هست اونم اينكه بايد مسائل فقط از طريق عمليات چهارگانه و باقي مانده و خارج قسمت حل شوند يعني در نوشتن برنامه نبايد از حلقه هاي تكرار و توابع رياضي استفاده شود. مثلا براي بخش پذيري يك عدد بر 3 بايد از روش مجموع ارقام (بايد مجموع ارقام بر سه بخش پذير باشد) استفاده كنيم يعني اول بايد يه كاري كنيم كه ارقام رو از عدد اصلي جدا كنيم و بعد با هم جمع كنيم حال اگر حاصل بر 3 بخش پذير باشد اين عدد هم بر 3 بخش پذير است. |
|
|
|
|
| کاربراني که اين گفتگو را مشاهده ميکنند: 1 (0 کاربران و 1 مهمان) | |
| اختيارات تاپيک | |
| نمايش رسم | |
|
|
دانلود نرم افزار خرید اینترنتی از فروشگاه آنلاین سفارش تبلیغات تماس با مدیریت وب سایت
نمايش خطي
