2016-03: Math 1
Write a program to solve quadratic equations.
Risolvere un’equazione di secondo grado ax2+bx+c=0, dati i coefficienti a, b e c.
Un po’ di matematica…
Esempi
| Istanza | Elaborazione | Risposta | |||
| 1 | x2-5x+6=0 | a=1 b=-5 c=6 |
D=b2-4ac=… D=1>0 |
x1=… x2=… |
2 3 |
|---|---|---|---|---|---|
| 2 | x2+2x+1=0 | a=1 b=2 c=1 |
D=b2-4ac=… D=0 |
x1,2=-2/2 | -1 |
| 3 | x2+x+1=0 | a=1 b=1 c=1 |
D=b2-4ac=… D=-3<0 |
… | Impossibile |
Il codice corrispondente
|
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 |
TextWindow.WriteLine("EQUAZIONE DI SECONDO GRADO") TextWindow.WriteLine("--------------------------------------------") TextWindow.Write("A = ") a=TextWindow.ReadNumber() TextWindow.Write("B = ") b=TextWindow.ReadNumber() TextWindow.Write("C = ") c=TextWindow.ReadNumber() TextWindow.WriteLine("--------------------------------------------") delta=b*b-4*a*c TextWindow.WriteLine("DELTA = " + delta) TextWindow.WriteLine("--------------------------------------------") If(delta > 0) Then TextWindow.WriteLine("DELTA positivo: due soluzioni.") x1=(-b-Math.SquareRoot(delta))/(2*a) x2=(-b+Math.SquareRoot(delta))/(2*a) TextWindow.WriteLine("X1 = " + x1) TextWindow.WriteLine("X2 = " + x2) Else If(delta = 0) then TextWindow.WriteLine("DELTA nullo: una soluzione.") x=-b/(2*a) TextWindow.WriteLine("X = " + x) Else TextWindow.WriteLine("DELTA negativo: nessuna soluzione reale.") EndIf EndIf TextWindow.WriteLine("--------------------------------------------") |
Se il caso a=0 non viene gestito adeguatamente si incorre in una divisione per zero!
|
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 |
TextWindow.WriteLine("EQUAZIONE DI SECONDO GRADO") TextWindow.WriteLine("--------------------------------------------") TextWindow.Write("A = ") a=TextWindow.ReadNumber() TextWindow.Write("B = ") b=TextWindow.ReadNumber() TextWindow.Write("C = ") c=TextWindow.ReadNumber() TextWindow.WriteLine("--------------------------------------------") If(a = 0) Then TextWindow.WriteLine("a=0, è un'equazione di primo grado...") Else delta=b*b-4*a*c TextWindow.WriteLine("DELTA = " + delta) TextWindow.WriteLine("--------------------------------------------") If(delta > 0) Then TextWindow.WriteLine("DELTA positivo: due soluzioni.") x1=(-b-Math.SquareRoot(delta))/(2*a) x2=(-b+Math.SquareRoot(delta))/(2*a) TextWindow.WriteLine("X1 = " + x1) TextWindow.WriteLine("X2 = " + x2) Else If(delta = 0) then TextWindow.WriteLine("DELTA nullo: una soluzione.") x=-b/(2*a) TextWindow.WriteLine("X = " + x) Else TextWindow.WriteLine("DELTA negativo: nessuna soluzione reale.") EndIf EndIf EndIf TextWindow.WriteLine("--------------------------------------------") |