Calcolare l’equazione di secondo grado in QB64

Per calcolare l’equazione di secondo grado in QB64, dobbiamo prima definire le tre variabili a, b e c che rappresentano i coefficienti dell’equazione di secondo grado. Successivamente, dobbiamo calcolare il discriminante (b² – 4ac), che ci indica se l’equazione ha soluzioni reali o immaginarie. Infine, calcoliamo le soluzioni x₁ e x₂ usando la formula x = (-b ± √(b² – 4ac)) / 2a.

Ecco un esempio di codice in QB64:

Dim a As Single, b As Single, c As Single
Dim x1 As Single, x2 As Single, discriminante As Single

Print "Inserire il coefficiente a:"
Input a
Print "Inserire il coefficiente b:"
Input b
Print "Inserire il coefficiente c:"
Input c

discriminante = b * b - 4 * a * c

If discriminante < 0 Then
    Print "L'equazione non ha soluzioni reali."
Else

    x1 = (-b + Sqr(discriminante)) / (2 * a)
    x2 = (-b - Sqr(discriminante)) / (2 * a)

    Print "Le soluzioni sono x1 ="; x1; "e x2 ="; x2
End If

Il codice definisce le tre variabili a, b e c come singole precisioni, che sono i tipi di dati più adatti per i numeri con la virgola mobile. Quindi, chiede all’utente di inserire i valori per a, b e c. Dopo aver calcolato il discriminante, verifica se l’equazione ha soluzioni reali o immaginarie. Se il discriminante è negativo, l’equazione non ha soluzioni reali e il programma termina. Altrimenti, calcola le soluzioni x₁ e x₂ e le stampa.