ورود

نسخه کامل مشاهده نسخه کامل : طریقه نوشتن مجموع کامل اعداد اول


abbasazarpikan
02-05-2010, 07:09
دوستان به چه صورت می تونم مجموع کامل اعداد اول رو بدست بیارم
ممنون
Dark.Lord
02-05-2010, 10:14
مجموعه کامل اعداد اول رو حتی با داشتن ابر کامپیوتر هم نمی توانی دست بیاوری چون نا محدود است،
اما می شه برنامه ای نوشت که به عنوان مثال اگر عدد 1000 رو در اون وارد کردی، اعداد اول زیر 1000 رو برات لیست کنه،
نوشتن این برنامه سادست فقط باید به تعریف اعداد اول توجه کنی:
عدد اول عددی است که فقط بر خودش و یک بخش پذیر است،
کافی یه حلقه بزاری و بخش پذیری عدد (یا اعداد) مورد نظر رو چک کنی...
موفق باشی.
abbasazarpikan
02-05-2010, 16:45
بزرگوار اشتباه شده بود تو نوشتن .ببخشید
برنامه ای که n عدد رو از ورودی بگیره و مجموع کامل اعداد رو بدست بیاره؟
AQOUA
02-05-2010, 20:50
برنامه نياز به يك commandbutton و دو textbox دارد.



Private Sub Command1_Click()

If Text1.Text <> "" Then
For i = 1 To Text1.Text
s = s + i
Next i
Text2.Text = s
End If

End Sub
abbasazarpikan
03-05-2010, 06:54
برنامه نياز به يك commandbutton و دو textbox دارد.



Private Sub Command1_Click()

If Text1.Text <> "" Then
For i = 1 To Text1.Text
s = s + i
Next i
Text2.Text = s
End If

End Sub


بزگوار ممنونم ولی می خوام مثلا عدد 28 یا 8 رو زدم مجموع اعداد کاملش رو تویه یه لیست بهم نشون بده ؟