نوشتن 4 عملگر ضرب، تقسیم، .....

[vahid3vahid]

یک سوال دارم! میخوام ببینم چجوری میشه 4 عملگر ضرب، باقی مانده، توان و تقسیم نوشت یعنی یک تابع که 2 آرماگون عدد اول و عدد دوم را بگیره و بدون استفاده از عملگر ضرب آن ها را ضرب کنه.

[modirmasool]

نمیدونم منظورتون رو درست فهمیدم یا نه ولی :
اگه منظورتون اینه که از عملگر * استفاده نشه یه راهش میتونه این باشه که با استفاده از یک حلقه و عملگر جمع این کار رو انجام داد. مثلا اگه ورودی 2و3 بود اون وقت در یک حلقه سه بار عدد 2 با خودش جمع بشه. بقیشون هم مثل توان و تقسیم و... به همین صورت باید نوشته بشن.

[vahid3vahid]

private function Zarb(byval num1 as integer, byval num2 as integer) as long
for i = 1 to num1
zarb =zarb + num2
next


خوب این درست شد حالا ضرب و تقسیم و توان و باقی مانده چطور؟؟

[parselearn]

اينم توان




Private Function tavan(n1 As Integer, n2 As Integer)
tavan = n1
For i = 1 To n2 - 1
Zarb = 0
For j = 1 To tavan
Zarb = Zarb + n2
Next j
tavan = Zarb
Next i
End Function

Private Sub Command1_Click()
MsgBox tavan(3, 3)
MsgBox 3 ^ 3
End Sub

[sajjad_india]

بیا عزیزم :


Sub ChaharAmal(x As Long, y As Long, Hasel As Long, Amal As Byte)
If Amal = 0 Then Hasel = Val(x + y)
If Amal = 1 Then Hasel = Val(x * y)
If Amal = 2 Then Hasel = Val(x - y)
If Amal = 3 Then Hasel = Val(x / y)
If Amal = 4 Then Hasel = Val(x ^ y)
End Sub

[modirmasool]

بیا عزیزم :


Sub ChaharAmal(x As Long, y As Long, Hasel As Long, Amal As Byte)
If Amal = 0 Then Hasel = Val(x + y)
If Amal = 1 Then Hasel = Val(x * y)
If Amal = 2 Then Hasel = Val(x - y)
If Amal = 3 Then Hasel = Val(x / y)
If Amal = 4 Then Hasel = Val(x ^ y)
End Sub


شما مطمتنید که سوال رو خوندین؟!!!:چشمک:

اینم برای تقسیم:


Dim a, b, num, i
a = 18
b = 3
While num < a
num = num + b
i = i + 1
Wend
MsgBox i

[vahid3vahid]

مرسی باقی مانده مونده

[Hossein Bazyan]

مرسی باقی مانده مونده

سلام
جناب modirmasool جون هر کسی دوست داری بذار این یکی رو خودش بنویسه حداقل 20 درصد از نمره ای که میگیره رو حلال کنه

[vahid3vahid]

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

[xxxxx_xxxxx]

سلام،
چه فرقی برای شما میکنه که کاربران از چه راهی به نتیجه میرسند؟
اگر هدفتون مقایسه روش کار خودتون با روش کار دیگران هست خوب برنامه تون رو بزارید و نظر سایرین رو جویا بشید.
قبلاً توی پیغام خصوصی گفتم، مطرح کردن سؤالات درسی و درخواست حل اونها ممنوع هست! حالا اگر سؤال درسی مطرح می کنید، خودتون کاری که انجام دادید رو (هرچند ناقص) بنویسید تا با کمک کاربران تکمیل بشه نه اینکه فقط بگید برنامه ضرب، باقیمانده، تقسیم رو میخوام و منتظر باشید تا یک نفر دستوراتش رو براتون بنویسه.

تاپیک قفل شد/