Массив: для всех с оценкой ниже среднего балла заново ввести оценки и потом пересчитать средний балл

@flexwavesmusic · Регистрация: 19.03.2013

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

Дан массив 5-ти фамилий и массив 5-ти оценок. Надо для всех с оценкой ниже среднего балла заново ввести оценки и потом пересчитать средний балл.
Помогите с написанием рассчета среднего балла и повторного ввода оценок.
Вот моя часть программы без рассчета среднего балла и повтора ввода:

PureBasic

Sub Lab8_12()
    Dim Int_Array1(1 To 5) As String
    Dim Int_Array2(0 To 1) As Integer
    Dim str_msg As String
    Dim f As Integer
    Dim o As Integer
    
    str_msg = ""
    For f = 1 To 5
        Int_Array1(f) = InputBox("Введите фамилию студента", _
        "Ввод оценок студентов")
            
        Int_Array2(o) = InputBox("Введите оценку студента", _
        "Ввод оценок студентов") 
    Next f
 
    For f = 1 To 5
        str_msg = str_msg & vbTab & Int_Array1(f)
        str_msg = str_msg & vbTab & Int_Array2(o)
        str_msg = str_msg & vbCr
    Next f
    
    MsgBox "Оценки студентов: " & vbCr & str_msg
 End Sub

@Igor_Tr · 22.04.2013, 23:54

Вы заганяете фамилии и оценки в два разных одномерных массива. Тогда это должно быть так:

For f = 1 To 5
Int_Array1(f) = InputBox("Введите фамилию студента", _
"Ввод оценок студентов")

Int_Array2(f) = CInt(InputBox("Введите оценку студента", _
"Ввод оценок студентов"))
Next f

Лучше заганять в двухмерный, где первый индекс -ФИО, второй - оценка. Тогда останется один массив, назовем, например, просто Int_Array. И все это будет выглядеть так:

Visual Basic

Dim Int_Array() 
    For f = 1 To 5
        Int_Array(f,1) = InputBox("Введите фамилию студента", _
        "Ввод оценок студентов")
            
        Int_Array(f,2) = Cint(InputBox("Введите оценку студента", _
        "Ввод оценок студентов")) ' !!!преобразование типов данных можна _
                                                      сделать и в другом месте!!!
    Next f

А теперь с ним (массивом Int_Array) - как с пластилином....

Добавлено через 6 минут
Извиняюсь. Это хозяйство

For f = 1 To 5
str_msg = str_msg & vbTab & Int_Array1(f)
str_msg = str_msg & vbTab & Int_Array2(o)
str_msg = str_msg & vbCr
Next f

MsgBox "Оценки студентов: " & vbCr & str_msg

тогда примет вид:

Visual Basic

1
2
3

   For f = 1 To 5
       MsgBox "Оценки студентов: " & vbCr & Int_Array(f,1) & " ----- " & Int_Array(f,2) 
   Next f

	22.04.2013, 23:54

Опции темы