الگوريتم

[megatron]

با سلام.

ميشه الگوريتم اين برنامه ها رو برام بنويسيد.

با تشكر.

N,.....,6,4,2

N,....,11,7,5,3,1

اين كسري هست و بينشون منفي است.

N-.......-2/8-2/9-2/3

1/2,1/4,1/8,1/16,32,64,128,256,1/1024,1/2048,1/4096

اين هم كسري هست و هم خطي.

اگه ميشه الگوريتم فارسيشون را برام بنويسيد.

خيلي ممنون از شما.

[mojtabamalaekeh]

الگوریتم اول
1ـ یک عدد بگیر.
2ـ اگر عدد فرد بود، عدد را منهای یک کن ( برای اینکه زوج شود)
3ـ اگر عدد کوچکتر از 2 بود برو به پایان
4ـ عدد را چاپ کن
5ـ عدد را منهای 2 کن
6ـ اگر عدد بزرگتر یا مساوی 2 بود برو به مرحله 4
7ـ پایان

کد:

Private Sub Command1_Click()
    Dim n As Integer
    Me.AutoRedraw = True
    Cls
    n = Val(InputBox("Enter a number:"))
    If n Mod 2 = 1 Then n = n - 1
    If n < 2 Then Exit Sub
    Do
        Print n
        n = n - 2
    Loop While n >= 2
End Sub

الگوریتم دوم
1ـ یک عدد بگیر.
2ـ اگر عدد زوج بود، عدد را منهای یک کن ( برای اینکه فرد شود)
3ـ اگر عدد کوچکتر از 1 بود برو به پایان
4ـ عدد را چاپ کن
5ـ عدد را منهای 2 کن
6ـ اگر عدد بزرگتر یا مساوی 1 بود برو به مرحله 4
7ـ پایان

کد:

Private Sub Command1_Click()
    Dim n As Integer
    Me.AutoRedraw = True
    Cls
    n = Val(InputBox("Enter a number:"))
    If n Mod 2 = 0 Then n = n - 1
    If n < 1 Then Exit Sub
    Do
        Print n
        n = n - 2
    Loop While n >= 1
End Sub

الگوریتم سوم
مخرج 8، مخرج 9، یهو مخرج شد 3، من که متوجه نشدم.

الگوریتم چهارم
1ـ a را برابر 1 قرار بده
2ـ b را برابر 1 قرار بده
3ـ b را در دو ضرب کن
4ـ a تقسیم بر b را چاپ کن
5ـ اگر b کوچکتر از 4096 بود برو به مرحله 3
6ـ پایان

کد:

Private Sub Command1_Click()
    Dim a As Byte, b As Integer
    Me.AutoRedraw = True
    Cls
    a = 1
    b = 1
    Do
        b = b * 2
        Print a & "/" & b
    Loop While b < 4096
End Sub

دقیقاً یاد QBASIC افتادم
ویرایش شد:
فکر کنم تو تمام الگوریتم ها مرحله 1 شروع باشه! خودت اصلاحشون کن.

[mbza11]

سلام.

N-.......-2/8-2/9-2/3

فکر کنم اون 8/2 در واقع 81/2 باشه.
در ضمن دومي هم اعداد فرد نيست بلکه اعداد اول هست.
البته به احتمال خيلي زياد همشون برعکس خونده مي شن يعني بايد اينجوري باشن:

کد:

2,4,6,...,N
1,3,5,7,11,...,N
2/3-2/9-2/81-...-N
1/2,1/4,1/8,1/16,32,64,128,256,1/512,1/1024,1/2048,1/4096

[mojtabamalaekeh]

فکر کنم اون 8/2 در واقع 81/2 باشه.
در ضمن دومي هم اعداد فرد نيست بلکه اعداد اول هست.

حق با شماست. من اصلا به تفاضل 7 و 11 توجه نکردم. همینطور هم در مورد 8/2 که باید بشه 81/2 که در اینصورت صورت مسئله درست میشه.
خیلی ممنون از توجهتون.
من فقط صبح میام فروم. فرصت امروزم تمام شده و فردا اگه کسی جواب نداده بود دو الگوریتم باقی مونده رو می نویسم.

[mbza11]

سلام.
مجتبي جان نيازي نيست.
قسمت اول تا سوم رو امروز (دوشنبه) تو کلاس براشون حل کردم، قسمت چهارم هم روش حل رو بهشون گفتم ولي حلشو قرار شد جلسه بعد امتحان بگيرم.

اين چيزايي که ديدين من جلسه قبل به عنوان تمرين به بچه ها داده بودم که خوب زحمت کشيدن و ...
پس لطفا کسي جواب نده.

[godvb]

سلام .
اه , عجب شانسی تازه نشستم نوشتم این همه تایپ کردم حالا هیچی ...
به نظرم تنها چیزی که باید به این افراد گفت چیزیه که خود mbza11 هم تو امضاش نوشته و البته خیلی دقت هم لازم داره نه عین من حواس پرت . . . .