می خوام یک تابع بنویسم که یک عدد صحیح را بگیرد اگر عدد صحیح اول بود مقدار 0 و در غیر اینصورت مقدار 1 را به ما بدهد
اگر کسی می دونه لطفا به من کمک کنه
Printable View
می خوام یک تابع بنویسم که یک عدد صحیح را بگیرد اگر عدد صحیح اول بود مقدار 0 و در غیر اینصورت مقدار 1 را به ما بدهد
اگر کسی می دونه لطفا به من کمک کنه
سلام.
خودت بنویس هر جا مشکل داشتی این جا مطرح کن.
نمی دونم چجوری باید اعداد اول رو معرفی کنم
سلام.
عدد اول عددیه که به فقط به خودش و 1 بخش پذیر باشه. عدد مورد نظرتو به اعداد کوچکتر از خودش تو یه حلقه تقسیم کن و اونا که بخش پذیرن رو بشمار. اگه 2 تا بودن اوله اگه بیشتر بود اول نیست. شما اینو بنویس بذار این جا خیلی کارا میشه برای بهبود الگوریتمش کرد. مثلا به عدد رو به کل اعداد کوچکتر تقسیم نکنی. از یک تا نصف عدد. یا عدد زوج بود غیر 2 اول نیست و ... .
آقا پیمان من یک مبتدیم که تازه دارم برنامه نویسی یاد می گیرم
حالا برا اون سوال بالایی یه کد نوشتم ولی ارور می ده می شه ایرادش رو بگی
Private Function hamid(p As Integer) As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
For c = a To b
If a \ b Then
c = a Mod 0 Or 1
p = a
End If
Next c
hamid = p
End Function
ممنون
یکی به من بگه چجوری کدی بنویسم که اعداد اول رو به من نشون بده :blush:
یکی کمک کنه لطفا
سلام .
اين برنامه يه عدد ميگيره و ميگه اوله يا نه.چون عجله داشتي سريع نوشتم.
خيلي ساده ست.
يه Command و يه Text رو فرم بذار و برنامه رو كپي كن.
اميدوارم به دردت بخوره.
البته پيمان عزيز الگوريتم برنامه رو خيلي ساده و روان توضيح داد.کد:Private Sub Command1_Click()
Dim T As Single
Dim I As Single
Dim P As Single
Dim C As Single
C = Val(Text1.Text)
T = 0
For I = 1 To C \ 2
If C Mod I = 0 Then T = T + 1
If T > 2 Then
Print "No"
Exit Sub
End If
Next I
Print "Yes"
End Sub
سلام.
T>2 تو شرط if باید به T>1 تغییر کنه تا درست کار کنه. چون تا نصف عدد تقسیم میکنه و به خود عدد نمیرسه. پس اگه بعد از 1 به یه عدد دیگه بخش پذیر باشه اول نیست. این جوری 9 رو میگه اوله.
:thumbsup: به به چه جالب من تو vb.net این برنامه رو نوشته ام.عضو شدم که اینو برات بنویسم