تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ممكن الاجابه عن الاسئله باسرع وقت ممكن
#1
Thumbs Up 
السؤال الاول : اكتب برنامج بلغة فيجوال بيسك  لإيجاد جميع الاعداد الواقعة بين 1 الى 500 والتي تسمى اعداد ارمسترونج حيث ان عدد  ارمسترونج هو ذلك العدد الذي  مجموع تكعيب منازله يساوي ذلك العدد.
مثال العدد 153   هو ارمسترونج حيث 3*3*3+5*5*5+1*1*1 = 153
 
                                         
السؤال الثاني: اكتب برنامج بلغة فيجوال بيسك لتعريف مصفوفة ثنائية ذات الابعاد 3*3  وإيجاد حاصل مجموع كل صف من صفوفها باستخدام الاقترانات وطباعتها في datagrid.
 
                   
السؤال الثالث: اكتب برنامج بلغة فيجوال بيسك  لقراءة علامات مجموعة من الطلاب وتخزينها في مصفوفة أحادية وإيجاد مجموع العلامات.                                                                                                                                                                                                                                 
 
                                     
السؤال الرابع : : اكتب برنامج بلغة فيجوال بيسك   (مستخدما جمل التكرار وجمل الشرط) لطباعة الشكل التالي                         
*                       *
*                       *
*                      *
*                       *
*     *    *    *   *                           
 
السؤال الخامس : باستخدام اقتران الاستدعاء الذاتي  وجمل التكرار ، قم بقرائة رقم   N  وطباعة ناتج العملية التاليه:                    
[img=302x73]file:///C:/Users/lenovo/AppData/Local/Temp/msohtmlclip1/01/clip_image002.jpg[/img]
 
الرد }}}
تم الشكر بواسطة: خالد20 , salim0ham , egy_program
#2
في المرفقات برنامج ايجاد اعداد ارمسترونغ من 1 الى 500 (وذلك حسب الشكل الذي قمت انت بتحديده لاعداد ارمسترونج)


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 75.34 ك ب / التحميلات : 10)
سورس كود برنامج محاسبة ومبيعات احترافي  -  سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام   Abo_anas_kahwaji@
واتساب 00963951283515
الرد }}}
#3
كود :
    TextBox1.Text.Clone()
       Dim sum As Double = 0
       Dim H As Integer = DGV.Rows.Count - 1
       Dim A(H) As Integer
       For I As Integer = 0 To H
           A(H) = Val(DGV.Rows(I).Cells("Col1").Value)
           sum = Val(sum) + Val(A(H))
           ListBox1.Items.Add(A(H))
       Next
       TextBox1.Text = sum

جواب السؤال الثالث حيث لدينا داتا جريد فيو سنأخذ منها معلومات الطلاب ونخزنها في مصفوفة احادية ونوجد مجموع المصفوفة ونظهر علامة الطلاب من المصفوفة الى ليست بوكس

بخصوص السؤال الثاني
كود :
     Dim a(2, 2) As Integer
       a(0, 0) = 1
       a(0, 1) = 2
       a(0, 2) = 3

       a(1, 0) = 4
       a(1, 1) = 5
       a(1, 2) = 6

       a(2, 0) = 7
       a(2, 1) = 8
       a(2, 2) = 9
       Dim x As Integer = 0
       Dim y As Integer = 0
       Dim z As Integer = 0

       For i As Integer = 0 To 2
           x = x + a(i, 0)
       Next
       For i As Integer = 0 To 2
           y = y + a(i, 1)
       Next
       For i As Integer = 0 To 2
           z = z + a(i, 2)
       Next
       dgvv.Columns.Add("", "مجموع صفوف 0")
       dgvv.Columns.Add("", "مجموع صفوف 1")
       dgvv.Columns.Add("", "مجموع صفوف 2")
       dgvv.Rows.Add()
       dgvv.Rows(0).Cells(0).Value = x
       dgvv.Rows(0).Cells(1).Value = y
       dgvv.Rows(0).Cells(2).Value = z
سورس كود برنامج محاسبة ومبيعات احترافي  -  سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام   Abo_anas_kahwaji@
واتساب 00963951283515
الرد }}}
تم الشكر بواسطة: ابو روضة , ابو روضة , salim0ham , egy_program
#4
بخصوص السؤال الثاني طبعا لا بد من اضافة داتا جريد فيو  وزر نضع فيه الكود وطبعا كما هو معروف Dim a(2, 2) تعتبر مصفوفة 3*3 لان العد يبدأ من 0
اما بخصوص السؤال الخامس لا يوجد صورة وبخصوص السؤال المتبقي احتاج الى توضيح
كود :
       Dim a(2, 2) As Integer
       a(0, 0) = 1
       a(0, 1) = 2
       a(0, 2) = 3

       a(1, 0) = 4
       a(1, 1) = 5
       a(1, 2) = 6

       a(2, 0) = 7
       a(2, 1) = 8
       a(2, 2) = 9
       Dim x As Integer = 0
       Dim y As Integer = 0
       Dim z As Integer = 0

       For i As Integer = 0 To 2
           x = x + a(i, 0)
       Next
       For i As Integer = 0 To 2
           y = y + a(i, 1)
       Next
       For i As Integer = 0 To 2
           z = z + a(i, 2)
       Next
       dgvv.Columns.Add("", "مجموع صفوف 0")
       dgvv.Columns.Add("", "مجموع صفوف 1")
       dgvv.Columns.Add("", "مجموع صفوف 2")
       dgvv.Rows.Add()
       dgvv.Rows(0).Cells(0).Value = x
       dgvv.Rows(0).Cells(1).Value = y
       dgvv.Rows(0).Cells(2).Value = z
سورس كود برنامج محاسبة ومبيعات احترافي  -  سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام   Abo_anas_kahwaji@
واتساب 00963951283515
الرد }}}
تم الشكر بواسطة: ابو روضة , salim0ham , egy_program



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


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