Linguaggio Basic e C/C++ – Risoluzione Equazione II grado
Equazioni di II Grado – Codifica in ‘like’ Basic
Dim A, B, C As Integer
Dim x1, x2 As Single
Dim Appoggio As Single
Console.WriteLine("Inserire il valore del coefficiente 'a'")
A = Console.ReadLine
Console.WriteLine("Inserire il valore del coefficiente 'b'")
B = Console.ReadLine
Console.WriteLine("Inserire il valore del coefficiente 'c'")
C = Console.ReadLine
Console.WriteLine("I valori inseriti sono: a = " & A & "; b = " & B & "; c = " & C)
Console.WriteLine(" - - - ")
If C = 0 Then
If B = 0 Then
Console.WriteLine("Equazione MONOMIA")
Console.WriteLine("x_1 = x_2 = 0")
Else
Console.WriteLine("Equazione SPURIA")
Console.WriteLine("x_1 = 0; " & x2 = -(B) / (2 * A) & "; x_2 = " & x2)
End If
Else
If B = 0 Then
If ((A * C) < 0) Then
Appoggio = -C / A
Console.WriteLine("Equazione PURA")
x1 = Math.Sqrt(Appoggio)
x2 = -Math.Sqrt(Appoggio)
Console.WriteLine("x_1 = " & x1 & "; x_2 = " & x2)
Else
Console.WriteLine("I coefficienti a = " & A & " e c = " & C & " sono concordi")
Console.WriteLine("Equazione IMPOSSIBILE")
End If
Else
Console.WriteLine("Equazione COMPLETA")
Dim Delta As Integer
Delta = B * B - 4 * A * C
If Delta = 0 Then
x1 = -B / (2 * A)
Console.WriteLine("Il Determinante è uguale a zero")
Console.WriteLine("x_1 = x_2 = " & x1)
Else
If Delta < 0 Then
Console.WriteLine("Il Determinante è negativo e vale " & Delta)
Console.WriteLine("Equazione IMPOSSIBILE")
Else
Appoggio = Math.Sqrt(Delta)
x1 = (-B + Appoggio) / (2 * A)
x2 = (-B - Appoggio) / (2 * A)
Console.WriteLine("Il Determinante è positivo e vale " & Delta)
Console.WriteLine("x_1 = " & x1 & "; x_2 = " & x2)
End If
End If
End If
End If
Visite: 795
venerdì 28 Aprile - 2023