مقسوم علیه های فرد عدد

[azv_2008]

سلام دوستان دیروز من یه پستی دادم مبنی بر کمک خواستن از دوستان در مورد نوشتن این برنامه اما نمی دونم چرا عوض پاسخ حذف گردید . حالا برنامه ای که می خوام بنویسم اینه :

عدد N را بگيرد و مجموع مقسوم عليه هاي فرد را نشان دهد .
به خاطر اینکه من ریاضیم ضعیفه نتونستم بنویسم و موندم از دوستان کمک می خوام در مورد نوشتن این برنامه و اینکه یه سوال دیگه ای هم دارم اون هم این که :

من دو تا برنامه نوشتم که شامل پایگاه داده اکسس هم هست حالا من می خوام این برنامه ای که نوشتمو کاملا به صورت یه پکیج در بیارم و بزنم سی دی و بدم بیرون اما با درست کردن EXE نمی شه و در کامپیتور های دیگر اجرا نمی شه :ناراحت:

[اوبالیت به بو]

عدد N را بگيرد و مجموع مقسوم عليه هاي فرد را نشان دهد .به خاطر اینکه من ریاضیم ضعیفه نتونستم بنویسم
ربطي به رياضيات نداره.
N رو كه از ورودي گرفتي داخل يه حلقه از 1 تا خودش قرار ميدي

For Counter= 1 To Number
و بعد Number رو تقسيم بر Counter مي كني و اگر باقيمانده صفر شد اون رو چاپ كنه. حالا اون مقدار چاپ شده رو با استفاده از يه الگوريتم ديگه اعداد زوج و فردش رو جدا مي كني و چاپ مي كني.


من دو تا برنامه نوشتم که شامل پایگاه داده اکسس هم هست حالا من می خوام این برنامه ای که نوشتمو کاملا به صورت یه پکیج در بیارم و بزنم سی دی و بدم بیرون اما با درست کردن EXE نمی شه و در کامپیتور های دیگر اجرا نمی شه :ناراحت:
چون كار شما اشتباه هست!:کف:

[اوبالیت به بو]

Dim Counter, Number, Mad As Integer
Number = InputBox("Pleas Enter Number")
For Counter = 1 To Number
Mad = Number Mod Counter
If Mad = 0 Then
If Counter Mod 2 <> 0 Then Print Counter
End If
Next Counter
Counter: شمارنده
Number: عدد ورودي
Mad: باقيمانده

[azv_2008]

خیلی خیلی ممنون از لطف شما دوست عزیز

لطفا اگه میشه جواب سوال دومم هم بدین کارم گیره

[azv_2008]

یه سوال دیگر این برنامه ای که ضمیمه کردی وقتی اعدادی رو وارد می کنیم و می زنیم که مقسوم علیه ها را بدهد میره در گوشه نشون میده مقسوم علیه ها را در گوشه فرم می شه یه کاری کرد که در تکست باکس نشون بده و اینکه 2 عدد را میاره مثلا برای 20 -- 5 و 1 رو میاره که من می خوام دوتاشو باهم جمع کنه ممنون

[Mbt925]

تاپیک قبلیتون پاک شد برای اینکه

عنوان مناسبی رو براش انتخاب نکرده بودید.

دوباره این اشتباه رو تکرار کردید ، این نشون دهنده ی اینه که قوانین رو یک بار هم مطالعه نکردید.

قوانین رو مطالعه کنید.

[AmirAmiri]

