کمترین و بیشترین اعداد با مقایسه اعداد-بدون مقایسه اعداد

[mona rahimi]

برنامه اي كه يك آرايه را از ورودي گرفته و كمترين و بيشترين مقدار آن را به دوروش نشان دهد.
الف)بدون مقايسه اعداد​

ب) با مقايسه اعداد
vb6

 

[the_king]

برنامه اي كه يك آرايه را از ورودي گرفته و كمترين و بيشترين مقدار آن را به دوروش نشان دهد.
الف)بدون مقايسه اعداد​

ب) با مقايسه اعداد
vb6

اگر دو عدد a و b را داشته باشیم، حداکثر مقدار بین این دو عدد برابر است با میانگین به علاوه نصف قدر مطلق تفاضل شان :

(a + b) / 2 + |a - b| / 2

به عبارتی دیگر :

(a + b + |a - b|) / 2

Private Sub Form_Load()
    Dim i As Integer, max As Integer, min As Integer
    Dim a(1 To 10) As Integer
    For i = 1 To 10
        a(i) = Val(InputBox("Please enter a number :"))
    Next
[COLOR="Blue"]    max = a(1)
    min = a(1)
    For i = 2 To 10
        max = (max + a(i) + Abs(max - a(i))) / 2
        min = (min + a(i) - Abs(min - a(i))) / 2
    Next
    MsgBox max
    MsgBox min[/COLOR]
[COLOR="DarkRed"][B]    max = a(1)
    min = a(1)
    For i = 2 To 10
        If max < a(i) Then max = a(i)
        If min > a(i) Then min = a(i)
    Next
    MsgBox max
    MsgBox min[/B][/COLOR]
End Sub