equazione 2° grado

esci algebraturbo.htm

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


--------------------------------------------------------------------------------

inizio