Вычислить значение квадрата, куба и обратной величины переменных

@Рита06 · Регистрация: 24.11.2012

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Sub ЗначениеКвадратаКубаИОбратнойВеличиныПеременных()
Dim x, a, b, c As Single
a = x ^ 2
b = x ^ 3
c = 1 / x
a = InputBox("Введите значение первой прееменной", "a")
b = InputBox("Введите значение второй переенной", "b")
c = InputBox("Введите значение третьей переменной", "c")
MsgBox "Значение квадрата, куба и обратной величины переменных=  " & a, b, c
 
End Sub

@sn_88 · 28.11.2012, 18:00

Ошибка в том, что Вы не верно задаете и вводите параметры

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Sub ЗначениеКвадратаКубаИОбратнойВеличиныПеременных()
Dim a1, b1, c1 As Single
 
a1 = InputBox("Введите значение первой прееменной", "a1")
b1 = InputBox("Введите значение второй переенной", "b1")
c1 = InputBox("Введите значение третьей переменной", "c1")
a = a1 ^ 2
b = b1 ^ 3
c = 1 / c1
MsgBox "Значение квадрата, куба и обратной величины переменных= " & a "," & b & "," c
 
 
End Sub

@Казанский · 28.11.2012, 18:03

10-я строка - это песТня!

@sn_88 · 28.11.2012, 18:06

Казанский, а из песни, как известно, слов не выкинешь...

Памирыч · 28.11.2012, 18:10

Рита06, размещение одного кода, без пояснений и описаний ошибки является нарушением. Учтите это на будущее.

@Рита06 · 28.11.2012, 18:15 **[ТС]**

sn_88,Даже по этой программе не считает..

@Апострофф · 28.11.2012, 18:21

4-й строкой в коде от sn_88 следует написать

Visual Basic
1
Dim a As Single, b As Single, c As Single

Не по теме:

И тип переменных очень желательно указывать для каждой!

@Рита06 · 28.11.2012, 18:26 **[ТС]**

А почему теперь выделяет 11 строку?

@Апострофф · 28.11.2012, 18:40

Visual Basic
1
MsgBox "Значение квадрата, куба и обратной величины переменных= " & a   &   "," & b & ","   &    c

Двух амперсандов не хватало, кажется?

@Девочка-белочка · 05.01.2015, 00:18

Пожалуйста подскажите что такое "обратной величины переменных"?

@Апострофф · 05.01.2015, 04:09

https://ru.wikipedia.org/wiki/... 0%BB%D0%BE

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	28.11.2012, 18:03
	10-я строка - это песТня! 1

@sn_88 65 / 65 / 4 Регистрация: 21.06.2011 Сообщений: 166
	28.11.2012, 18:06
	Казанский, а из песни, как известно, слов не выкинешь... 0

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	28.11.2012, 18:10
	Рита06, размещение одного кода, без пояснений и описаний ошибки является нарушением. Учтите это на будущее. 0

@Рита06 0 / 0 / 0 Регистрация: 24.11.2012 Сообщений: 14
	28.11.2012, 18:15 [ТС]
	sn_88,Даже по этой программе не считает.. 0

@Рита06 0 / 0 / 0 Регистрация: 24.11.2012 Сообщений: 14
	28.11.2012, 18:26 [ТС]
	А почему теперь выделяет 11 строку? 0

@Девочка-белочка 1 / 1 / 0 Регистрация: 07.12.2012 Сообщений: 18
	05.01.2015, 00:18
	Пожалуйста подскажите что такое "обратной величины переменных"? 1

@Апострофф 9908 / 3928 / 742 Регистрация: 11.10.2011 Сообщений: 5,908
	05.01.2015, 04:09
	https://ru.wikipedia.org/wiki/... 0%BB%D0%BE 1