واضح آرشیو وب فارسی:سایت ریسک: یک برنامه ساده با ویژوال بیسیک 6.0 Nabavi 19 مهر 1388, 11:50سلام خدمت تمامی بروبچه های مجید آنلاین هم چنین مجید گل : من یک برنامه دارم برام با ویژوال بیسیک بنویسید شرح به صورت زیر است : برنامه ای بنویسید که عددی را دریافت کند و اعداد اول بین 1 تا آن عدد و تعداد اعداد اول و حاصل جمع اعداد اول آن را محاسبه نماید.(توضیح 1 جز اعداد اول می باشد.) خواهشمندم دوستانی که بلد هستند بنویسند البته فقط کدش را برام بگذارند. فکر کنم از حلقه هم باید استفاده شود(for next) ممنونم:rose: the_king 19 مهر 1388, 22:08سلام خدمت تمامی بروبچه های مجید آنلاین هم چنین مجید گل : من یک برنامه دارم برام با ویژوال بیسیک بنویسید شرح به صورت زیر است : برنامه ای بنویسید که عددی را دریافت کند و اعداد اول بین 1 تا آن عدد و تعداد اعداد اول و حاصل جمع اعداد اول آن را محاسبه نماید.(توضیح 1 جز اعداد اول می باشد.) خواهشمندم دوستانی که بلد هستند بنویسند البته فقط کدش را برام بگذارند. فکر کنم از حلقه هم باید استفاده شود(for next) ممنونم:rose: البته عدد 1 اول نیست : اعداد اول: عدد طبیعی p و p>1 را اول نامند به شرطی که تنها مقسوم علیه های مثبت آن 1 و p باشند. اگر عددی طبیعی و بزرگتر از 1 اول نباشد، مرکب است و عدد 1 جزء اعداد استثناء است که نه اول است و نه مرکب. رقم یکان هر عدد اول بزرگتر از 10 فقط ممکن است یکی از ارقام 1 و 3 و 7 و 9 باشد. Dim I As Long, J As Long, N As Long Dim Sum As Long, Count As Long Dim Text As String N = Val(InputBox("Please enter a number :")) Text = "Numbers = " For I = 1 To N For J = 2 To I - 1 If (I Mod J) = 0 Then J = 0 Exit For End If Next If J > 0 Then Text = Text & I & " " Count = Count + 1 Sum = Sum + I End If Next Text = Text & vbNewLine & "Count = " & Count Text = Text & vbNewLine & "Sum = " & Sum MsgBox Text Nabavi 27 مهر 1388, 17:49سلام دوست عزیز : برنامه کاملاً درست بود اما اگر می شود ساده تر بنویسیدش. ممنون:green::rose::-? Nabavi 28 مهر 1388, 08:51سلام خواهش می کنم جواب بدید. ممنون:mad: M4HDI 10 آبان 1388, 00:09J=0 N = Val(InputBox("adad ra vared kon : ")) For I = 2 To N/2 If (N Mod I) = 0 Then J = 1 End If Next I If J = 0 Then print "Adad Aval Ast" else print "Adad Aval nist" End If M4HDI 10 آبان 1388, 00:10فکر کنم این یکم ساده تر باشه نه؟:cool:
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 4682]