تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] ممكن مساعدة بحل هذه الأسئلة
#1
السلام عليكم...
ممكن مساعدة بحل هذه الأسئلة لو سمحتم بأسرع وقت, وأكون شاكر ليكم إخواني:

السؤال الأول  : اكتب برنامج بلغة فيجوال بيسك مستخدما جملة select لقراءة عدد ما بين 20 – 90 وطباعة  قيمته  بالأرقام.


السؤال الثاتي : اكتب برنامج بلغة فيجوال بيسك  لإنشاء قائمتين منسدلتين 2 combo box تحتوي كل منها على اعداد  من 1 الى 10 وإيجاد حاصل ضرب العدد الذي تم اختياره من combo الأولى  مضروبا في العدد الذي تم اختياره من الثانية وتكون النتيجة  في label.

السؤال الثالث  :  اكتب برنامج بلغة فيجوال بيسك  لإيجاد جميع الاعداد الواقعة بين 1 الى 1000 والتي تسمى اعداد ارمسترونج حيث ان عدد  ارمسترونج هو ذلك العدد الذي  مجموع تكعيب منازله يساوي ذلك العدد. 
مثال العدد 153   هو ارمسترونج حيث 3*3*3+5*5*5+1*1*1 = 153




السؤال الرابع : اكتب برنامج بلغة فيجوال بيسك  (مستخدما جمل التكرار وجمل الشرط) لطباعة الشكل التالي                         
*
*      *
*               *
*                      *
*                             *


السؤال الخامس : اكتب برنامج بلغة فيجوال بيسك  لتعريف مصفوفة عددية أحادية مكونة من 10 اعداد  وطباعتها في datagrid  وطباعة  ثاني اكبر عدد فيها في LABEL وطباعة الاعداد الزائدة في listbox حيث ان العدد الزائد هو ذلك العدد الذي مجموع عوامله اكبر من ضعف العدد مثال 
العدد 12 عوامله هي 1,2,3,4,6,12  مجموعها 28 اكبر من ضعف العدد فهو عدد زائد 





السؤال السادس  : اكتب برنامج باستخدام لغة فيجوال بيسك مستخدما الاقترانات وجمل التكرار ، قم بقرائة رقم من المستخدم N  وطباعة ناتج العملية التاليه في label:

هل من حل للأسئلة؟

