با سلام
من هر چی می کنم نمیفهمم چطور عددای اول زیر 1000 رو بدست بیارم
اگه کسی میگه با آموزش و توضیح خوب بده
با تشکر
Printable View
با سلام
من هر چی می کنم نمیفهمم چطور عددای اول زیر 1000 رو بدست بیارم
اگه کسی میگه با آموزش و توضیح خوب بده
با تشکر
سلام
اتفاقا من یک برنامه برای این نوشتم
الان برات آپلود می کنم
به کد ها خوب دقت کن
اگر نفهمیدی بگو برات توضیح بزارم
البته توی سیستم خونه ندارمش
توی کامپیوتر سر کاره
شنبه برات می آپم
اگر وقت نداری تا شنبه یک توضیح تقریبی بهت می دم خودت بنویس:
ببین من دو تا تکس باکس گذاشتم
یکی با برچسب"از عدد"
یکی هم با برچسب "تا عدد"
بعد اعداد رو طرف می زنه و اعداد اول بین این دو عدد رو برنامه بهش میده
البته اگر مثلا بزنی از عدد 0 تا 100000 اعداد اول رو در بیار حدود 30 ثانیه ای طول می کشه
برای نوشتن این برنامه:
فرض کن اسم تکس اولی a و اسم تکس دومی b هست
یک حلقه for می زاریم از a تا b
بعد توی این حلقه یک حلقه دیگه می زاریم از 2 تا i (متغیر حلقه اوی)
بعد داخل این حلقه تست می کنیم که آیا i بر هر کدوم از اعداد حلقه بخش پذیره یا نه
آخر حلقه اگر بر هیچ کدوم بخش پذیر نبود بعد توی لیست باکس اضافش می کنیم
به همین راحتی
البته اگه الان این کد رو بزاری چندین تا مشکل می خوری
مثلا این عدد بر خودش بخش پذیره و بنابراین هیچ عددی رو اول تشخیص نمیده
و چندین تای دیگه که الان دقیقا یادم نیست
و چند تا ریزه کاری هم برای بالا بردن سرعت کار داره
که یکیش اینه که اعداد زوج رو الکی تست نکنه چون صد در صد اول نیستن
و
و
و
که الان خوب یادم نیست
برای همین اگر تا شنبه صبر کنی برات خود برنامه رو می زارم
تازه یک کد دیگه هم برای برنامه نوشتم که مقسوم علیه های یک عدد رو لیست می کنه
و می خوام توسعش بده که ب.م.م و ک.م.م دو عدد رو هم بگیره [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
من دو سال پیش یه فرمولی بدست اوردم اعداد اول زیر 100 رو طبق یه قانون خاص در می آورد ! ولی بعد از 100 جوابش دیگه درست در نمی اومد !!!
اگه اون فرمول رو پیدا کردم می زارم چون در اون صورت دیگه برنامه نویسیش خیلی راحت تر میشه و زمان کمتری رو هم میبره !!!!!
ولی باید بشینم دوباره از اول پیداش کنم !!!!
بیا عزیزم اینم کدش:
Dim sum As Integer
For i = 1 To 1000
sum = 0
For j = 1 To i
If i Mod j = 0 Then sum = sum + 1
Next j
If sum = 2 Then Label1.Caption = Label1.Caption & " " & i
Next i
label1 خروجی هست و طرز کارش این طوره که :
یه for از یک تا 1000 می شماره (for اول) for دوم هم از یک تا i و داخل for این اتفاق میفته:
مثلا i = 5 شده
for دوم از 1 تا 5 می شماره و در مرحله ی اول i=1 است و j=1
باقیمانده ی i تقسیم بر j رو حساب میکنه که اگر مساوی صفر شد یک عدد به متغیر sum اضافه میکنه و این حلقه تا آخر یعنی 5 میره و اگر sum = 2 شد اون عدد یعنی i که 5 هست رو به label1 اضافه میکنه.
عدد اول عددی هست که به خودش و یک بخش پذیر باشه یعنی دو عدد پس هروقت sum =2 شد اون رو عدد اول حساب میکنه و به label1 اضافه میکنه.
اگه سوالی بود در خدمتم.
موفق باشی.
یه سوال !! چه طوری یک رو برداشتی ؟؟؟ چون که 1 عدد اول نیست ! ولی 1 تقسیم بر 1 مساوی 0 میشه ! و طبق برنامه باید 1 رو هم بنویسه ؟
سلامنقل قول:
یه سوال !! چه طوری یک رو برداشتی ؟؟؟ چون که 1 عدد اول نیست ! ولی 1 تقسیم بر 1 مساوی 0 میشه ! و طبق برنامه باید 1 رو هم بنویسه ؟
اولا یک تقسیم بر یک میشه 1 نه صفر [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
ولی یکی مود یک میشه صفر
اگر به کدی که این دوست عزیز نوشتن دقت کنی می بینی که اگر عدد مربوطه بر دو عدد یعنی یک و خودش بخش پذیر باشه میاد توی لیست
ولی یک فقط بر خودش که همون یکه بخش پذیره
البته فکر کنم اینجوری باشه
___________________________
خیلی برام جالب بودنقل قول:
Dim sum As Integer
For i = 1 To 1000
sum = 0
For j = 1 To i
If i Mod j = 0 Then sum = sum + 1
Next j
If sum = 2 Then Label1.Caption = Label1.Caption & " " & i
Next i
ایول من کلی کد برای یک همچین کاری نوشتم
ولی شما با این کد چند خطه حلش کردی [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
البته اگر توی یک لیست باکس اضافه بشه خیلی قشنگ تر در میاد
البته من عذر خواهی می کنم
چون بعضا دیدم اینجا همه زود بهشون بر می خوره [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
مخصوصا وقتی درباره برنامشون نظری میدی [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
البته تو که ایشالله اینجوری نیستی [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
نه اتفاقا خوشحال شدم نظر دادین.
موفق باشید.
سلام
اينم برنامه اي كه قولش رو داده بودم
دو تا عدد ورودي مي گيره
اعداد اول بينشون رو ميده
مقسوم عليه هاي يك عدد رو هم اگر خواستين بهتون ميده
نقل قول:
کد:http://javadraoufdanger.persiangig.com/21%2Cadade%20aval.rar
خيلي ممنون :11:
از اينكه مي بينم انجمن كاربراي فعال زياد داره
دست همتون درد نكنه:40:
موفق باشيد
راستي نمي تونيم عدداي بيشتر از 1000 رو به دست بيازيم يا نه؟؟؟؟؟
فکر کنم با این سورس راحت بشه تا هر عددی که لازمه رو بدست آورد !!! فقط کافیه یه تغییر بدین !
For i = 1 To 1000
اون هزار رو به هر عددی که مایل هستین تغییر بدین !!!!
می دونم !!!!:18:نقل قول:
اولا یک تقسیم بر یک میشه 1 نه صفر [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
منم منظورم این نبود !!! من منظورم باقیماندش بود !!!! مود هم فکر کنم منظور همون باقی مانده بود دیگه ؟؟؟
فهمیدی چی شد ؟؟؟ خودت می گی بر یک و خودش !!!! بعد می گی یک فقط بر خودش بخش پذیره !!! در حالی که یک هم بر یک بخش پذیره هم بر خودش !!!!!!!!نقل قول:
اگر عدد مربوطه بر دو عدد یعنی یک و خودش بخش پذیر باشه میاد توی لیست
ولی یک فقط بر خودش که همون یکه بخش پذیره
من آخر نفهمیدم !!! اگه میشه یکی یکم شفاف سازی کنه !!!!! کم کم دارم قاط می زنم !
ببیننقل قول:
فهمیدی چی شد ؟؟؟ خودت می گی بر یک و خودش !!!! بعد می گی یک فقط بر خودش بخش پذیره !!! در حالی که یک هم بر یک بخش پذیره هم بر خودش !!!!!!!!
من آخر نفهمیدم !!! اگه میشه یکی یکم شفاف سازی کنه !!!!! کم کم دارم قاط می زنم !
یک هم بر خودش بخش پذیره هم بر یک
ولی این شرط توی حلقه فقطی بار تکرار میشه
به این دقت کن:
For j = 1 To i
حالا وقتی i یک باشه میشه
For j = 1 To 1
این حلقه فقط یک بار تکرار میشه
و فقطم بخش پذیری یک بر خودش چک میشه(یک بار)
فهمیدی؟
اوه گرفتم ! سورس جالبی بود !!!!!!
ايول دمتون گرم
سلام.
البته با 2 نغییر کوچیک میتونیم performance این سورس رو چند برابر کنیم.
اول این که سام که از 2 رد شد معلومه عدد اول نیست. پس بهتره از حلقه خارج شیم. دوم این که تا نصف عدد رو چک کنیم که بخش پذیره یا نه. چون هیچ عددی به از نصف بزرگ تره خودش بخش پذیر نمیتونه باشه.
کد:Private Sub Command1_Click()
Text2.Text = ""
For i = 1 To Text1.Text
Sum = 0
For j = 1 To i
If i Mod j = 0 Then
Sum = Sum + 1
If Sum > 2 Then Exit For
End If
If j > 25 / 2 Then Exit For
Next j
If Sum = 2 Then Text2.Text = Text2.Text & vbNewLine & i
Next i
End Sub
من تو برنامم این قضایا رو گذاشتم [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]نقل قول:
سلام.
البته با 2 نغییر کوچیک میتونیم performance این سورس رو چند برابر کنیم.
اول این که سام که از 2 رد شد معلومه عدد اول نیست. پس بهتره از حلقه خارج شیم. دوم این که تا نصف عدد رو چک کنیم که بخش پذیره یا نه. چون هیچ عددی به از نصف بزرگ تره خودش بخش پذیر نمیتونه باشه.