چاپ اعداد اول کوچکتر از n

[میثم66]

برنامه ای بنویسید که عدد n را دریافت و اعداد اول کوچکتر از آن را نشان دهد.
مثال.اگر ما در اکسل 10 را وارد نماییم خروجی به ما 2و3و5و7 را نشان دهد.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[میثم66]

خروجی در msgbox باشد

[Amir Ghasemiyan]

سلام دوست عزيز
بفرماييد خدمت شما
اين كدها بسيار سادست و نمونه هاي بسياري تو سايت از اينها موجوده. سعي كنين خودتون حل كنيد.

Sub meisam()
a = 10
For i = 2 To a
    counter = 0
    For j = 2 To i
        If i / j = i \ j Then counter = counter + 1
    Next j
    If counter = 1 Then aval = aval & i & "-"
Next i
MsgBox Left(aval, Len(aval) - 1)
End Sub

[میثم66]

سلام دوست عزيز
بفرماييد خدمت شما
اين كدها بسيار سادست و نمونه هاي بسياري تو سايت از اينها موجوده. سعي كنين خودتون حل كنيد.

Sub meisam()
a = 10
For i = 2 To a
    counter = 0
    For j = 2 To i
        If i / j = i \ j Then counter = counter + 1
    Next j
    If counter = 1 Then aval = aval & i & "-"
Next i
MsgBox Left(aval, Len(aval) - 1)
End Sub

با تشکر اینو فقط برای عدد 10 نوشتید اگر ما بخواهیم عدد دلخواه وارد کنیم همچنین خروجی در اکسل نشان دهد در یک ستون چی؟
اینی که نوشتید توضیح فارسیش چی میشه؟

[Amir Ghasemiyan]

با تشکر اینو فقط برای عدد 10 نوشتید اگر ما بخواهیم عدد دلخواه وارد کنیم همچنین خروجی در اکسل نشان دهد در یک ستون چی؟
اینی که نوشتید توضیح فارسیش چی میشه؟

براي وارد كردن عدد دلخواه دو روش داريم. يكي اينكه مقدار رو داخل يكي از سلول ها بنويسيم، دوم اينكه يك فرم داشته باشيم.
روش اول بسيار سادست. كافيه خط دوم رو به اين صورت اصلاح كنيد

a=Range("A1").Value

در خصوص خروجي هم دقيقا به همين صورت هست. خط دهم رو بايد اينطوري اصلاح كنيد

Range("A1").Value=Left(aval,Len(aval)-1)

در كل هم توضيحش اين ميشه كه اگر ديدي عددي فقط به خودش و يك بخش پذير هست به متغير aval اضافه كن

[میثم66]

این همه رو تو سلول اول مینویسه .باید همه رو تو ستون دوم زیر هم چاپ کنه؟
یه مقدار بیشتر توضیح میدی.از اول برنامه

[Amir Ghasemiyan]

این همه رو تو سلول اول مینویسه .باید همه رو تو ستون دوم زیر هم چاپ کنه؟
یه مقدار بیشتر توضیح میدی.از اول برنامه

خب شما گفته بودين ميخواين توي msgbox نمايش بده منم كد رو بر اساس اون نوشتم
ببينين در كل مهمترين قسمت كدنويسي اينه كه شما بتونين تشخيص بدين عدد اول هست يا نه. حالا كه فهميدين عدد اوله ميتونين هركار كه لازمه باهاش بكنين.
يكم كدهاي ديگه اي كه براتون نوشتم رو بررسي كنين متوجه ميشين چطوري زير هم تو ستون دلخواهتون بنويسيد.

