با سلام.
ميشه الگوريتم اين برنامه ها رو برام بنويسيد.
با تشكر.
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
اين هم كسري هست و هم خطي.
اگه ميشه الگوريتم فارسيشون را برام بنويسيد.
خيلي ممنون از شما.
الگوریتم اول
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 شروع باشه! خودت اصلاحشون کن.
سلام.
megatron نوشته است: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
mbza11 نوشته است:فکر کنم اون 8/2 در واقع 81/2 باشه.
در ضمن دومي هم اعداد فرد نيست بلکه اعداد اول هست.
حق با شماست. من اصلا به تفاضل 7 و 11 توجه نکردم. همینطور هم در مورد 8/2 که باید بشه 81/2 که در اینصورت صورت مسئله درست میشه.
خیلی ممنون از توجهتون.
من فقط صبح میام فروم. فرصت امروزم تمام شده و فردا اگه کسی جواب نداده بود دو الگوریتم باقی مونده رو می نویسم.
سلام.
مجتبي جان نيازي نيست.
قسمت اول تا سوم رو امروز (دوشنبه) تو کلاس براشون حل کردم، قسمت چهارم هم روش حل رو بهشون گفتم ولي حلشو قرار شد جلسه بعد امتحان بگيرم.
اين چيزايي که ديدين من جلسه قبل به عنوان تمرين به بچه ها داده بودم که خوب زحمت کشيدن و ...
پس لطفا کسي جواب نده.
سلام .
اه , عجب شانسی تازه نشستم نوشتم این همه تایپ کردم حالا هیچی ...
به نظرم تنها چیزی که باید به این افراد گفت چیزیه که خود mbza11 هم تو امضاش نوشته و البته خیلی دقت هم لازم داره نه عین من حواس پرت . . . .