Elenco
- Equazioni di 1° grado
- Equazioni di 2° grado
- Coefficiente a nullo
Equazioni di 1° grado
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
START QUERY "a = ", a QUERY "b = ", b IF a <> 0 THEN x=-b/a WRITE "x=", x ELSE IF b <> 0 THEN WRITE "Imp." ELSE WRITE "Ind." ENDIF ENDIF END |
Equazioni di 2° grado
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
START QUERY "a = ", a QUERY "b = ", b QUERY "c = ", c d=b^2-4*a*c WRITE "Discriminante=", d IF d <> 0 THEN d2=squareroot(d) x1=(-b-d2)/(2*a) x2=(-b+d2)/(2*a) WRITE "x1=", x1 WRITE "x2=", x2 ELSE IF d = 0 THEN x=-b/(2*a) WRITE "x=", x ELSE WRITE "No sol." ENDIF ENDIF END |
Coefficiente a nullo
Se il coefficiente a è nullo chiama il modulo che risolve l’equazione di 1° grado passando i parametri b e c (che diventano a e b…)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 |
START QUERY "a = ", a QUERY "b = ", b QUERY "c = ", c IF a = 0 THEN CALL eq1(b,c) ELSE d=b^2-4*a*c WRITE "Discriminante=", d IF d > 0 THEN d2=squareroot(d) x1=(-b-d2)/(2*a) x2=(-b+d2)/(2*a) WRITE "x1=", x1 WRITE "x2=", x2 ELSE IF d = 0 THEN x=-b/(2*a) WRITE "x=", x ELSE WRITE "No sol." ENDIF ENDIF ENDIF END ENTER a, b IF a <> 0 THEN x=-b/a WRITE "x=", x ELSE IF b <> 0 THEN WRITE "Imp." ELSE WRITE "Ind." ENDIF ENDIF RETURN |