و اما توضيح خط به خط برنامه:
خط 1: براي شروع هر كد لازمه. كلمه sub و يك نام براي اون
خط 2: يك عدد رو مشخص ميكنيم. حالا ميخواد دستي وارد بشه يا تو سلول باشه يا از فرم باشه.
خط 3 تا 7: حلقه اي شروع ميكنيم كه اعداد رو از 2 تا عدد مورد نظر بررسي كنه. اگه عدد بر اعداد كوچكتر از خودش بخشپذير باشه شمارنده رو يك شماره زياد ميكنيم
خط 8: خب حالا كه همه اعداد كوچكتر از عددمورد نظر رو از نظر بخش پذيري چك كرديم ميريم به سراغ شمارنده. اگه شمارنده 1 باشه يعني بجز خودش و يك بر هيچ عدد ديگه اي بخش پذير نيست. پس عدد اوله. حالا كه فهميديم اوله ميريزيمش تو متغيري به نام aval
خط 10: كليه اعداد اول بعد از اينكه در متغير aval ذخيره شدن توسط فرمان msgbox نمايش داده ميشن

[میثم66]

خب شما گفته بودين ميخواين توي msgbox نمايش بده منم كد رو بر اساس اون نوشتم
ببينين در كل مهمترين قسمت كدنويسي اينه كه شما بتونين تشخيص بدين عدد اول هست يا نه. حالا كه فهميدين عدد اوله ميتونين هركار كه لازمه باهاش بكنين.
يكم كدهاي ديگه اي كه براتون نوشتم رو بررسي كنين متوجه ميشين چطوري زير هم تو ستون دلخواهتون بنويسيد.

و اما توضيح خط به خط برنامه:
خط 1: براي شروع هر كد لازمه. كلمه sub و يك نام براي اون
خط 2: يك عدد رو مشخص ميكنيم. حالا ميخواد دستي وارد بشه يا تو سلول باشه يا از فرم باشه.
خط 3 تا 7: حلقه اي شروع ميكنيم كه اعداد رو از 2 تا عدد مورد نظر بررسي كنه. اگه عدد بر اعداد كوچكتر از خودش بخشپذير باشه شمارنده رو يك شماره زياد ميكنيم
خط 8: خب حالا كه همه اعداد كوچكتر از عددمورد نظر رو از نظر بخش پذيري چك كرديم ميريم به سراغ شمارنده. اگه شمارنده 1 باشه يعني بجز خودش و يك بر هيچ عدد ديگه اي بخش پذير نيست. پس عدد اوله. حالا كه فهميديم اوله ميريزيمش تو متغيري به نام aval
خط 10: كليه اعداد اول بعد از اينكه در متغير aval ذخيره شدن توسط فرمان msgbox نمايش داده ميشن

کد مربوط به تشخیص عدد اول اینه اینجوری که شما نوشتید با این فرق داره.من اینجوری یاد گرفتم.

Sub prime()
n = Cells(1, 1)
div = 0
For i = 1 To n

If 0=n mod i Then
div = div + 1
End If
Next i
If div = 2 Then
Cells(1, 2) = "prime"
Else
Cells(1, 2) = "not prime"
End If
End Sub 

[Amir Ghasemiyan]

کد مربوط به تشخیص عدد اول اینه اینجوری که شما نوشتید با این فرق داره.من اینجوری یاد گرفتم.

Sub prime()
n = Cells(1, 1)
div = 0
For i = 1 To n

If 0=n mod i Then
div = div + 1
End If
Next i
If div = 2 Then
Cells(1, 2) = "prime"
Else
Cells(1, 2) = "not prime"
End If
End Sub 

راه هاي رسيدن به خدا زياده دوست عزيز.
اين رو هميشه يادتون باشه. در كدنويسي براي رسيدن به يك هدف چندين و چند راه وجود داره. يك برنامه نويس خوب كسي هست كه علاوه بر انتخاب يك برنامه درست كه به هدف برسه، يك برنامه ساده و سريع رو انتخاب ميكنه.

[میثم66]

راه هاي رسيدن به خدا زياده دوست عزيز.
اين رو هميشه يادتون باشه. در كدنويسي براي رسيدن به يك هدف چندين و چند راه وجود داره. يك برنامه نويس خوب كسي هست كه علاوه بر انتخاب يك برنامه درست كه به هدف برسه، يك برنامه ساده و سريع رو انتخاب ميكنه.

خب الان به این شکل که من بالا قرار دادم چجوری میشه نوشت؟