Вопрос по информатике:
Составьте программу решения квадратного уравнения ax(x-в квадрате)+
+bx +c=0. Коэффициенты a,b,c введите с клавиатуры.Выведите на экран
ЗНачения корней x1,x2, если уравнение имеет два корня, значение x, если уравнение имеет один корень, или сообщение <Нет корней>, если уравнение не имеет корней
- 13.06.2016 23:31
- Информатика
- remove_red_eye 19309
- thumb_up 17
Ответы и объяснения 1
Sub f1()
Dim a, b, c, d, cord, x1, x2 As Single
a = InputBox(" x^2")
b = InputBox(" x")
c = InputBox(" свободный")
d = 0 d = (b * b) - 4 * a * c
If d < 0 Then MsgBox ("решений нет")
cord = Sqr(d)
x1 = (-b + cord) / (2 * a)
x2 = (-b - cord) / (2 * a)
if d = 0 then msgbox CStr(x1)
MsgBox ("корни квадратного уравнения равны " + CStr(x1) + "и" + CStr(x2))
End Sub
- 14.06.2016 10:30
- thumb_up 23
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.