نوشتن روال

[mehdi1251]

روالي كه اعداد اول بين 1 تا n را نمايش دهد.

[sadeghbarout]

اینم نوشتن اعداد اول بین 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

[modirmasool]

اینم نوشتن اعداد اول بین 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





به صورت زیر بهینه تر میشه:


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[sadeghbarout]

به هر حال این هم یه راهیه
هرگی هرچی راحت تره:31:

[modirmasool]

به هر حال این هم یه راهیه
هرگی هرچی راحت تره:31:

قصد جسارت نداشتم:11:
شاید روش های بهتری هم وجود داشته باشه.
در ضمن من همون روش شما رو نوشتم و تنها تغییری که دادم این بود که عمل جست و جو تا جذر عدد مورد نظر ادامه پیدا کنه. این طوری مدت زمان محاسبه به نصف کاهش پیدا می کنه.

[sadeghbarout]

خواهش میکنم
من هم از شما ممنونم که راه جدیدی به من یاد دادید:11: