جمع کردن توان هر عدد

[mohammad1314]

سلام .
میخوام از کاربر یک عدد رو بگیرم بعد از عدد یک تا اون عدد ، هر عددی رو به توان خودش برسونه و با هم جمع کنه. یعنی اگه ما عدد N رو بگیریم ، به صورت زیر حساب کنه :
answer : (1^1)+(2^2)+(3^3)+....N^N
و برنامه فقط با حلقهی FOR باشه . ممنون.
من دفعه ی قبل هم این سوال رو پرسیدم اما نمی دونم چرا حذف شد . اگه جواب بدین ممنون میشم . ضروریه.

[SHD.NET]

به طور زیر عمل کنید:

مواد مورد نیاز:
یک عدد 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]

ببخشید شما منظور من رو متوجه نشدید. مثلا اگه کاربر عدد 3 رو داد به این صورت حساب کنه :
answer =1^1+2^2+3^3

[SHD.NET]

ببخشید شما منظور من رو متوجه نشدید. مثلا اگه کاربر عدد 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]

ولی این کد فقط مراحلی رو که گفتم ، مینویسه و جواب درستی نمیده . لطفا یه نگاهی بندازین .

[SHD.NET]

ولی این کد فقط مراحلی رو که گفتم ، مینویسه و جواب درستی نمیده . لطفا یه نگاهی بندازین .

دوست عزیز من برنامه رو نگاه کردم . همون چیزی بود که شما میخواستید (البته اگه منظورتونو درست متوجه شده باشم)

شما میخواید اون عددها رو براتون نشون بده یا فقط حاصلشو نشون بده ؟

[mohammad1314]

فقط حاصل رو در لیبل نشون بده.

[SHD.NET]

فقط حاصل رو در لیبل نشون بده.

من فکر کردم شما میخواید اون رو به صورت رشته ای نشون بدید.

حالا که حاصل میخواید کار خیلی راحت تر میشه :

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]

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

[SHD.NET]

من فایل ضمیمه رو دیدم . چیز زیاد پیچیده ای نیست . الان وقت نمی کنم بنویسمش .

همین روشیه که گفتم . فقط عدد باید در آخر -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]

اگه در فایل ضمیمه توجه کرده باشین ، بین عبارات علامت مثبت و منفی فرق میکنه .
در ضمن عبارت public sub factorial رو دقیقا کجا باید بنویسیم ؟

[SHD.NET]

اگه در فایل ضمیمه توجه کرده باشین ، بین عبارات علامت مثبت و منفی فرق میکنه .
در ضمن عبارت public sub factorial رو دقیقا کجا باید بنویسیم ؟

اگه وقت کردم برنامه رو تا شب براتون می نویسم . آخه امروز خیلی سرم شلوغه

\\\ موفق باشید ///

[mohammad1314]

اگه وقت کردم برنامه رو تا شب براتون می نویسم . آخه امروز خیلی سرم شلوغه

\\\ موفق باشید ///

ممنون که وقت میزارین

[mohammad1314]

سلام دوست من. من هنوز منتظر جواب شما هستم . هر چه سریعتر جواب بدین ممنون میشم . چون فوریه.

[SHD.NET]

سلام دوست من. من هنوز منتظر جواب شما هستم . هر چه سریعتر جواب بدین ممنون میشم . چون فوریه.

دوست عزیز من نیم ساعا پیش امتحان کردم نتونستم بنویسم . نمیدونم چرا نشد . ولی ذهنم درگیره . کسای حرفه ای دیگه ای هم توی فروم هستن . کسی نمتونه این برنامه رو بنویسه ؟

[mohanad1993]

سلام
بفرما داداش