برنامه m^p

[aleas]

سلام خسته نباشید کسی سورس این برنامه رو داره ممنون میشم
2 مقدار m و n بگیره و سپس m^p برسانید p می تواند یا مثبت یا منفی باشد

[Ghoghnus]

سلام خسته نباشید کسی سورس این برنامه رو داره ممنون میشم
2 مقدار m و n بگیره و سپس m^p برسانید p می تواند یا مثبت یا منفی باشد

دوست عزیز درصورتی که عد پی منفی بود به مثبت تبدیل و سپس محاسبه میشود

کد:

Dim s, m, p, i As Integer
s = 1
If p < 0 Then
p = p * -1
For i = 0 To p
s = s * m
Next i
Print s