View Full Version : گرفتن رقم عدد و برعکس کردن
arman 2012
جمعه 04 مرداد 1392, 20:43 عصر
سلام
من یک کد میخوام که یک عدد هر چند رقمی رو بگیره و بعد برعکس بنویسه مثل این
123=321
ممنون میشم سورس هارو بهم بدید
r. salehi
جمعه 04 مرداد 1392, 21:22 عصر
دوست عزیز این یک الگوریتم مربوط به دوران دبیرستانه. بنده را ببخشید اما برای اینکه برنامه نویسی را یاد بگیرید لازمه که روی مسایل اینچنینی خودتون کمی فکر کنید و راه حلش را پیدا کنید. در غیر این صورت در برنامه نویسی پیشرفتی نخواهید کرد.
موفق باشید
Fery666
جمعه 04 مرداد 1392, 21:57 عصر
دوست عزیز به قول دوست عزیزمون r. salehi (http://barnamenevis.org/member.php?191783-r.-salehi) این دیگه چیزی نیست که بابت تاپیک بزنید .
فقط می تونم بگم که با استفاده از حلقه for و mid می تونی این کار رو انجام بدی .
godofphp
جمعه 04 مرداد 1392, 21:58 عصر
یه راهنمایی میکنم
وقتی ما یه عدد رو تقسیم بر 10 بکنیم باقیماندش میشه آخرین رقم اون عدد
123 تقسیم کنیم به 10 باقیماندش میشه 3
قدم بعدی میایی عددت رو بر 10 تقسیم میکنی و جایگزین خود اون عدد میکنی
123 تقسیم بر 10 میشه 12
حالا باقیمانده 12 بر 10 میشه 2
12 تقسیم بر 10 میشه 2
باقیمانده 2 بر 10 میشه 2
همینجوری تو حلقه میذاری
ودقت کنی مثل یه حلقه باقیمانده ها رو از اول جمع کنی میشه 321
بچه ها کلاس تمومه برید خونه هاتون
یاد دوران بچگیم افتادم :قهقهه:
arman 2012
جمعه 04 مرداد 1392, 22:08 عصر
من با اعدادی که رقم دومشون زیر 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 رو میزنم
godofphp
جمعه 04 مرداد 1392, 22:23 عصر
اینجوری نباید بنویسی
من یه نمونه کد تست نشده سریع مینویسم سعی کنید دیگه خودتون بنویسید
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();
}
بازم میگم من ویزوال استدیو ندارم تست کنم ولی الگوریتم همینه
شاید تو کدها یکم خطا باشه
خودت رفعش کن
arman 2012
جمعه 04 مرداد 1392, 22:28 عصر
ممنون ولی اینا کد های C هست
میشه vb بزارید؟؟؟
ممنون میشم
godofphp
جمعه 04 مرداد 1392, 22:35 عصر
ممنون ولی اینا کد های C هست
میشه vb بزارید؟؟؟
ممنون میشم
جالب بود !!!
کی گفته اینا کدهای c هست ؟؟؟؟
لطفا یکم بیشتر مطالعه کنید.
با چه حسابی میگید c هست ؟؟
godofphp
جمعه 04 مرداد 1392, 22:37 عصر
جالب بود !!!
کی گفته اینا کدهای c هست ؟؟؟؟
لطفا یکم بیشتر مطالعه کنید.
با چه حسابی میگید c هست ؟؟
فقط while با سی شارپ نوشتم
اونم اینجوری تغییر بده
While snum!=0
End While
godofphp
جمعه 04 مرداد 1392, 22:38 عصر
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
جمعه 04 مرداد 1392, 22:39 عصر
پس اون سیمیکالومن ها چی بودن؟؟؟(;)
:دی
godofphp
جمعه 04 مرداد 1392, 22:45 عصر
پس اون سیمیکالومن ها چی بودن؟؟؟(;)
:دی
عزیزم گفتم که محیط ویژوال استدیو ندارم تست کنم
خود شما هم هر روز صدتا کد vb و سی شارپ و سی و دلفی و پی اچ پی بنویسی مثل من قاط میزنی
سیمی کلن ها رو هم بردار همه جا
بازم سوالی داشتی در خدمتیم
موفق باشی
Sub Zero
جمعه 04 مرداد 1392, 22:50 عصر
دوستان راه حلهای ریاضی ارائه کردند . اینم راه حل رشته ایش :
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
منبع : لینک (http://www.dotnetperls.com/reverse-string-vbnet)
برای اینکه برنامه نویسی را یاد بگیرید لازمه که روی مسایل اینچنینی خودتون کمی فکر کنید و راه حلش را پیدا کنید. در غیر این صورت در برنامه نویسی پیشرفتی نخواهید کرد.
با این صحبت شما کاملا موافقم .
Fery666
جمعه 04 مرداد 1392, 23:12 عصر
اینم کد:
ولی این برنامه های دیگه خیلی پیش پا افتاده هستش :
Me.Text = ""
For i = Len(TextBox1.Text) To 1 Step -1
Me.Text = Me.Text & Microsoft.VisualBasic.Mid(TextBox1.Text, i, 1)
Next
arman 2012
جمعه 04 مرداد 1392, 23:56 عصر
ولی من یک چیزی فهمیدم که هیچ کدوم از دوستان اشاره نکردن
کافی بود به جای "/"
اینو میزاشتم: "\"
لوا
arman 2012
شنبه 05 مرداد 1392, 00:34 صبح
دوستان راه حلهای ریاضی ارائه کردند . اینم راه حل رشته ایش :
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
منبع : لینک (http://www.dotnetperls.com/reverse-string-vbnet)
با این صحبت شما کاملا موافقم .
میخواستم ببینم سطحتون چنده
:لبخند:
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.