Вопрос № 49068: Здравствуйте.
Вопросы по Visual Basic 6.0.
1. Как посредствами VB извлечь из числа корень (и квадратный, и любой степени). Например, чтоб возвести число в квадрат, нужно умножить его, само на себя 2 раза:
a = Text1.Text
a = a *a <br...
Вопрос № 49.068
Здравствуйте.
Вопросы по Visual Basic 6.0.
1. Как посредствами VB извлечь из числа корень (и квадратный, и любой степени). Например, чтоб возвести число в квадрат, нужно умножить его, само на себя 2 раза:
a = Text1.Text
a = a *a
Text2.Text = a
2.Как формулу (или хоть что) разложить на нужные числа. Пример: x²-x-2=0. a = 1, b = -1, c = -2. Вернее как получить, отсюда эти числа. Или: x²-5x-3=0. a = 1, b = -5, c = -3
1. Высчитать квадратный корень из числа можно так, добавив к вашему примеру коммандную кнопку со следующим кодом обработки события Command1_click():
Command1_click ()
text2.text = sqr (text1.text)
End sub
При этом не нужны никакие переменные А. Можно добавить:
text1_change()
text2.text = ""
End sub
автоматически очищается текстбокс с результатом при вводе нового значения
2. Не совсем понятен второй вопрос, т.к. уравнения - с одним неизвестным, а чисел вы используете несколько
--------- Труд сделал обезьяну человеком, а лень человека - программистом !
Ответ отправил: Кокорич Вадим Леонидович (статус: 2-ой класс)
Ответ отправлен: 14.07.2006, 09:09 Оценка за ответ: 5 Комментарий оценки: "2. Не совсем понятен второй вопрос, т.к. уравнения - с одним неизвестным, а чисел вы используете несколько"
Может вы не совсем поняли. Это квадратное уравнение. Подсчитываем дискриминант по формуле D= b²-4ac. И его корни x=-b(+-)корень из D и деленное на 2. (x²-x-2=0)Вот из это уравнения я и взял a = 1, b = -1, c = -2
Отвечает: Александр Шевченко
Здравствуйте, Неизвестнов Том!
Здравствуйте, Неизвестнов Том!
1. Для извлечения квадратного корня служит функция Sqr(). Любой степени - корень n-ной степени из числа m равен m в степени 1/n, то есть кубический корень из 8=8^(1/3)=2
2. Предлагаю мой код (в приложении). Конечно, не полностью универсален, но в качестве основы подойдет.
Приложение:
Ответ отправил: Александр Шевченко (статус: 6-ой класс)
Ответ отправлен: 14.07.2006, 09:46 Оценка за ответ: 5 Комментарий оценки: Спасибо за код. Есть от чего оттолкунться.
