Определить максимальное и минимальное значения из их среднего арифметического, среднего геометрического и суммы экспонент

@vasya · Регистрация: 04.06.2011

помогите пожалуйста решить: Заданы три величины a, b и c. Определить максимальное и минимальное значения из их среднего арифметического, среднего геометрического и суммы экспонент exp(a)+exp(b)+exp(c).

Очень надо) зарранее спасибо

@gitarillo · 07.06.2011, 16:19

Visual Basic

Private Sub Command1_Click()
Dim a As Double, b As Double, c As Double
Dim arf As Double
Dim gmr As Double
Dim ex As Double
a = -1
b = 0.7
c = -5
arf = (a + b + c) / 3
gmr = (a * b * c) ^ (1 / 3)
ex = Exp(a) + Exp(b) + Exp(c)
Dim max As Double
Dim min As Double
max = arf
min = arf
If arf > gmr And arf > ex Then max = arf
If gmr > arf And gmr > arf Then max = gmr
If ex > arf And ex > gmr Then max = ex
If arf < gmr And arf < ex Then min = arf
If gmr < arf And gmr < arf Then min = gmr
If ex < arf And ex < gmr Then min = ex
Print "Среднее арифм:" & arf
Print "Среднее геом:" & gmr
Print "Сумма экспонент:" & ex
Print "Макс:" & max
Print "Мин:" & min
End Sub

@vasya · 07.06.2011, 16:22 **[ТС]**

@vasya 0 / 0 / 0 Регистрация: 04.06.2011 Сообщений: 10
		1
	Определить максимальное и минимальное значения из их среднего арифметического, среднего геометрического и суммы экспонент 07.06.2011, 14:51. Показов 2290. Ответов 2 Метки нет (Все метки) помогите пожалуйста решить: Заданы три величины a, b и c. Определить максимальное и минимальное значения из их среднего арифметического, среднего геометрического и суммы экспонент exp(a)+exp(b)+exp(c). Очень надо) зарранее спасибо 0

@vasya 0 / 0 / 0 Регистрация: 04.06.2011 Сообщений: 10
	07.06.2011, 16:22 [ТС]	3
	0

Опции темы