ООП. Наследование. Одномерные массивы

@monikamo · Регистрация: 05.01.2019

Author24 — интернет-сервис помощи студентам

Дан массив целых чисел Z(n).
Найти среднее арифметическое элементов массива Z, расположенных после первого нулевого элемента.

Помогите пожалуйста, в чем ошибка?

VB.NET

Public Class Class1
    Private Z() As Integer = New Integer() {}
    Public n As Integer
    Public Property intZ(ByVal i As Integer) As Integer
        Get
            Return Z(i)
        End Get
        Set(ByVal value As Integer)
            Z(i) = value
        End Set
 
    End Property
    Public Sub input()
        n = CInt(InputBox("Введите число элементов целочисленного массива"))
        ReDim Z(n - 1)
        For i As Integer = 0 To n - 1
            Z(i) = CInt(InputBox("Введите " & i + 1 & "-й элемент массива"))
        Next i
    End Sub
 
End Class
 
Public Class Class2
    Inherits Class1
    Private Y() As Integer = New Integer() {}
    Public Property intY(ByVal i As Integer) As Integer
        Get
            Return Y(i)
 
        End Get
        Set(ByVal value As Integer)
            Y(i) = value
 
        End Set
    End Property
    Public Sub chenge()
        Dim k, sum, j As Integer
        Dim SR As Decimal
        SR = 0 : k = 0 : sum = 0
        ReDim Y(n - 1)
        For i As Integer = 0 To n - 1
            If Y(i) = 0 And i < (n - 1) Then
                For j = i + 1 To (n - 1)
                    sum = sum + Y(j)
                    k = k + 1
                Next j
            End If
 
 
        Next i
        If k > 0 Then
            SR = sum / k
        End If
 
    End Sub
 
End Class
Public Class Form1
    Public arrayOne As New Class2
    Dim n As Integer
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        arrayOne.input()
        n = arrayOne.n
        For i As Integer = 0 To n - 1
            TextBox1.Text += CStr(arrayOne.intZ(i)) + " "
        Next i
 
        arrayOne.chenge()
        For i As Integer = 0 To n - 1
            TextBox2.Text += CStr(arrayOne.intY(i)) + " "
        Next
    End Sub
End Class

@ovva · 07.01.2019, 17:45

monikamo, все это конечно несколько надуманно.
Добавьте в Class1

Кликните здесь для просмотра всего текста

VB.NET

Private Z() As Integer = New Integer() {}
'…
Protected Function LastPartArray() As Integer()
    'возвращает массив из элементов базового массива расположенных после первого нулевого элемента
    Dim k As Integer = -1
    Dim arr() As Integer = New Integer() {}
    For i = 0 To Z.Length - 2
        If Z(i) = 0 Then
            k = i
            Exit For
        End If
    Next
    If k <> -1 Then
        ReDim arr(Z.Length - k - 2)
        Array.Copy(Z, k + 1, arr, 0, arr.Length)
    End If
    Return arr
End Function

Теперь этот класс отвечает не только за ввод базового массива, но и возвращает массив из элементов расположенных после первого нулевого элемента.
Несколько поменял Class Class2

Кликните здесь для просмотра всего текста

VB.NET

Public Class Class2
    Inherits Class1
    Private Y() As Integer = New Integer() {}
    Public Property intY(ByVal i As Integer) As Integer
        Get
            Return Y(i)
        End Get
        Set(ByVal value As Integer)
            Y(i) = value
        End Set
    End Property
    Public Property m As Integer
    Public Function chenge() As Double
        Dim sum As Integer = 0
        Y = LastPartArray()
        _m = Y.Length
        If Y.Length = 0 Then Return Double.MinValue
        For i As Integer = 0 To Y.Length - 1
            sum = sum + Y(i)
        Next i
        Return sum / Y.Length
    End Function
End Class

Ну и обращение к этому классу

Кликните здесь для просмотра всего текста

VB.NET

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim arrayOne As New Class2
    arrayOne.input()
    TextBox1.Clear()
    For i As Integer = 0 To arrayOne.n - 1
        TextBox1.AppendText(arrayOne.intZ(i).ToString & vbCrLf)
    Next i
    TextBox2.Clear()
    Dim sr As Double = arrayOne.chenge()
    For i As Integer = 0 To arrayOne.m - 1
        TextBox2.AppendText(arrayOne.intY(i) & vbCrLf)
    Next
    If sr = Double.MinValue Then
        Label1.Text = "В базовом массиве нет элемента со значением 0!"
    Else
        Label1.Text = sr.ToString
    End If
End Sub

	07.01.2019, 17:45

Опции темы