سلام این رو هم امتحان کن
کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
سلام این رو هم امتحان کن
کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
Last edited by Mohammad_HNF; 24-10-2013 at 18:43.
Private Sub Command1_Click() Dim n, i, t As Integerنوشته شده توسط sabeghi [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
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
به یک دکمه و یک تکست باکس و لیبل برای خوانایی برنامه استفاده میکنیم استفاده از لیبل اختیاری است
برنامه تون خوبه فقط چندتا نکته برای اجرای سریعترنوشته شده توسط Haydeh moradi [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
لازم نیست از یک تا خود عدد رو تقسیم کنیم اگه عددی اول نباشه حتما یه مقسوم علیه داره که کوچکتر یا مساوی مجذور خودشه (چون شاید نخوایم از توابع ریاضی و مجذور استفاده کنیم از نصف عدد میتونیم استفاده کنیم) کد اصلاح شده به شکل زیر
کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
Last edited by akpa; 22-05-2016 at 22:31.
سلام دوستان من برنامه زیر رو کسی بلده
برنامه ای که یک عدد را دریافت و مشخص کند اول است با نه با تابع بازگشتی؟ (به زبان جاوا)
سلام این برنامه رو واسه سی شارپ دارید؟ اگه هست به منم بگید
کد سوال جمع بزرگان رو میشه بفرستین
البته اگه کسی داره
هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)