۰۱-اردیبهشت-۱۳۹۱, ۱۱:۳۰:۱۷
۰۱-اردیبهشت-۱۳۹۱, ۱۳:۳۰:۱۹
(۰۱-اردیبهشت-۱۳۹۱, ۱۱:۳۰:۱۷)aleas نوشته است: [ -> ]سلام خسته نباشید کسی سورس این برنامه رو داره ممنون میشمدوست عزیز درصورتی که عد پی منفی بود به مثبت تبدیل و سپس محاسبه میشود
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