RACINE(S) D'UN POLYNOME DU SECOND DEGRÉ

Imports System.Math

Public Class Polynome


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim discriminant, x1, x2, racinediscri, enracin, x1_, x2_, div, div1 As Decimal
        Dim indicateura, indicateurb, indicateurc As Boolean
        Dim a, b, c As String

        Label1.Text = ""
        Label2.Text = ""
        Label5.Text = ""
        Label6.Text = ""
        Label7.Text = ""
        Label8.Text = ""
        Label9.Text = ""
        Label11.Text = ""
        Label12.Text = ""

        a = a1.Text
        b = b1.Text
        c = c1.Text

        indicateura = a Like ("###") Or a Like ("##") Or a Like ("#") Or a Like ("-#") Or a Like ("-##") Or a Like ("-###")
        indicateurb = b Like ("###") Or b Like ("##") Or b Like ("#") Or b Like ("-#") Or b Like ("-##") Or b Like ("-###")
        indicateurc = c Like ("###") Or c Like ("##") Or c Like ("#") Or c Like ("-#") Or c Like ("-##") Or c Like ("-###")

        If indicateura = False Or indicateurb = False Or indicateurc = False Then
        MsgBox("verifier vos valeurs", MsgBoxStyle.Information, "Erreur de saisie")

        Else

        discriminant = (b * b - (4 * a * c))



        If discriminant > 0 And a <> 0 Then
            racinediscri = Sqrt(discriminant)
            enracin = Int(racinediscri)
            x1 = (-b + racinediscri) / (2 * a)
            x2 = (-b - racinediscri) / (2 * a)
            x1_ = Int(x1)
            x2_ = Int(x2)
            div = -b / (2 * a)
            div1 = Int(div)

            If x1 = x1_ Then
                Label7.Text = "x ="
                Label5.Text = x1
            Else
                Label7.Text = "x ="
                If div = div1 Then
                    Label5.Text = -b / (2 * a) & "+�ã" & discriminant
                Else
                    If racinediscri = enracin Then
                        Label5.Text = (-b + racinediscri) / (2 * a)
                    Else : Label11.Text = -b & "+�ã" & discriminant & vbCrLf & "-------------" & vbCrLf & 2 * a
                    End If
                End If

                If x2 = x2_ Then
                    Label8.Text = "ou x ="
                    Label6.Text = x2
                Else
                    Label8.Text = "ou x ="
                    If div = div1 Then
                        Label6.Text = -b / (2 * a) & "-�ã" & discriminant
                    Else
                        If racinediscri = enracin Then
                            Label6.Text = (-b + racinediscri) / (2 * a)
                        Else : Label12.Text = -b & "+�ã" & discriminant & vbCrLf & "-------------" & vbCrLf & 2 * a
                        End If
                    End If
                End If
            End If
        End If





        If discriminant < 0 Then
            Label9.Text = " Le Polynome n'a de solution dans R"

        End If
        If discriminant = 0 Then
            Label8.Text = -b / (2 * a)
        End If

        If a = 0 Then
            Label9.Text = "La fonction saisie n'est pas un trinome"
        Else : Label1.Text = discriminant
            Label2.Text = "discriminant ="
        End If

        End If

    End Sub


End Class

Télécharger le zip