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

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

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

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

@Alex77755 · 15.03.2017, 20:06

Visual Basic

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

Visual Basic

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

@ЭлинаЮкари · 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

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

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

@ЭлинаЮкари 1 / 1 / 0 Регистрация: 17.05.2015 Сообщений: 64 Записей в блоге: 1
		1
	Найдите среднее арифметическое этих чисел, а также разность 15.03.2017, 19:51. Показов 7526. Ответов 9 Метки нет (Все метки) Пользователь вводит три числа. Найдите среднее арифметическое этих чисел, а также разность удвоенной суммы первого и третьего чисел и утроенного второго числа. 0

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

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

@Sur_L 103 / 63 / 10 Регистрация: 13.02.2017 Сообщений: 178
	16.03.2017, 14:13	5
	Сообщение от ЭлинаЮкари мне весь код нужен Давайте наоборот, чему то же Вас учили. Начните создавать код сами, а тут будем исправлять ошибки... 0

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

	18.03.2017, 22:11