طب يا جماعة حد يعرف حل السؤال الخامس؟؟
المبرمج لا يفكر في المشكلة بل في الحل!!
الرد
تم الشكر بواسطة: سعود
#2
و عليكم السلام و رحمة الله و بركاته
اسئلة جميلة و ممتعة اخي اسامة,
لان الوقت ضيق و اعذرني على ذلك
ساجيب على السؤال الخامس الذي طرحته بما امكن.
نقسم السؤال الى عدة اسئلة و نحل كل منها على حدا.
1-اكتب برنامج بلغة فيجوال بيسك  لتعريف مصفوفة عددية أحادية مكونة من 10 اعداد
PHP كود :
    Dim Arr1 As Integer() = New Integer() {10111236211525323548
2-اطبعها في datagrid 
يتوجب علينا اضافة عمود في القريد و من ثم اضافة عناصر المصفوفة اليها
PHP كود :
   Private Sub Form2_Load(sender As ObjectAs EventArgsHandles MyBase.Load

        Dim newCol 
As DataGridViewColumn = New DataGridViewColumn()
 
       Dim cell As DataGridViewCell = New DataGridViewTextBoxCell
        newCol
.CellTemplate cell

        newCol
.HeaderText "ID"
 
       newCol.Name "ID"
 
       newCol.Visible True
        newCol
.Width 60

        DataGridView1
.Columns.Add(newCol)



 
       For Each itm In Arr1
            DataGridView1
.Rows.Add(itm.ToString)
 
       Next

    End Sub 
3-طباعة  ثاني اكبر عدد فيها في LABEL
نرتب المصفوفة من الاصغر الى الاعلى و نحصل على القيمة في الموقع المحدد.
PHP كود :
       Array.Sort(Arr1)
 
       Label1.Text Arr1.GetValue(Arr1.Length 2
4-طباعة الاعداد الزائدة في listbox حيث ان العدد الزائد هو ذلك العدد الذي مجموع عوامله اكبر من ضعف العدد مثال 

العدد 12 عوامله هي 1,2,3,4,6,12  مجموعها 28 اكبر من ضعف العدد فهو عدد زائد 


على ذلك نستنتج ان المطلوب يمكن تقسيمه كما يلي:
نفحص كل عناصر المصفوفة رقماً رقم عن طريق دالة تقوم بتحليل الرقم الى عوامله الاولية حيث
ان ناتج تقسيم الرقم على العدد المعطى لا ينتج عنه باقي قسمة.
ثم نعود و نجمع العوامل الاولية الناتجة و نقارنها بضعف العدد , فاذا كان مجموعها اكبر من ضعف العدد نضيفها الى مصفوفة الارقام الزائدة.


اولاً المصفوفة التي سنملئها بالارقام الزائدة
PHP كود :
   Dim ListOfNumbers As New List(Of Integer
ثانيا دالة نحصل بها على ضعف الرقم
PHP كود :
   Private Function GetMultiPlayNumber(As Integer) As Integer
        Return i 
2
    End 
Function 
ثالثا دالة تقوم بما تم شرحه في الاعلى 
تمر على عناصر المصفوفة و تحلل العدد الى عوامله الاولية و من ثم المقارنة و اذا تحقق الشرط نضيفه الى مصفوفة الاعداد الزائدة

PHP كود :
   Private Sub ListfDivision(As Integer)
 
       Dim listP As New List(Of Integer)
 
       For m As Integer 1 To p
            Dim A 
As Integer p Mod m
            If A 
0 Then
                listP
.Add(m)
 
           End If
 
       Next


        Dim k 
As Integer 0

        If listP
.Count 0 Then
            For Each F 
As Integer In listP
                k 
+= F
            Next

            If k 
GetMultiPlayNumber(pThen
                ListOfNumbers
.Add(p)
 
           End If

 
       End If

 
   End Sub 
رابعا الاستدعاء

PHP كود :
   Private Sub Button3_Click(sender As ObjectAs EventArgsHandles Button3.Click
        ListOfNumbers
.Clear()


 
       For Each itm As Integer In Arr1
            ListfDivision
(itm)
 
       Next

        If ListOfNumbers
.Count 0 Then
            ListBox1
.DataSource ListOfNumbers.ToList
        End 
If

 
   End Sub 

بالتوفيق اخي
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد
تم الشكر بواسطة: اسامه الهرماوي , سعود , Anas Mahmoud , Anas Mahmoud
#3
السؤال الاول : 

كود :
       Dim number As Integer = TextBox1.Text

       If Not (number >= 20 AndAlso number <= 90) Then Return

       Dim tens As Integer = number \ 10
       Dim units As Integer = number - tens * 10
       Dim tensStr, unitsStr As String

       Select Case units
           Case 0
               unitsStr = ""
           Case 1
               unitsStr = "واحد"
           Case 2
               unitsStr = "اثنين"
           Case 3
               unitsStr = "ثلاثة"
           Case 4
               unitsStr = "أربعة"
           Case 5
               unitsStr = "خمسة"
           Case 6
               unitsStr = "ستة"
           Case 7
               unitsStr = "سبعة"
           Case 8
               unitsStr = "ثمانية"
           Case 9
               unitsStr = "تسعة"
       End Select

       Select Case tens
           Case 2
               tensStr = "عشرين"
           Case 3
               tensStr = "ثلاثين"
           Case 4
               tensStr = "أربعين"
           Case 5
               tensStr = "خمسين"
           Case 6
               tensStr = "ستين"
           Case 7
               tensStr = "سبعين"
           Case 8
               tensStr = "ثمانين"
           Case 9
               tensStr = "تسعين"
       End Select

       If String.IsNullOrWhiteSpace(unitsStr) Then
           Label1.Text = tensStr
       Else
           Label1.Text = unitsStr & " و " & tensStr
       End If

السؤال الثالث :

كود :
       Dim units, tens, hundreds, thousands As Integer
       Dim armstrongNumbers As New List(Of Integer)
       For i As Integer = 1 To 1000

           units = i Mod 10
           tens = (i Mod 100) \ 10
           hundreds = (i Mod 1000) \ 100
           thousands = i \ 1000

           If i = units ^ 3 + tens ^ 3 + hundreds ^ 3 + thousands ^ 3 Then
               armstrongNumbers.Add(i)
           End If

       Next

       ListBox1.DataSource = armstrongNumbers

السؤال الرابع

كود :
       For i As Integer = 0 To 4
           If i > 0 Then
               TextBox2.AppendText("*")
               For t As Integer = 1 To i
                   TextBox2.AppendText(vbTab)
               Next
           End If
           TextBox2.AppendText("*" & vbCrLf)
       Next


الملفات المرفقة
.zip   Questions.zip (الحجم : 55.73 ك ب / التحميلات : 3)
الرد
تم الشكر بواسطة: سعود , اسامه الهرماوي , ابو ليلى



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم