|
Une équation quadratique est un polynôme du second degré qui a la forme " . Ax ^ 2 + bx + c = 0" Le "a", "b" et "c" sont les constantes et "x" est la variable . Lorsque vous résolvez une équation quadratique , vous devez avoir les valeurs des constantes et à résoudre pour x , ce qui donne toujours deux valeurs , appelées les «racines ». Dans Visual Basic, vous pouvez écrire un programme ou une fonction qui invite l'utilisateur à entrer des valeurs a, b et c , trouver les racines , puis afficher les valeurs du formulaire. Instructions
1 Ouvrez un nouveau programme Visual Basic. Double- cliquez sur l'outil "Button " pour ajouter Button1 dans le formulaire. Double- cliquez sur l'outil "Label" deux fois pour ajouter Label1 et Label2 au formulaire.
2 Double -cliquez sur " Button1" sur le formulaire pour ouvrir la fenêtre de code . Tapez le code suivant :
Dim a en décimal = InputBox (" Entrez A: " )
b As Decimal = InputBox (" Saisissez B")
Dim c Comme Decimal = InputBox (" Entrez C :")
quadratique (a, b, c)
les trois premières lignes invitent l'utilisateur pour les valeurs des constantes . Il appelle ensuite un sous appelée « quadratique » et passe les constantes comme arguments à cela .
3 Placez le curseur à l'extérieur des sous Button1 . Tapez le code suivant :
Private Sub quadratique ( ByVal un en décimal , b ByVal comme Decimal , ByVal c en décimal )
racines Dim ( 1) As String Dim
x1, x2, disque comme disque de décimal
= b ^ 2 - 4 * a * c
La première ligne crée des sous quadratique et accepte trois arguments. Il définit ensuite un tableau avec deux points pour les deux racines. Il crée ensuite trois variables décimales et affecte la valeur du discriminant , qui détermine le nombre de racines de l'équation quadratique a
4 Tapez le code suivant : .
Si le disque > = 0 Then
x1 = (-b + Math.Sqrt (disque) ) /(2 * a)
x2 = ( -b - Math.Sqrt (disque) ) /(2 * a)
racines ( 0) = x1.ToString
racines ( 1) = x2.ToString
Else
racines (0) = " (- "& b.ToString &" + sqrt ( "& disc.ToString &") ) /(2 * " & a.toString &") "
racines ( 1) =" (- "& b.ToString & " - sqrt ( " & disc.ToString & ") ) /(2 * " & a.toString & ") "
End If
le "if" des contrôles de fonctionnement pour voir si la valeur du discriminant est supérieure ou égale à zéro , ce qui signifie que l'équation a une ou deux racines . Il résout ensuite pour x . Si le discriminant est inférieur à zéro, l'équation n'a pas de véritables racines et la partie "else" exécute , qui affiche les racines des équations complexes
5 Tapez le code suivant : .
Label1.Text = racines ( 0)
Label2.Text = roots (1 ) Photos End Sub
Ces lignes de code simplement afficher les racines sur les étiquettes , puis fermez le bloc de code du second degré sous .
6 Enregistrer le programme Visual Basic. Appuyez sur "F5" pour l'exécuter.
|
