Решение квадратного уравнения

@Varsel · Регистрация: 05.12.2017

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

Составьте программу на языке VBA для решения
квадратного уравнения
a *x^2 +b*x + =0
Программа должна проверять
правильность исходных данных и в случае, когда коэффициент при второй
степени неизвестного равен нулю, выводить соответствующее сообщение.

Исходные данные:
1. a=1, b=2, c=1
2. a=1, b=0,5, c=–0,5
3. a=1, b=1, c=3
4. a=0, b=1, c=0,13
5. a=0, b=0, c=5
Результат:
1. x1,2=–1
2. x1=–1, x2=0,5
3. Нет действительных корней
4. x=–0,13
5. Неверные исходные данные

@Narimanych · 06.12.2017, 11:48

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

a *x^2 +b*x + =0

Вы даже уравнение не до конца написали....

@kreotodr · 06.12.2017, 18:09

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

Вы даже уравнение не до конца написали....

А смысл, там все на уровне близком к 80левел

@Varsel · 16.12.2017, 11:52 **[ТС]**

Visual Basic

Sub zadanie_n()
Dim a As Single
Dim b As Single
Dim c As Single
Dim d As Single
Dim x1 As Single
Dim x2 As Single
a=CSng(InputBox("введите значение а","ввод"))
b=CSng(InputBox("введите значение b","ввод"))
c=CSng(InputBox("введите значение c","ввод"))
If a =0 And b=0 Then
MsgBox "Неверные исходные данные",,"ответ"
Else
If a=0 Then
MsgBox "x=" & -c/b, ,"вывод"
Else
d=b*b-4*a*c
Msgbox "Нет действительных корней", ,"вывод"
Else
If d=0 Then
MsgBox (-b/(2*a))
Else
x1=((-b-Sqr(d)/(2*a))
x2=((-b+Sqr(d)/(2*a))
MsgBox x1 & Chr(13) & x2, ,"вывод"
End If
End If
End If
End If
End Sub

@Burk · 17.12.2017, 09:30

Visual Basic

Sub zadanie_n()
Dim a As Double, b As Double, c As Double, d As Double,  x1 As Double, x2 As Double
a = CSng(InputBox("введите значение а", "ввод"))
b = CSng(InputBox("введите значение b", "ввод"))
c = CSng(InputBox("введите значение c", "ввод"))
If a = 0 And b = 0 Then
  MsgBox "Неверные исходные данные"
Else
  If a = 0 Then
    MsgBox "x=" & -c / b
  Else
    d = b * b - 4 * a * c
    If d < 0 Then
      MsgBox "Нет действительных корней"
    ElseIf d = 0 Then
      MsgBox "x1=x2=" & (-b / (2 * a))
    Else
      x1 = (-b - Sqr(d)) / (2 * a)
      x2 = (-b + Sqr(d)) / (2 * a)
      MsgBox x1 & Chr(13) & x2
    End If
  End If
End If
End Sub

Добавлено через 18 минут
Varsel, я просто привык писать Double, вернитесь к Single, если вам так удобнее. Хотя можно обойтись и без конвертера при вводе (без Csng)

@Varsel 0 / 0 / 0 Регистрация: 05.12.2017 Сообщений: 11
		1
	Решение квадратного уравнения 05.12.2017, 19:44. Показов 39070. Ответов 4 Метки нет (Все метки) Составьте программу на языке VBA для решения квадратного уравнения a x^2 +bx + =0 Программа должна проверять правильность исходных данных и в случае, когда коэффициент при второй степени неизвестного равен нулю, выводить соответствующее сообщение. Исходные данные: 1. a=1, b=2, c=1 2. a=1, b=0,5, c=–0,5 3. a=1, b=1, c=3 4. a=0, b=1, c=0,13 5. a=0, b=0, c=5 Результат: 1. x1,2=–1 2. x1=–1, x2=0,5 3. Нет действительных корней 4. x=–0,13 5. Неверные исходные данные 0

@Narimanych 2736 / 1711 / 778 Регистрация: 23.03.2015 Сообщений: 5,420
	06.12.2017, 11:48	2
	Сообщение от Varsel a x^2 +bx + =0 Вы даже уравнение не до конца написали.... 0

@kreotodr 39 / 39 / 8 Регистрация: 15.08.2014 Сообщений: 625
	06.12.2017, 18:09	3
	Сообщение от Narimanych Вы даже уравнение не до конца написали.... А смысл, там все на уровне близком к 80левел 0

	17.12.2017, 09:30