به دست آوردن عدد اول

اینو بگیر یه فرم می خواد و یه دکمه با یه تکست باکس . اسم تکست باکسو عوض نکن بعد تو روال کلیک دکمه ات اینو تایپ کن
Dim N, X, i, primnum As Decimal
Dim ISprime As Boolean

N = TextBox1.Text
X = sqrt(N)
ISprime = True
If N = 2 Then
MsgBox("خره! مسخره کردی؟ معلومه که اوله", MsgBoxStyle.OKOnly, "چهههههه؟")

Exit Sub
End If
If (N Mod 2) = 0 Then 'اعداد زوج هیچگاه اول نیستند بجز 2
ISprime = False
MsgBox("خیر این عدد اول نیست")
Exit Sub
End If

If ISprime = True Then
For i = 2 To X
If (N Mod i) = 0 Then
ISprime = False
Exit For
End If
Next (i)
If ISprime = True Then
MsgBox("بله این عدد اول است")
Else
MsgBox("خیر این عدد اول نیست")

End If
End If
بعد از اجرا...عددت رو تو تکست باکس مینویسی و دکمه رو می زنی اگه عددت خیلی بزرگ باشه طول میکشه.

یا اگه از 1 تا جذر اون عدد هم تقسیم کنی میشه ...مثل همون کاری که من کردم (خودت فکرش رو بکن تو عددای بزرگ جذر چقدر کارایی الگوریتمو افزایش میده!
حتی طبق یک تعریف دیگر از عدد اول:عددیست که بر هیچ یک از اعداد اول قبل از خود بخشپذیر نباشد!
این به درد کارایی میخوره که بخوای پرپایه یه لیست موجود کارتو ادامه بدی

سلام به همگی
خسته نباشید
فکر کنم این الگوریتم بهتر و درست تر باشه.
اگه عدد اول نباشه هم می گه اول نیست و هم اولین عددی رو که به اون بخشپذیر معلوم میکنه.

Private Sub Command1_Click()
Dim a As Double, c As Double
a = Val(Text1.Text)
c = 2
Do While c * c <= a
If a Mod c = 0 Then
Print "aval nist" + vbCr + "be " + CStr(c) + " bakhshpazir ast."
Exit Do
End If
c = c + 1
Loop
If c * c > a Then Print "aval hast"
End Sub

موفق باشید

به نظرم الگوریتم من بهتر باشه چون تو الگوریتم شما در هر دور حلقه باید c^2 حساب بشه :biggrin:
حالا یه سئوال:موقعی که برنامه در حال محاسبات سنگینی مثل پیدا کردن اعداد اول 1 تا 1000000 هست. فرم برنامه ام قفل میشه و با فشار دکمه stop روال مربوط به اون که می بایست محاسبات رو نیمه کاره پایان بده اجرا نمیشه تازمانی که محاسبات خودشون تموم بشن! راه حلی نیست که (حلقه ها) انقدر مخ cpuرو کار نگیرن؟یا بشه به هر فرمان یک مقدار مشخصی از زمان پردازنده رو داد؟ :worried:

نقل قول:

---

نوشته شده توسط Payman_62

سلام.
T>2 تو شرط if باید به T>1 تغییر کنه تا درست کار کنه. چون تا نصف عدد تقسیم میکنه و به خود عدد نمیرسه. پس اگه بعد از 1 به یه عدد دیگه بخش پذیر باشه اول نیست. این جوری 9 رو میگه اوله.

---

سلام.

اگه بگيم T>=2 چطوره؟

نقل قول:

---

نوشته شده توسط behnaam

به نظرم الگوریتم من بهتر باشه چون تو الگوریتم شما در هر دور حلقه باید c^2 حساب بشه :biggrin:
حالا یه سئوال:موقعی که برنامه در حال محاسبات سنگینی مثل پیدا کردن اعداد اول 1 تا 1000000 هست. فرم برنامه ام قفل میشه و با فشار دکمه stop روال مربوط به اون که می بایست محاسبات رو نیمه کاره پایان بده اجرا نمیشه تازمانی که محاسبات خودشون تموم بشن! راه حلی نیست که (حلقه ها) انقدر مخ cpuرو کار نگیرن؟یا بشه به هر فرمان یک مقدار مشخصی از زمان پردازنده رو داد؟ :worried:

---

سلام.
در حلقه یه Doevents بذار.

نقل قول:

---

نوشته شده توسط Batman1

سلام.

اگه بگيم T>=2 چطوره؟

---

T>=2 با T>1 برای اعداد صحیح فرق نمیکنه.
البته میدونم که میدونی.