Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/13: Рейтинг темы: голосов - 13, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 04.06.2011
Сообщений: 10

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

07.06.2011, 14:51. Показов 2759. Ответов 2
Метки нет (Все метки)

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

Очень надо) зарранее спасибо
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
07.06.2011, 14:51
Ответы с готовыми решениями:

Определение среднего арифметического и среднего геометрического
помогите написать программу на Visual Basic) Дан массив А из N натуральных чисел. Постройте алгоритм для определения среднего...

Нахождения суммы среднего арифметического и среднего геометрического 3 чисел
Написать программу нахождения суммы среднего арифметического и среднего геометрического 3 чисел.

Массивы. Сумма среднего геометрического значения элементов и среднего арифметического значения элементов
Доброго времени суток! Прошу помощи с задачей про массивы: Даны массивы А(5) и В(5), состоящие из положительных элементов. Найти...

2
 Аватар для gitarillo
755 / 554 / 48
Регистрация: 17.06.2010
Сообщений: 1,041
Записей в блоге: 1
07.06.2011, 16:19
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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
1
0 / 0 / 0
Регистрация: 04.06.2011
Сообщений: 10
07.06.2011, 16:22  [ТС]
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
07.06.2011, 16:22
Помогаю со студенческими работами здесь

Функция вычисления среднего арифметического и среднего геометрического двух чисел
Описать функцию Mean(X, Y, AMean, GMean), вычисляющую среднее арифметическое AMean = (X+Y)/2 и среднее геометрическое GMean = (X·Y)1/2 двух...

Составить процедуру вычисления среднего арифметического и среднего геометрического А и В
Составить процедуру вычисления среднего арифметического и среднего геометрического А и В. С ее помощью найти среднее арифметическое и...

Вычисление среднего арифметического и среднего геометрического двух чисел
Даны два действительных положительных числа. Записать алгоритм вычисления среднего арифметического и среднего геометрического этих чисел.

Нахождение среднего арифметического и среднего геометрического двух чисел
Напишите программу для вычисления значения V по формуле V = V0 ( 3/2  - 1/2 (ABS()) , V0 = 2,  - ввести с клавиатуры; V -...

Разработайте перегруженные функции нахождения среднего арифметического и среднего геометрического трех целых и вещественных чисел
Составьте программу для решения задачи. Выясните, что больше: среднее арифметическое или среднее геометрическое трех положительных чисел....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru