ALI TT
دوشنبه 30 دی 1387, 03:13 صبح
سلام دوستان
دیشب من و رفیقم کل انداختیم ( کل عمرا حرفه ای !! ) که هر کی بتونه با کمترین کد و با استفاده از حلقه For عدد بزرگتر را از بین اعضای یه آرایه تشخیص دهد . ( بدون استفاده از توابع دیگر ) .
اون این کد را داد . که ایرادش اینه که با اعداد زیر صفر ( منفی ) کار نمی کنه .
Dim a As Integer() = {100, 5, 101, 20, 8, 214, 75, 5, 65}
Dim uses As Integer = 0
For H As Integer = 0 To a.Length - 1
If uses < a(H) Then uses = a(H)
Next
MessageBox.Show(uses)
منم اینو دادم که از هر لحاظ کار می کنه :
Dim Array_int As Integer() = {-100, -5, -654, -20}
Dim use_Long As Long = Long.MinValue
For Each Max As Long In Array_int
If use_Long < Max Then use_Long = Max
Next
MessageBox.Show(use_Long)
حالا سوال من : کسی بلد از این کمتر کد بده به من که برم حالشو بگیرم ، دمتون گرم :قلب:
دیشب من و رفیقم کل انداختیم ( کل عمرا حرفه ای !! ) که هر کی بتونه با کمترین کد و با استفاده از حلقه For عدد بزرگتر را از بین اعضای یه آرایه تشخیص دهد . ( بدون استفاده از توابع دیگر ) .
اون این کد را داد . که ایرادش اینه که با اعداد زیر صفر ( منفی ) کار نمی کنه .
Dim a As Integer() = {100, 5, 101, 20, 8, 214, 75, 5, 65}
Dim uses As Integer = 0
For H As Integer = 0 To a.Length - 1
If uses < a(H) Then uses = a(H)
Next
MessageBox.Show(uses)
منم اینو دادم که از هر لحاظ کار می کنه :
Dim Array_int As Integer() = {-100, -5, -654, -20}
Dim use_Long As Long = Long.MinValue
For Each Max As Long In Array_int
If use_Long < Max Then use_Long = Max
Next
MessageBox.Show(use_Long)
حالا سوال من : کسی بلد از این کمتر کد بده به من که برم حالشو بگیرم ، دمتون گرم :قلب: