Palindrome

السلام عليكم

أخي لقد حللت المسألة و أرجو أن يكون الحل صحيحا و هو ثلاث أسطر بالضبط

الدالة :

	Public Function Transform(ByVal N As Integer) As Integer

		Do While Not Mid(N.ToString, 1, (N.ToString.Length / 2)) = StrReverse(Mid(N.ToString, N.ToString.Length / 2 + 1, N.ToString.Length))

			N = Val(N.ToString) + Val(StrReverse(N.ToString))

		Loop

		Return (N)

	End Function

و لتجريب الكود :

 TextBox1.Text = (Transform(Val(TextBox1.Text)))

فى سطر واحد

Public Function Transform(ByVal N As Integer) As Integer
		If N <> CInt(StrReverse(N.ToString)) Then Return (Transform(N + CInt(StrReverse(N.ToString))))
		Return N
	End Function

اقتباس

فى سطر واحد

ما شاء الله

أنا قسّمت الرقم إلى قسمين و قارنتهما و لم يخطر ببالي أنه يكفي تساوي الرقم مع عكسه

الله يوفقك يا أخ SOLO.NET و يزيدك من علمه

اخىgolden man اعذرنى فلقد قمت بتحرير مشاركتك،،فلم يعجبنى الوصف الذى وضعته،،حلك ممتاز،،والامر الذى ساعدنى على الاختصار بسطر واحد هو تقنية الاستدعاء الذاتى خلاف ذلك لا مجال

والله ولى التوفيق

جزاك الله خيرا

ممتاز الحلين صحيحن رغم ان الاخ Golden سلك طريق طويل المهم حلي هو كالتالي :

Public Function Transform2(ByVal N As Integer) As Integer
		While N <> StrReverse(N)
			N = N + StrReverse(N)
		End While
		Return N
	End Function

و على فكرة أخ SOLO يمكن اختصار هذا الكود الى سطر واحد كالتالي :

Public Function Transform2(ByVal N As Integer) As Integer
		While N <> StrReverse(N) : N = N + StrReverse(N) : End While : Return N
	End Function

:P

على فكرة أخ SOLO يمكن اختصار هذا الكود الى سطر واحد كالتالي :

كود

Public Function Transform2(ByVal N As Integer) As Integer
		While N <> StrReverse(N) : N = N + StrReverse(N) : End While : Return N
	End Function

;)

هذه مغالطة يا ايوب

:P

أعرف اخي فواز كنت امزح فقط :D