كيف أصمم برنامج يقرأ 10 أرقام ثم يطبع أكبر رقمين؟

انا لا ابرمج باستخدام .net لكن كفكرة عامة مثلا قم بانشاء جدول فيه الارقام التي تريد ادخالها ومن ثم قم بترتيب الارقام بشكل تنازلي وقم بطباعة اول رقمين في القائمة

Xacker كتب:

انا لا ابرمج باستخدام .net لكن كفكرة عامة مثلا قم بانشاء جدول فيه الارقام التي تريد ادخالها ومن ثم قم بترتيب الارقام بشكل تنازلي وقم بطباعة اول رقمين في القائمة

←

شكرا يا أخيXacker على سرعة إستجابتك لكني أريده بلغة VB.Net

هناك طريقتين ،، فقط ضع الكود التالي في حدث botton1_click

هنا نستخدم الكلاس Math.Max :

        Dim a() As Integer = {5, 6, 9, 4, 1, 2, 7, 8, 3, 10}
        Dim max1, max2, i As Integer
        i = 0
        max1 = a(0)
        Do While i < 10
            max2 = max1
            max1 = Math.Max(max1, a(i))
            i += 1
        Loop
        MsgBox("max1 = " & CInt(max1) & "   max2 = " & CInt(max2))

هنا الطريقة التقليدية :

        Dim a() As Integer = {5, 6, 9, 4, 1, 2, 7, 8, 3, 10}
        Dim max1, max2, i As Integer

        i = 0
        max1 = a(0)
        Do While i < 9
            If a(i + 1) > max1 Then
                max2 = max1
                max1 = a(i + 1)
            End If
            i += 1
        Loop
        MsgBox("max1 = " & CInt(max1) & "   max2 = " & CInt(max2))

وفقك الله

seahmad كتب:

هناك طريقتين ،، فقط ضع الكود التالي في حدث botton1_click

هنا نستخدم الكلاس Math.Max :

        Dim a() As Integer = {5, 6, 9, 4, 1, 2, 7, 8, 3, 10}
        Dim max1, max2, i As Integer
        i = 0
        max1 = a(0)
        Do While i < 10
            max2 = max1
            max1 = Math.Max(max1, a(i))
            i += 1
        Loop
        MsgBox("max1 = " & CInt(max1) & "   max2 = " & CInt(max2))

هنا الطريقة التقليدية :

        Dim a() As Integer = {5, 6, 9, 4, 1, 2, 7, 8, 3, 10}
        Dim max1, max2, i As Integer

        i = 0
        max1 = a(0)
        Do While i < 9
            If a(i + 1) > max1 Then
                max2 = max1
                max1 = a(i + 1)
            End If
            i += 1
        Loop
        MsgBox("max1 = " & CInt(max1) & "   max2 = " & CInt(max2))

وفقك الله

←

ألف شكر يا أخي seahmad

ضع الارقام فى مصفوفة وبعدين اعملها ترتيب واطبع اول رقمين

 Dim num() As Integer = {5, 6, 9, 4, 1, 2, 7, 8, 3, 10}
system.array.sort(num)
console.writeline("number1 :" & num(1) & number2:" & num(2))

شكرأ يا بشمهندس solo

أخي solo قمت بتجربة البرنامج لكنه لا يعمل

اقتباس

أخي solo قمت بتجربة البرنامج لكنه لا يعمل

يا اخى انا لم اكتب برنامج بل فكرة الحل وربما تحتوى على بعض الاخطاء لانى اكتب الكود من راسى

انت خذ الفكرة وطبقها بنفسك فلا تنتظر ان يقدم اليك برنامج جاهز

على كل حال قد يقوم احد الاعضاء بصياغة الحل من جديد فلا يوجد عندى vb.net حاليا

اخى الكريم الخطاء فى الكود السابق هو ان الطريقة sort ترتب المصفوفة تصاعديا ولدلك بعد الترتيب سنقوم بعكسها وكدلك المصفوفات فى الدوت نت العنصر الاول فيها يكون ل index صفر

Dim num() As Integer = {5, 6, 9, 4, 1, 2, 7, 8, 3, 10}
system.array.sort(num)
System.Array.Reverse(num)
console.writeline("number1 :" & num(0) & "number2:" & num(1))