سلام obalitjoOon (http://barnamenevis.org/forum/member.php?u=47457) عزیز لازم نیست Counter رو از 1 تا خود عدد بگیریم اینطوری برنامه کاره اضافی انجام میده. کافیه از 1 تا نصف عدد + 1 بگیریم.
قوانین رو منم نخوندم باید از کجا بخونم؟

[azv_2008]

تاپیک قبلیتون پاک شد برای اینکه

عنوان مناسبی رو براش انتخاب نکرده بودید.

دوباره این اشتباه رو تکرار کردید ، این نشون دهنده ی اینه که قوانین رو یک بار هم مطالعه نکردید.

قوانین رو مطالعه کنید.

دوست عزیز آیا بهتر نبود قبل از پاک کردن یه اخطاری بدین

[azv_2008]

سلام obalitjoOon (http://barnamenevis.org/forum/member.php?u=47457) عزیز لازم نیست Counter رو از 1 تا خود عدد بگیریم اینطوری برنامه کاره اضافی انجام میده. کافیه از 1 تا نصف عدد + 1 بگیریم.
قوانین رو منم نخوندم باید از کجا بخونم؟

سلام دوست خوبم آقای obalitjoOon (http://barnamenevis.org/forum/member.php?u=47457) هم کار منو راه انداخت اما اشکالاتی داشت مثلا اینکه جمع نبود و من گفته بودم مجموع تابع سام از یاد رفته بوده و اینکه از حلقه استفاده کرده بود که یه کم برام گنک بودم

دوستان گه یه ذره ساده تر کنن و مجموع هم بزنه و اینکه جواب سوال دومم رو هنوز کسی نداده :ناراحت:

[اوبالیت به بو]

سلام عزیز لازم نیست Counter رو از 1 تا خود عدد بگیریم اینطوری برنامه کاره اضافی انجام میده. کافیه از 1 تا نصف عدد + 1 بگیریمبله اين كار هم امكان پذير. خواستم با Do While بنويسم ولي براي راحتي اين كار رو كردم ولي حرف شما درست هستش و تويه For مي تونستم (Number / 2 +1) تكرار كنم!مجموع:

Dim Counter, Number, Mad, Sum As Integer
Number = InputBox("Pleas Enter Number")
For Counter = 1 To Number
Mad = Number Mod Counter
If Mad = 0 Then
If Counter Mod 2 0 Then
Sum=Sum + Counter
Print Sum
End If
Next Counter

[azv_2008]

بله اين كار هم امكان پذير. خواستم با Do While بنويسم ولي براي راحتي اين كار رو كردم ولي حرف شما درست هستش و تويه For مي تونستم (Number / 2 +1) تكرار كنم!مجموع:

Dim Counter, Number, Mad, Sum As Integer
Number = InputBox("Pleas Enter Number")
For Counter = 1 To Number
Mad = Number Mod Counter
If Mad = 0 Then
If Counter Mod 2 0 Then
Sum=Sum + Counter
Print Sum
End If
Next Counter

توی این خط ارور داد :
If Counter Mod 2 0 Then

[azv_2008]

بازم تو حلقه ارور داد اینم عکس ارور

[AmirAmiri]

شما یک دستور End If کم نوشتید

[AmirAmiri]

بیا دوست عزیز اینم کلّه برنامه امیدوارم دیگه مشکلت حل بشه.


Private Sub Form_Load()
Dim Counter, Number, Sum As Integer
Number = InputBox("Pleas Enter Number")
For Counter = 1 To Number
If Number Mod Counter = 0 Then
If Counter Mod 2 = 1 Then
Sum = Sum + Counter
End If
End If
Next
MsgBox Sum
End
End Sub


این برنامه مجموع مقسوم علیه های فرد رو نشون میده.
اگه میخوای مجموع مقسوم علیه های زوج رو نشون بده :


If Counter Mod 2 = 0 Then


موفق باشی.

[azv_2008]

بیا دوست عزیز اینم کلّه برنامه امیدوارم دیگه مشکلت حل بشه.


Private Sub Form_Load()
Dim Counter, Number, Sum As Integer
Number = InputBox("Pleas Enter Number")
For Counter = 1 To Number
If Number Mod Counter = 0 Then
If Counter Mod 2 = 1 Then
Sum = Sum + Counter
End If
End If
Next
MsgBox Sum
End
End Sub

موفق باشی.

خیلی ممنون درست شد .