باسلام خدمت دوستان
من میخام اعداد رو روند کنم مثلا عدد 1549 بشه 1550 یا عدد 10000 تومان رو که تقسیم به 3 میکنیم جواب میشود 3333/33 که میخام بشود 3330 تومان
برای کم کردن اعداد اعشاری مشکلی ندارم میخام رند بشه عدد
متشکر
باسلام خدمت دوستان
من میخام اعداد رو روند کنم مثلا عدد 1549 بشه 1550 یا عدد 10000 تومان رو که تقسیم به 3 میکنیم جواب میشود 3333/33 که میخام بشود 3330 تومان
برای کم کردن اعداد اعشاری مشکلی ندارم میخام رند بشه عدد
متشکر
با سلام- برای تقسیم صحیح از کاراکتر \ استفاده کنید.
الگوریتمش را میگم نوشتنش با خود شما:
عدد را a بنامید
عدد a را تقسیم بر ۱۰ کرده حاصل را b بنامید
باقیمانده تقسیم عدد a بر ۱۰ را بدست آورده و c بنامید
اگر c کوچکتر از ۵ بود آنگاه b را در ۱۰ضرب کرده و d بنامید در غیراینصورت b را با عدد یک جمع کرده و حاصلجمع را در ۱۰ ضرب کنید و آنرا d بنامید.
d نتیجه دلخواه شماست.
باسلام وتشکر از شما
متاسفانه عدد رو اونطوری که من میخام رند نمیکنه
باسلام
طبق الگوریتم شما رفتم ولی جواب همش 0 هست یا من اشتباه نوشتم
البته قسمت باقیمانده تقسیم عدد a یر 10 رو نمی دونستم چطور بدست بیارم که یک چیزی خودم نوشتم فکر کنم اشتباه باشه
اگر لطف بکنید نمونش رو برام بزارید
آخرین ویرایش به وسیله 336699 : پنج شنبه 17 مهر 1399 در 11:24 صبح
Dim Round As Integer = Math.Round(1549 / 10) * 10
Dim ceiling As Integer = Math.Ceiling((10000 / 3) / 10) * 10
Dim floor As Integer = Math.Floor((10000 / 3) / 10) * 10
MsgBox("Round 1549= " & Round & vbNewLine & ceiling & vbNewLine & floor)
Console.WriteLine(Round)
Console.WriteLine(ceiling)
Console.WriteLine(floor)
مهم همون سه خط اوله