سلام به همه بچه های برنامه نویس. من میخوام یه برنامه بنویسم که: سه عدد رو از ورودی بگیرد و بزرگترین عدد زوج را چاپ کند.
خواهش میکنم کمک کنید. بد جور گیرم. اگه میتونید الگوریتم اون رو هم بنویسید. راستش بیشتر الگوریتمش رو لازم دارم. مرسی. منتظرم.
سلام به همه بچه های برنامه نویس. من میخوام یه برنامه بنویسم که: سه عدد رو از ورودی بگیرد و بزرگترین عدد زوج را چاپ کند.
خواهش میکنم کمک کنید. بد جور گیرم. اگه میتونید الگوریتم اون رو هم بنویسید. راستش بیشتر الگوریتمش رو لازم دارم. مرسی. منتظرم.
اول سه عدد از ورودی می گیریم.
سپس اعداد رو بصورت نزولی مرتب می کنیم :
اگر عدد اول از عدد دوم کوچکتر بود جایشان را عوض می کنیم.
اگر عدد دوم از عدد سوم کوچکتر بود جایشان را عوض می کنیم.
مجددا اگر عدد اول از عدد دوم کوچکتر بود جایشان را عوض می کنیم.
اگر عدد اول زوج بود چاپ اش می کنیم،
وگرنه اگر عدد دوم ز وج بود چاپ اش می کنیم،
وگرنه اگر عدد سوم ز وج بود چاپ اش می کنیم.
کد:
Option Explicit
Private Sub Form_Load()
Dim a As Long, b As Long, c As Long
a = Val(InputBox("Please enter a :"))
b = Val(InputBox("Please enter b :"))
c = Val(InputBox("Please enter c :"))
If a < b Then Swap a, b
If b < c Then Swap b, c
If a < b Then Swap a, b
If a Mod 2 = 0 Then
MsgBox a
ElseIf b Mod 2 = 0 Then
MsgBox b
ElseIf c Mod 2 = 0 Then
MsgBox c
End If
End
End Sub
Private Sub Swap(a, b)
Dim c
c = a
a = b
b = c
End Sub
