السلام عليكم...
هذه الأسئلة حاولت حلها ولكن لم أفلح فهل من مساعدة؟؟
السؤال الأول: اكتب كود لإيجاد جميع الأعداد الزائدة الواقعة بين 1 إلى 30؟
-الأعداد الزائدة هي: 12, 18, 20, 24, 30.
السؤال الثاني: إستخدم حلقة التكرار وبعض العمليات الحسابية وأظهر الناتج في TextBox للشكل التالي:
1 0 0 0 0
2 1 0 0 0
3 1 1 0 0
4 2 1 1 0
5 2 1 1 1
السؤال الثالث: كود لإيجاد العدد بين 1 إلى 40 ويحقق الشرط التالي:
10 = 10-10/(num*10+10)
-أرجو من لدية فكرة يساعدنا وشكراً لكم.
(22-09-20, 04:20 AM)اسامه الهرماوي كتب : [ -> ]السلام عليكم...
هذه الأسئلة حاولت حلها ولكن لم أفلح فهل من مساعدة؟؟
السؤال الأول: اكتب كود لإيجاد جميع الأعداد الزائدة الواقعة بين 1 إلى 30؟
-الأعداد الزائدة هي: 12, 18, 20, 24, 30.
و عليكم السلام و رحمة الله و بركاته
جواب السؤال الأول
كود :
REM لحفظ مجموع قواسم العدد
Dim Total As Integer
REM اختبار الأرقام من 1 ال ى 30
For Number As Integer = 1 To 30
REM ايجاد قواسم العدد من دونه
For Num As Integer = 1 To Number - 1
REM التأكد ان باقي القسمة = 0
If Number Mod Num = 0 Then
REM جمع القواسم
Total = Total + Num
End If
Next
REM العدد الزائد أصغر من مجموع قواسمه
If Number < Total Then
MessageBox.Show(Number.ToString)
End If
Total = 0
Next
السؤال الأول :
كود :
' ايجاد الارقام
Dim AbundantNumbers As New List(Of Integer)
For Number As Integer = 1 To 30
Dim FactorsSum As Integer = 1
For Factor = 2 To Number / 2
If Number Mod Factor = 0 Then FactorsSum += Factor
Next
If Number < FactorsSum Then AbundantNumbers.Add(Number)
Next
' اخراج الارقام
Dim str As String = AbundantNumbers(0)
For i As Integer = 1 To AbundantNumbers.Count - 1
str &= " , " & AbundantNumbers(i)
Next
TextBox1.Text = str
يكفي لايجاد العوامل التكرار لحد منتصف الرقم فقط ولا داعي لاكمال باقي الرقم
السؤال الثاني :
كود :
Dim Limit As Integer = 5
Dim Txt As TextBox = TextBox1
For i As Integer = 1 To Limit
For j As Integer = 1 To Limit
Txt.AppendText(i \ j)
If j < Limit Then Txt.AppendText(" ")
Next
If i < Limit Then Txt.AppendText(vbCrLf)
Next
السؤال الثالث :
يبدو كمعادلة من الدرجة الاولى وحلها بسيط 19 ، ولكن على اي حال يمكن وضع الشرط داخل حلقة تكرار
كود :
For num As Integer = 1 To 40
If (num * 10 + 10) / 10 - 10 = 10 Then
MsgBox(num)
End If
Next
الكود دا:
كود :
Dim Limit As Integer = 5
Dim Txt As TextBox = TextBox1
For i As Integer = 1 To Limit
For j As Integer = 1 To Limit
Txt.AppendText(i \ j)
If j < Limit Then Txt.AppendText(" ")
Next
If i < Limit Then Txt.AppendText(vbCrLf)
Next
لو محتاج أخليه في Label هيكون إزاي؟؟
ضعه في String وضعه في اي مكان تريده
كود :
Dim Limit As Integer = 5
Dim str As String = ""
For i As Integer = 1 To Limit
For j As Integer = 1 To Limit
str &= i \ j
If j < Limit Then str &= " "
Next
If i < Limit Then str &= vbCrLf
Next
Label1.Text = str