محاسبه قدرمطلق [بایگانی]

in man

چهارشنبه 12 اسفند 1388, 19:21 عصر

دوستان سلام
من یه برنامه برای نشون دادن قدر مطلق نوشتم ولی نمیدونم اشکالش کجاست جواب نمیده؟
ببینید:
Private Sub Command1_Click()
Dim x As Long
X1 = Text1.Text
If X1 < 0 Then
b = X1 ^ 2
c = b \ X1
Print c
End If
End Sub

xxxxx_xxxxx

چهارشنبه 12 اسفند 1388, 19:34 عصر

سلام،
اگر میخواهید با به توان رساندن عدد اون رو مثبت کنید و بعد عمل عکس توان رو انجام بدید تا به نحوی قدرمطلق رو حساب کرده باشید، باید بجای عمل تقسیم، از عمل جذر استفاده کنید. (جذر عکس عمل توان است)
اما چرا اصلاً این کارو می کنید؟؟؟ برای محسابه قدر مطلق میتونید از تابع Abs استفاده کنید:

Print Abs(Text1.Text)
اگر هم میخواید خودتون قدرمطلق رو محاسبه کنید راه حل راحتری هست:

X1 = Text1.Text
If X1 < 0 Then X1 = -X1
Print X1
تذکر:
برای تاپیک هایی که ایجاد می کنید عنوان مناسبی انتخاب کنید. عنوان تاپیک اصلاح شد/
موفق باشید

bijanbina

پنج شنبه 17 تیر 1389, 09:55 صبح

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

Sir.Mohammad

پنج شنبه 17 تیر 1389, 17:07 عصر

برای محاسبه ی قدر مطلق می تونید از تابعی که خود وی بی داره استفاده کنید این همه کد لازم نیست !
Abs(Vorodi)