راهنمایی در مورد یک مساله

[milad.programmer]

سلام دوستان یه سوال داشتم:

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

ممنون

[ho3ein.3ven]

سلام . منظورتون از تفاضل همون تقسیم ؟
تو تفاضل که خارج قسمت و باقیمانده نداریم.

[ho3ein.3ven]

اگه منظورتون تقسیم هست به صورت زیر باقیمانده و خارج قسمت بدست می آید :

Private Sub Command1_Click()
a = InputBox("")
b = InputBox("")
Print "kharej ghesmat : " & a \ b
Print "baghimande : " & a Mod b
End Sub

[milad.programmer]

نه منظور از تفاضل تفریق هست یعنی با استفاده از تفریق های متوالی

[soheila2012]

یعنی اعداد با هم کم بشن و تا به یه مقدار کمتر از عدد دومی رسید جواب بشه باقیمانده درسته؟

[milad.programmer]

باقی مانده که میشه a-b حالا خارج قسمت نمیدونم جطوریه

[soheila2012]

یه مثال میزنم
مثلا میخوایم عدد 12 رو به 4 تقسیم کنیم
باقیمانده باید صفر و خارج قسمت عدد 3 بشه .
پس عدد اول که از ورودی گرفتی باید از عدد دوم کم بشه و هر بار جواب تفریق باید باز از عدد دوم کم بشه جواب آخر میشه باقیمانده و این داخل یه حلقه س و این حلقه تا زمانی ادامه داره که جواب تفریق از عدد دوم کمتر باشه. و به ازای هر بار به شمارنده اضافه میشه که اونم میشه خارج قسمت.
متوجه شدین؟

[milad.programmer]

بله مرسی از راهنماییتون

[milad.programmer]

حالا همین میشه کدشو بنویسین؟

[ho3ein.3ven]

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


Private Sub Command1_Click()
n1 = InputBox("")
n2 = InputBox("")
Dim k, b
k = 0
Do While 1
If Val(n1) >= Val(n2) Then
n1 = n1 - n2
k = k + 1
Else
Exit Do
End If
Loop
b = n1
Print "kharej ghesmat : " & k
Print "baghimande : " & b
End Sub


موفق باشین

[soheila2012]

اینم برنامه کاملش

دانلود (http://www.uplooder.net/cgi-bin/dl.cgi?key=c208256f0822742882471effcc3de120)

[soheila2012]

یه برنامه دیگه هم میخواستی صفحه ش رو گم کردم اونو هم اینجا میزارم.
تعداد و خود ارقام زوج یک عدد n رقمی
دانلود (http://www.uplooder.net/cgi-bin/dl.cgi?key=b25b92203b60583d7f35ec4d56fa96f1)

[milad.programmer]

یه دنیا ممنون.

[mahdivita]

برنامه سازی 3 :لبخند: