این برنامه ای که نوشتم نمیدونم چکار کنم که اعداد 2 و 3 و 5 رو هم چاپ کنه
کد:Private Sub Command1_Click()
While a = 2 And a = 3 And a = 5 And a Mod 2 <> 0 And a Mod 3 <> 0 And a Mod 5 <> 0
Wend
Print "one"
End Sub
Printable View
این برنامه ای که نوشتم نمیدونم چکار کنم که اعداد 2 و 3 و 5 رو هم چاپ کنه
کد:Private Sub Command1_Click()
While a = 2 And a = 3 And a = 5 And a Mod 2 <> 0 And a Mod 3 <> 0 And a Mod 5 <> 0
Wend
Print "one"
End Sub
یعنی میخوای برنامه ای بنویسی که اعداد اول رو به همراه 2 و 3 و 5 چاپ کنه ؟
اینم برنامه ای که اعداد اول رو از 1 تا عددی که شما وارد می کنید نشون می ده
کد:Private Sub Command1_Click()
num = InputBox("")
For i = 1 To num
k = 0
For j = 1 To i
If i Mod j = 0 Then k = k + 1
Next j
If k = 2 Then Print i
Next i
End Sub
امر دیگه؟
یا علی...:5:
خیلی لطف کردی ممنون عزیز:11:
با تشکر از دوست عزیزی که جواب دادن اما من واقعا نفهمیدم منظور ایشون چی در پست اول واگرنه کمکشون می کردم
کد آسونی هم بود
در هر حال ممنون
نقل قول:
من قبلا این برنامه رو نوشته بودم ولی تو خیلی بهتر نوشتی.
k به این دلیل 2 میشه چون یه عدد اول فقط دو بار باقیماندش صفر میاد، یه بار وقتی به 1 تقسیم میشه و یه بار وقتی به خودش تقسیم میشه.
سلام
ممنون میشم اگه کسی توی برنامه ی چاپ 5تا عدد اول بعد 0 رو توی matlab بهم کمک کنه......مرسی
نقل قول:
فقط یه مشکل داره که عدد 1 را چاپ نمیکنه . :n10: