Программирование
Веб программирование

Решения квадратных уравнений с помощью дискриминанта

 
 

Друзья  всем вам  приходилось сталкиваться в процессе  обучения  с такими премерами как решение квадратного уравнения  через дискриминант. Так вот я хочу вам представить программу которая решает  квадратные уравнения с помощью дискриминанта.

Public Class Form1
Dim x As Single
Dim y As Single
Dim D As Single
Dim a As Single
Dim b As Single
Dim c As Single
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = TextBox1.Text
b = TextBox2.Text
c = TextBox3.Text
D = (b * b) - (4 * a * c)
If D >= 0 Then
x = (-b + Math.Sqrt(D)) / (2 * a)
y = (-b - Math.Sqrt(D)) / (2 * a)
Label1.Text = "Дискриминант:" & D
Label2.Text = "Корень x = " & x
Label3.Text = "Корень y = " & y
End If
If D < 0 Then
Label2.Text = "Дискриминант:" & D
Label3.Text = "Корней нет"
Label1.Text = ""

msgbox ("Дискриминант меньше нуля")
End If
End Sub
End Class

Есть вопросы? Спроси на нашем форуме!!
uu [20.02.2012 17:20]

msgbox ("Дискриминант МЕНЬШЕ нуля")

pjp07190 [14.02.2013 14:55]

А если пользователь введет в TextBox1.Text ноль?

MetFerrel150 [15.02.2013 02:06]

Я не понимаю к чему этот вопрос ну и введет например в первом варианте он вводит 2 во втором 4 а в третьем 0 ну и подсчитай.

pjp07190 [15.02.2013 08:40]

если a=0, будет деление на 0.

EverybodyLies280 [15.02.2013 12:30]

Это можно оправдать определением квадратного уравнения (коэфф. a != 0)

pjp07190 [15.02.2013 13:34]

Писать программы в надежде на грамотного пользователя, это не правильно. Да и грамотный пользователь может ошибаться, поскольку человек, а не компьютер.

MetFerrel150 [15.02.2013 19:19]

Брат ну ты не заводись. Просто прежде чем задать вопрос подумай сам и постарайся сам решить тот или иной ребус. Проще скопируй код и вставь в форму и попробуй ввести то число которое тебе нужно, а то ты просто взял и сказал а если ввести ноль это все равно то сказать а если я в место нуля напишу привет мир что будет.Просто думай а потом спрашивай. Ведь прежде чем писать программу программист должен знать ее решение. И я не хотел тебя обидеть.



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.