soluzione e discussione per equazione secondo grado
program equa2g; uses crt; var a,b,c,d,x1,x2,r1,d1:real; h:integer; procedure scelta; begin clrscr; writeln('scrivi i coefficienti della equazione di 2øgrado'); writeln('ax^2 + bx + c = 0'); write('a=');readln(a); write('b=');readln(b); write('c=');readln(c); d:=b*b-4*a*c; if d>0 then begin writeln('due soluzioni reali distinte'); writeln('discriminante=',d:8:2); x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); writeln('x1=',x1:8:2); writeln('x2=',x2:8:2); writeln('altra equazione 1 ,fine 2 ');readln(h); if h=1 then scelta; end; if d=0 then begin writeln('due soluzioni reali coincidenti'); writeln('discriminante=',d:8:2); x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); writeln('x1=',x1:8:2); writeln('x2=',x2:8:2); writeln('altra equazione 1 ,fine 2 ');readln(h); if h=1 then scelta; end; if d<0 then begin writeln('soluzioni nel campo complesso'); d:=-(b*b-4*a*c); writeln('discriminante=',d:8:2); r1:=(-b/(2*a)); d1:=(sqrt(d)/(2*a)) ; writeln('x1=',r1:8:2,'+',d1:8:2,' i'); writeln('x2=',r1:8:2,'-',d1:8:2,' i'); writeln('altra equazione 1 ,fine 2 ');readln(h); if h=1 then scelta; end; end; begin clrscr;scelta;clrscr;end.
scrivi i coefficienti della equazione di 2°grado ax^2 + bx + c = 0 a=5 b=8 c=3 due soluzioni reali distinte discriminante= 4.00 x1= -0.60 x2= -1.00 altra equazione 1 ,fine 2 scrivi i coefficienti della equazione di 2°grado ax^2 + bx + c = 0 a=2 b=-7 c=3 due soluzioni reali distinte discriminante= 25.00 x1= 3.00 x2= 0.50 altra equazione 1 ,fine 2 scrivi i coefficienti della equazione di 2°grado ax^2 + bx + c = 0 a=3 b=-5 c=4 soluzioni nel campo complesso discriminante= 23.00 x1= 0.83+ 0.80 i x2= 0.83- 0.80 i altra equazione 1 ,fine 2 scrivi i coefficienti della equazione di 2°grado ax^2 + bx + c = 0 a=2 b=4 c=2 due soluzioni reali coincidenti discriminante= 0.00 x1= -1.00 x2= -1.00 altra equazione 1 ,fine 2