[VB.NET] Calcolo del Delta

Module Module1

    Sub Main()

        'Calcolo Delta

        'Variabili

        Dim a As Single
        Dim b As Single
        Dim c As Single
        Dim d As Single
        Dim text00 As String
        Dim text0 As String
        Dim text1 As String
        Dim text2 As String
        Dim text3 As String
        Dim text4 As String
        Dim text5 As String
        Dim text6not As String
        Dim textfin As String

        'VARIABILI RADICE

        Dim i As Double 'Variabile i
        Dim f As Double ' Variabile f
        Dim pm As Double 'Variabile pm
        Dim RisRad As String

        'SOLUZIONI x1 e x2

        Dim RP As Double
        Dim RN As Double
        Dim textSolUno
        Dim textSolDue

        '-----------------------------

        'Spiegazione variabili
        text00 = "Ricorda che: se Delta > 0 e si ricerca x > 0, la soluzione avrà valori esterni. Se Delta > 0 e si ricerca x < 0, la soluzione avrà valori interni. Se Delta < 0 e x > 0  la soluzione è Per ogni x. Se Delta < 0 e x < 0 la soluzione è Impossibile"
        text0 = "Inserisci B, invio; Inserisci A, invio; Inserisci C, invio; Visualizzerai il delta quanto vale"
        text1 = "Il Delta vale:" & d
        text3 = "Il Delta è maggiore di zero quindi l'equazione ha due soluzioni distinte. "
        text4 = "Il Delta è uguale a zero quindi l'equazione ha due soluzioni coincidenti."
        text5 = "Il Delta è minore di zero quindi l'equazione non ha soluzioni, o ha soluzione come OGNI X"
        text6not = ""
        textfin = "Approssima la radice non contare tutti i numeri dopo la virgola ;)"
        textSolUno = RP & " <- La soluzione x1 positiva"
        textSolDue = RN & " <- La soluzione x2 negativa"
        'Inserire variabili e letture
        System.Console.Write(text00)
        '/* Come premere Invio
        System.Console.WriteLine(text6not)
        System.Console.WriteLine(text6not)
        '*/

        '/* Invio
        System.Console.WriteLine(text6not)
        'Inserisci variabili
        System.Console.Write(text0)
        'Invio */
        System.Console.WriteLine(text6not)

        b = System.Console.ReadLine() 'valore A
        a = System.Console.ReadLine() 'valore B
        c = System.Console.ReadLine() 'valore C
        d = (b * b) - (4 * a * c) 'Delta

        'Scrivi quanto vale Delta

        text2 = d & " <- Valore Delta "
        MsgBox(text2)

        'Condizioni con il Delta

        'Delta > 0
        If d > 0 Then
            MsgBox(text3)
            'Delta = 0
        ElseIf d = 0 Then
            MsgBox(text4)
            'Delta < 0
        ElseIf d < 0 Then
            MsgBox(text5)
        End If

        'Per fare una prova:
        'assegniamo a B il valore 12, ad A 11 e a C 1
        'B = 12, A = 11, C = 1
        ' (12*12) - (4*11*1)
        ' 144 - 44
        ' 100 <- Valore Delta
        ' Delta > 0 (vedi messaggio)

        'B = 12, A = 36, C = 1
        ' (12*12) - (4*36*1)
        ' 144 - 144
        ' 0 <- Valore Delta
        ' Delta = 0 (vedi messaggio)

        'B = 12, A = 30, C = 10
        ' (12*12) - (4*30*10)
        ' 144 - 1200
        ' -1056 <- Valore Delta
        ' Delta < 0 (vedi messaggio)
        ' ---------------------------------------------
        'RADICE

        If (d > 1) Then 'qui se A1 è > 0 allora
            i = 1 'Intervallo iniziale diventa 1
            f = d 'Int finale diventa A1 (delta)
        Else 'Altrimenti
            i = d 'Int iniz diventa A1 (delta)
            f = 1 'Int finale diventa 1
        End If

        Do 'Inizio CICLO DO UNTIL
            pm = (i + f) / 2 'calcolo punto medio

            If (pm * pm > d) Then 'se pm al quadrato maggiore di A1 (delta)
                f = pm 'Allora int finale diventa pm
            Else 'altrimenti
                i = pm 'int finale diventa pm
            End If

        Loop Until Math.Abs((pm * pm) - d) < 0.1 'continuazione del calcolo finche pm al quadrato - a sia minore di 0,0001
        System.Console.WriteLine(pm)

        RisRad = Math.Truncate(pm) & " <- La radice di Delta" 'Messaggio che riporta il valore della radice del delta.

        System.Console.WriteLine(text6not) 'Invio
        System.Console.WriteLine(text6not) 'Invio
        System.Console.WriteLine(textfin) 'Approssimare la radice

        System.Console.WriteLine(RisRad)
        MsgBox(RisRad) 'Risultato radice
        MsgBox(textfin)

        'Con questo programma si può quindi calcolare il delta e la sua radice

    End Sub

End Module