Picture1.Cls

d = b ^ 2 - 4 * a * c

Picture1.Print "Дискрименант="; d

If d < 0 Then

Picture1.Print " Решений нет";

Else

X1 = (-b + Sqr(d)) / (2 * a)

X1 = (-b - Sqr(d)) / (2 * a)

Picture1.Print

Picture1.Print " x1="; X1

Picture1.Print " x2="; X2

End If

End Sub

Private Sub Command2_Click()

End

End Sub

 

Перечень используемого оборудования

Персональный компьютер