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

@ЭлинаЮкари · Регистрация: 17.05.2015

Студворк — интернет-сервис помощи студентам

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

@Alex77755 · 15.03.2017, 20:06

Visual Basic
1
среднее = (a + b + c)/3

Visual Basic
1
разность = 2*(a+c) - 3*b

@ЭлинаЮкари · 15.03.2017, 20:12 **[ТС]**

это уж понятно мне весь код нужен

@fever brain · 16.03.2017, 13:15

Alex77755, давай я ему(ей) отправлю код, только потом не возмущайтесь ))

@Sur_L · 16.03.2017, 14:13

Сообщение от ЭлинаЮкари

мне весь код нужен

Давайте наоборот, чему то же Вас учили.
Начните создавать код сами, а тут будем исправлять ошибки...

@fever brain · 16.03.2017, 14:25

у меня руки чешуться чтото написать, жаль что я со смартфона пишу
Итак код..... ВНИМАНИЕ !

Visual Basic
1
2
msgbox "среднее = " & (a + b + c)/3
end

@Alex77755 · 16.03.2017, 17:12

это уж понятно мне весь код нужен

А это что? конь в шоколаде? рабочий код. Считает что надо
Куда выводить не было сказано.fever brain, показал как вывести в сообщение.
В окно отладки будет так:

Visual Basic
1
2
3
    среднее = (a + b + c) / 3
    
    Debug.Print среднее

На форму просто:

Visual Basic
1
2
    среднее = (a + b + c) / 3
    Print среднее

@Степан23 · 18.03.2017, 20:31

Сообщение от ЭлинаЮкари

это уж понятно мне весь код нужен

Объясните, пожалуйста, для меня! Почему Word тупо и упрямо пишет в Debug.Print: C = 0? Что за блажь?
Уже с десяток вариантов перепробовал, а он ни с места не сдвинулся. Стоит насмерть: С = 0!

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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), ",", "."))
С = Val(Replace(InputBox("Введите С = ", "Ввод данных", 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

Ответы:
A = 3,65
B =-4,34
C = 0
D =-0,23
E = 20,32

@gaw · 18.03.2017, 21:23

переменную С поставьте всюду англ.

@Степан23 · 18.03.2017, 22:11

Сообщение от gaw

переменную С поставьте всюду англ

gaw, спасибо! Исправил. Хорошо работает. Будем знать.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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

Ответы:
A = 3,65
B =-4,34
C = 2,27
D = 0,5266666
E = 24,86

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

@ЭлинаЮкари 1 / 1 / 0 Регистрация: 17.05.2015 Сообщений: 64 Записей в блоге: 1

	Найдите среднее арифметическое этих чисел, а также разность 15.03.2017, 19:51. Показов 8114. Ответов 9 Метки нет (Все метки) Пользователь вводит три числа. Найдите среднее арифметическое этих чисел, а также разность удвоенной суммы первого и третьего чисел и утроенного второго числа. 0

@ЭлинаЮкари 1 / 1 / 0 Регистрация: 17.05.2015 Сообщений: 64 Записей в блоге: 1
	15.03.2017, 20:12 [ТС]
	это уж понятно мне весь код нужен 0

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	16.03.2017, 13:15
	Alex77755, давай я ему(ей) отправлю код, только потом не возмущайтесь )) 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	18.03.2017, 21:23
	переменную С поставьте всюду англ. 1