روالي كه اعداد اول بين 1 تا n را نمايش دهد.
Printable View
روالي كه اعداد اول بين 1 تا n را نمايش دهد.
اینم نوشتن اعداد اول بین 1 تا n
n = InputBox("")
For i = 1 To n
For j = 1 To i
If ((i Mod j) = 0) Then
k = k + 1
End If
Next j
If k = 2 Then Print i
k = 0
Next i
End Sub
به صورت زیر بهینه تر میشه:نقل قول:
کد:n = InputBox("")
For i = 1 To n
For j = 1 To Sqr(i)
If ((i Mod j) = 0) Then
k = k + 1
End If
Next j
If k = 1 Then Print i
k = 0
Next i
به هر حال این هم یه راهیه
هرگی هرچی راحت تره:31:
قصد جسارت نداشتم:11:نقل قول:
شاید روش های بهتری هم وجود داشته باشه.
در ضمن من همون روش شما رو نوشتم و تنها تغییری که دادم این بود که عمل جست و جو تا جذر عدد مورد نظر ادامه پیدا کنه. این طوری مدت زمان محاسبه به نصف کاهش پیدا می کنه.
خواهش میکنم
من هم از شما ممنونم که راه جدیدی به من یاد دادید:11: