سلام این رو هم امتحان کن
کد:("")a=inputbox
for i = 1 to a
if a mod i = 0 then s=s+1
next i
if s=2 then
print "Aval ast"
else
Print "Aval nist"
end if
Printable View
سلام این رو هم امتحان کن
کد:("")a=inputbox
for i = 1 to a
if a mod i = 0 then s=s+1
next i
if s=2 then
print "Aval ast"
else
Print "Aval nist"
end if
Private Sub Command1_Click() Dim n, i, t As Integerنقل قول:
t = 0
n = text1.Text
For i = 1 To n
If n Mod i = 0 Then
t = t + 1
End If
Next i
If t = 2 Then
Print "aval ast"
Else
Print "aval niast"
End Sub
به یک دکمه و یک تکست باکس و لیبل برای خوانایی برنامه استفاده میکنیم استفاده از لیبل اختیاری است
برنامه تون خوبه فقط چندتا نکته برای اجرای سریعترنقل قول:
لازم نیست از یک تا خود عدد رو تقسیم کنیم اگه عددی اول نباشه حتما یه مقسوم علیه داره که کوچکتر یا مساوی مجذور خودشه (چون شاید نخوایم از توابع ریاضی و مجذور استفاده کنیم از نصف عدد میتونیم استفاده کنیم) کد اصلاح شده به شکل زیر
کد:t=0
n =val( text1.Text)
For i = 2 To n/2
If n Mod i = 0 Then
t = t + 1
End If
Next i
If t = 1 Then
Print "aval ast"
Else
Print "aval niast
سلام دوستان من برنامه زیر رو کسی بلده
برنامه ای که یک عدد را دریافت و مشخص کند اول است با نه با تابع بازگشتی؟ (به زبان جاوا)
سلام این برنامه رو واسه سی شارپ دارید؟ اگه هست به منم بگید
کد سوال جمع بزرگان رو میشه بفرستین
البته اگه کسی داره:n35: