سلام
من یک کد میخوام که یک عدد هر چند رقمی رو بگیره و بعد برعکس بنویسه مثل این
123=321
ممنون میشم سورس هارو بهم بدید
Printable View
سلام
من یک کد میخوام که یک عدد هر چند رقمی رو بگیره و بعد برعکس بنویسه مثل این
123=321
ممنون میشم سورس هارو بهم بدید
دوست عزیز این یک الگوریتم مربوط به دوران دبیرستانه. بنده را ببخشید اما برای اینکه برنامه نویسی را یاد بگیرید لازمه که روی مسایل اینچنینی خودتون کمی فکر کنید و راه حلش را پیدا کنید. در غیر این صورت در برنامه نویسی پیشرفتی نخواهید کرد.
موفق باشید
دوست عزیز به قول دوست عزیزمون r. salehi این دیگه چیزی نیست که بابت تاپیک بزنید .
فقط می تونم بگم که با استفاده از حلقه for و mid می تونی این کار رو انجام بدی .
یه راهنمایی میکنم
وقتی ما یه عدد رو تقسیم بر 10 بکنیم باقیماندش میشه آخرین رقم اون عدد
123 تقسیم کنیم به 10 باقیماندش میشه 3
قدم بعدی میایی عددت رو بر 10 تقسیم میکنی و جایگزین خود اون عدد میکنی
123 تقسیم بر 10 میشه 12
حالا باقیمانده 12 بر 10 میشه 2
12 تقسیم بر 10 میشه 2
باقیمانده 2 بر 10 میشه 2
همینجوری تو حلقه میذاری
ودقت کنی مثل یه حلقه باقیمانده ها رو از اول جمع کنی میشه 321
بچه ها کلاس تمومه برید خونه هاتون
یاد دوران بچگیم افتادم :قهقهه:
من با اعدادی که رقم دومشون زیر 5 هستند مثلا 12 مشکلی ندا رم و بهم جواب رو برمیگردونه 21 ولی وقتی میزنم 19 بهم ارور میده
مثلا این کد رو برای گرفتن دو رقم عدد نوشتم که مثلا اگر 19 رو بدیم باید بنویسه 1 و9 توی لیبل ها
Dim a, z, x As integer
a = TextBox1.Text
z = a / 10
x = a - (z * 10)
Label1.Text = z
Label2.Text = x
Label3.Text = a
اما جواب نمیده وقتی 19 رو میزنم
اینجوری نباید بنویسی
من یه نمونه کد تست نشده سریع مینویسم سعی کنید دیگه خودتون بنویسید
Dim snum az string
Dim t az integer
snum = textbox1.text
Dim inum As Integer = Convert.ToInt32(snum)
while(snum!=0)
{
t=inum%10;
inum/=10;
label1.text+ = t.tostring();
}
بازم میگم من ویزوال استدیو ندارم تست کنم ولی الگوریتم همینه
شاید تو کدها یکم خطا باشه
خودت رفعش کن
ممنون ولی اینا کد های C هست
میشه vb بزارید؟؟؟
ممنون میشم
جالب بود !!!نقل قول:
نوشته شده توسط arman 2012
کی گفته اینا کدهای c هست ؟؟؟؟
لطفا یکم بیشتر مطالعه کنید.
با چه حسابی میگید c هست ؟؟
فقط while با سی شارپ نوشتمنقل قول:
نوشته شده توسط godofphp
اونم اینجوری تغییر بده
While snum!=0
End While
Dim snum az string
Dim t az integer
snum = textbox1.text
Dim inum As Integer = Convert.ToInt32(snum)
while snum!=0
t=inum%10
inum/=10
label1.text+ = t.tostring()
End While
پس اون سیمیکالومن ها چی بودن؟؟؟(;)
:دی
عزیزم گفتم که محیط ویژوال استدیو ندارم تست کنمنقل قول:
نوشته شده توسط arman 2012
خود شما هم هر روز صدتا کد vb و سی شارپ و سی و دلفی و پی اچ پی بنویسی مثل من قاط میزنی
سیمی کلن ها رو هم بردار همه جا
بازم سوالی داشتی در خدمتیم
موفق باشی
دوستان راه حلهای ریاضی ارائه کردند . اینم راه حل رشته ایش :
Function Reverse(ByVal value As String) As String
' Convert to char array.
Dim arr() As Char = value.ToCharArray()
' Use Array.Reverse function.
Array.Reverse(arr)
' Construct new string.
Return New String(arr)
End Function
منبع : لینک
با این صحبت شما کاملا موافقم .نقل قول:
برای اینکه برنامه نویسی را یاد بگیرید لازمه که روی مسایل اینچنینی خودتون کمی فکر کنید و راه حلش را پیدا کنید. در غیر این صورت در برنامه نویسی پیشرفتی نخواهید کرد.
اینم کد:
ولی این برنامه های دیگه خیلی پیش پا افتاده هستش :
Me.Text = ""
For i = Len(TextBox1.Text) To 1 Step -1
Me.Text = Me.Text & Microsoft.VisualBasic.Mid(TextBox1.Text, i, 1)
Next
ولی من یک چیزی فهمیدم که هیچ کدوم از دوستان اشاره نکردن
کافی بود به جای "/"
اینو میزاشتم: "\"
لوا
میخواستم ببینم سطحتون چندهنقل قول:
نوشته شده توسط Sub Zero
:لبخند: