Найдите среднее арифметическое этих чисел, а также разность - VB

Узнай цену своей работы

Формулировка задачи:

Пользователь вводит три числа. Найдите среднее арифметическое этих чисел, а также разность удвоенной суммы первого и третьего чисел и утроенного второго числа.

Решение задачи: «Найдите среднее арифметическое этих чисел, а также разность»

textual
Листинг программы
Sub ЭлинаЮкари()
 
Dim A As Single, B As Single, C As Single, D As Single, E As Single
A = Val(Replace(InputBox("Введите A = ", "Ввод данных", 3.65), ",", "."))
B = Val(Replace(InputBox("Введите B = ", "Ввод данных", -4.34), ",", "."))
C = Val(Replace(InputBox("Введите C = ", "Ввод данных", 2.27), ",", "."))
 
'C = InputBox("Введите С = ", "Ввод данных", 2#)
'A = 3.65: B = -4.34: C = 2.27
 
D = (A + B + C) / 3: E = 2 * (A + C) - 3 * B
 
Debug.Print "A ="; A
Debug.Print "B ="; B
Debug.Print "C ="; C
Debug.Print "D ="; D
Debug.Print "E ="; E
 
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.333 из 5
Похожие ответы