View Full Version : سوال: جمع کردن توان هر عدد
mohammad1314
یک شنبه 28 آبان 1391, 16:21 عصر
سلام .
میخوام از کاربر یک عدد رو بگیرم بعد از عدد یک تا اون عدد ، هر عددی رو به توان خودش برسونه و با هم جمع کنه. یعنی اگه ما عدد N رو بگیریم ، به صورت زیر حساب کنه :
answer : (1^1)+(2^2)+(3^3)+....N^N
و برنامه فقط با حلقهی FOR باشه . ممنون.
من دفعه ی قبل هم این سوال رو پرسیدم اما نمی دونم چرا حذف شد . اگه جواب بدین ممنون میشم . ضروریه.
SHD.NET
یک شنبه 28 آبان 1391, 16:45 عصر
به طور زیر عمل کنید:
مواد مورد نیاز:
یک عدد TextBox
یک عدد Button
یک عدد ListBox
این کد رو توی رویداد کلیک Butoon1 بنویس :
If TextBox1.Text = Nothing Then Exit Sub
Dim add As Integer = Val(TextBox1.Text)
Dim shd As Double
ListBox1.Items.Clear()
For i = 1 To add
shd = add ^ i
ListBox1.Items.Add(TextBox1.Text + " ^ " + i.ToString + " = " + shd.ToString)
Next
همین .
برای اینکه بهتر متوجه شی سورسشم گذاشتم
\\\ موفق باشید ///
mohammad1314
یک شنبه 28 آبان 1391, 17:01 عصر
ببخشید شما منظور من رو متوجه نشدید. مثلا اگه کاربر عدد 3 رو داد به این صورت حساب کنه :
answer =1^1+2^2+3^3
SHD.NET
یک شنبه 28 آبان 1391, 17:26 عصر
ببخشید شما منظور من رو متوجه نشدید. مثلا اگه کاربر عدد 3 رو داد به این صورت حساب کنه :
answer =1^1+2^2+3^3
پس باید به این صورت عمل کنید :
مواد مورد نیاز:
یک TEXTBOX
یک BUTTON
یک LABEL
این کد رو روی رویداد کلیک Button1 بنویسید
If TextBox1.Text = Nothing Then Exit Sub
Dim add As Integer = Val(TextBox1.Text)
For i = 1 To add
Label1.Text += "(" + i.ToString + " ^ " + i.ToString + ")"
If Not i.ToString = add Then Label1.Text += " + "
Next
End Sub
\\\ موفق باشید ///
mohammad1314
یک شنبه 28 آبان 1391, 17:49 عصر
ولی این کد فقط مراحلی رو که گفتم ، مینویسه و جواب درستی نمیده . لطفا یه نگاهی بندازین .
SHD.NET
یک شنبه 28 آبان 1391, 18:09 عصر
ولی این کد فقط مراحلی رو که گفتم ، مینویسه و جواب درستی نمیده . لطفا یه نگاهی بندازین .
دوست عزیز من برنامه رو نگاه کردم . همون چیزی بود که شما میخواستید (البته اگه منظورتونو درست متوجه شده باشم)
شما میخواید اون عددها رو براتون نشون بده یا فقط حاصلشو نشون بده ؟
mohammad1314
یک شنبه 28 آبان 1391, 18:12 عصر
فقط حاصل رو در لیبل نشون بده.
SHD.NET
یک شنبه 28 آبان 1391, 18:38 عصر
فقط حاصل رو در لیبل نشون بده.
من فکر کردم شما میخواید اون رو به صورت رشته ای نشون بدید.
حالا که حاصل میخواید کار خیلی راحت تر میشه :
If TextBox1.Text = Nothing Then Exit Sub
Dim add As Integer = Val(TextBox1.Text)
Dim ntj As Double
For i = 1 To add
ntj += i ^ i
Next
Label1.Text = ntj.ToString
تست شده و جواب میده
\\\ موفق باشید ///
mohammad1314
یک شنبه 28 آبان 1391, 18:46 عصر
ممنونم . درست بود . یه سوال دیگه هم مثل قبلی دارم که میخوام اینجا مطرح کنم.
میخوام از کاربر یک عدد گرفته بشه و به صورت زیر محاسبه بشه :
SHD.NET
یک شنبه 28 آبان 1391, 19:08 عصر
من فایل ضمیمه رو دیدم . چیز زیاد پیچیده ای نیست . الان وقت نمی کنم بنویسمش .
همین روشیه که گفتم . فقط عدد باید در آخر -1 بشه و تقسیم بر فاکتوریال خودش بشه .
البته من فاکتوریال رو بلد نیستم ولی این کد فاکتوریال رو محاسبه می کنه
ببینید خودتون می تونید بنویسیدش یا نه
مواد مورد نیاز : دوعدد تکست - یک عدد دکمه
رویداد کلیک Button1
Public Sub factorial()
Dim counter As Integer
Dim result As Long
Dim x As String = (Val(TextBox2.Text))
counter = 1
result = 1
While counter <= x
result = result * counter
counter = counter + 1
TextBox2.Text = result
End While
End Sub
اینو هم به فرم لود اضافه کنید
Call factorial
\\\ موفق باشید ///
mohammad1314
دوشنبه 29 آبان 1391, 18:19 عصر
اگه در فایل ضمیمه توجه کرده باشین ، بین عبارات علامت مثبت و منفی فرق میکنه .
در ضمن عبارت public sub factorial رو دقیقا کجا باید بنویسیم ؟
SHD.NET
دوشنبه 29 آبان 1391, 18:25 عصر
اگه در فایل ضمیمه توجه کرده باشین ، بین عبارات علامت مثبت و منفی فرق میکنه .
در ضمن عبارت public sub factorial رو دقیقا کجا باید بنویسیم ؟
اگه وقت کردم برنامه رو تا شب براتون می نویسم . آخه امروز خیلی سرم شلوغه
\\\ موفق باشید ///
mohammad1314
دوشنبه 29 آبان 1391, 19:00 عصر
اگه وقت کردم برنامه رو تا شب براتون می نویسم . آخه امروز خیلی سرم شلوغه
\\\ موفق باشید ///
ممنون که وقت میزارین
mohammad1314
سه شنبه 30 آبان 1391, 19:24 عصر
سلام دوست من. من هنوز منتظر جواب شما هستم . هر چه سریعتر جواب بدین ممنون میشم . چون فوریه.
SHD.NET
سه شنبه 30 آبان 1391, 20:48 عصر
سلام دوست من. من هنوز منتظر جواب شما هستم . هر چه سریعتر جواب بدین ممنون میشم . چون فوریه.
دوست عزیز من نیم ساعا پیش امتحان کردم نتونستم بنویسم . نمیدونم چرا نشد . ولی ذهنم درگیره . کسای حرفه ای دیگه ای هم توی فروم هستن . کسی نمتونه این برنامه رو بنویسه ؟
mohanad1993
دوشنبه 06 آذر 1391, 13:43 عصر
سلام
بفرما داداش
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.