حساب

سلام عليكم

اخي الكريم ارجو التوضيح في بعض القوانين ، والترتيب في طرح السؤال لانه مخربط

اقتباس

والتباين هو اظهار الوسط الحسابي ثم ا طرح القيم من الوسط الحسابي ثم نربع القيم ونجمعهم ونقسم المجموع على عدد القيم ناقص واحد والانحراف المعياري هو جذر التباين وترتيب القيم تصاعديا وترتيب القيم تنازليا

المنوال

Case 2
                Dim nem() As Single
                Dim pal As Integer
                Dim result As String
                Dim total As Single = 0
                Dim prompt, title As String
                Dim i As Short
                Dim result1 As String
                Dim result2 As String
                prompt = ("ادخل القيم")
                pal = InputBox("كم قيمة تريد أدخالها", "القيم المطلوبه")
                If pal > 0 Then ReDim nem(pal - 1)
                For i = 0 To UBound(nem)
                    title = "palns" & (i + 1)
                    nem(i) = InputBox(prompt, title)
                    result = "pal" & (i + 1) & nem(i)
                Next
                '---------------------------------------------
                Dim index, resultt, y As Integer
                Dim Arr(UBound(nem)) As Integer
                Dim Count As Integer
                For i = 0 To UBound(nem)
                    Count = 0
                    index = nem(i)
                    For y = i To UBound(nem)
                        If nem(y) = index Then
                            Count += 1
                        End If
                    Next
                    Arr(i) = Count
                Next

                For i = 0 To UBound(Arr)
                    If resultt < Arr(i) Then
                        resultt = Arr(i)
                        index = i
                    End If
                Next
                TCompmath5.Text = "العدد " & nem(index) & " تكرر " & resultt
                '---------------------------------------------

المدى

Case 3
                Dim nemb() As Single
                Dim paln As Integer
                Dim result As String
                Dim total As Single = 0
                Dim prompt, title As String
                Dim i As Short
                Dim result1 As String
                Dim result2 As String
                prompt = ("أدخل القيم")
                paln = InputBox("كم قيمة تريد أدخالها", "القيم المطلوبه")
                If paln > 0 Then ReDim nemb(paln - 1)
                For i = 0 To UBound(nemb)
                    title = "palns" & (i + 1)
                    nemb(i) = InputBox(prompt, title)
                    result = "paln" & (i + 1) & nemb(i)
                Next
                '---------------------------------------------------------
                Dim Max, Min As Integer
                Max = nemb(0)
                Min = nemb(0)
                For i = 1 To UBound(nemb)
                    If Min > nemb(i) Then
                        Min = nemb(i)
                    End If
                    If Max < nemb(i) Then
                        Max = nemb(i)
                    End If
                Next
                TCompmath5.Text = Max - Min

اذا في شيء مو فاهمه في الحل السابق ارجو السؤال !!

السلام

ومشكور جدا على المساعده الله يجزيك الف خير

والتباين هو اظهار الوسط الحسابي ثم ا طرح القيم التي تم ادخالها من قبل المستخدم من الوسط الحسابي ثم نربع النواتج ونجمعهم ونقسم المجموع على عدد القيم ناقص واحد .

والانحراف المعياري هو جذر التباين

وترتيب القيم تصاعديا من الاصغر الى الاكبر

وترتيب القيم تنازليا من الاكبر الى الاصغر :rolleyes: