Информатика для I курса. Часть I. Никифоров С.Н. - 33 стр.

UptoLike

ВУЗ: 

СПбГАСУ | Санкт-Петербург

Составители: 

Рубрика: 

64 65
Рис. 9.9
получения результатов при вычислении максимального, мини-
мального значений из пяти введенных чисел, а также вычисления
среднего арифметического, среднего геометрического и среднего
гармонического значений.
Программа вычисления максимума, минимума, среднего
арифметического, среднего геометрического
и среднего гармонического
Private Sub CommandButton1_Click()
If Not IsNumeric(TextBox1) Or Not IsNumeric(TextBox2) Or
Not IsNumeric(TextBox3) Or Not IsNumeric(TextBox4) Or Not
IsNumeric(TextBox5) Then
MsgBox "Исходные данные введены неверно или не полностью!", , "Введите
числа"
Exit Sub
End If
A = CDbl(TextBox1)
B = CDbl(TextBox2)
C = CDbl(TextBox3)
D = CDbl(TextBox4)
E = CDbl(TextBox5)
TextBox6 = Application.WorksheetFunction.Max(A, B, C, D, E)
TextBox7 = Application.WorksheetFunction.Min(A, B, C, D, E)
TextBox8 = Application.WorksheetFunction.Average(A, B, C, D, E)
TextBox9 = (A * B * C * D * E) ^ (1 / 5)
If A <> 0 And B <> 0 And C <> 0 And D <> 0 And E <> 0 Then
TextBox10.Visible = True
Label11.Visible =
TextBox10 = 5 / (1 / A + 1 / B + 1 / C + 1 / D + 1 / E)
Else
TextBox10.Visible = False
Label11.Visible = True
End If
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Некоторые комментарии к программе:
в программе используется функция INumeric(TextBox), про-
веряющая, являются ли данные, помещенные в объекте TextBox1,
или в объекте TextBox2, или в объекте TextBox3, или в объекте
TextBox4, или в объекте TextBox5, цифровыми;
в программе используется функция CDbl(TextBox), обеспе-
чивающая преобразование данных объектов TextBox1, TextBox2,
TextBox3, TextBox4 и TextBox5 в цифровые;
в программе используются функции вычисления максимума
Max(A, B, C, D, E), минимума Min(A, B, C, D, E) и среднего ариф-
метического значения Average(A, B, C, D, E) для пяти введенных
чисел A, B, C, D, E;
в программе при вычислении среднего гармонического об-
рабатывается ситуация невозможности деления на ноль, при этом

Страницы