Решение квадратного уравнения (хочу чтоб кто то проверил) - VB
Формулировка задачи:
Всё нормально?
Решение задачи: «Решение квадратного уравнения (хочу чтоб кто то проверил)»
textual
Листинг программы
Private Sub Command1_Click() Dim a, b, c As Integer Dim d as single dim x1,x2,x as string a = val(Text1.Text) b = val(Text2.Text) c = val(Text3.Text) d = (b ^ 2) - (4 * a * c) Text4.Text = d If d < 0 Then MsgBox ("Нет корней") Else If d > 0 Then x1 = (-b + Sqr(d)) / 2 * a x2 = (-b - Sqr(d)) / 2 * a Text5.Text = x1 Text6.Text = x2 else if d = 0 then x = (-b)/2*a text7.text = x End If End If End if End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д