Здравствуйте. Я сделал задание и не знаю, правильно ли оно сделано. Можете посмотреть?
Есть 20 чисел в столбце эксель. Найти радиус и диаметр множества
Радиус - это расстояние от среднего значения до самого дальнего от центра элемента ряда.
Диаметр - это самое большое расстояние между всеми парами во множестве.
Мой код:
Спойлер
Private Sub CLDM_Click() ' - поиск диаметра
Dim MN As Integer
Dim MX As Integer
MN = WorksheetFunction.min(Range("A2:A21"))
MX = WorksheetFunction.Max(Range("A2:A21"))
Cells(23, 6) = Abs(MX - MN)
End Sub
Private Sub CLRD_Click() ' - поиск радиуса
Dim avr As Integer, MN As Double, MX As Double
Dim i As Integer
For i = 1 To 20
avr = avr + Cells(i + 1, 1)
Next i
avr = avr / 20
MN = WorksheetFunction.min(Range("A2:A21"))
MX = WorksheetFunction.Max(Range("A2:A21"))
If Abs(avr - MN) >= Abs(avr - MX) Then
Cells(22, 6) = Abs(avr - MN)
Else
Cells(22, 6) = Abs(avr - MX)
End If
End Sub
[вложение удалено администратором]