PROGRAMA: ECUCACIÓN FÓRMULA GENERAL.

program ecuacion;
uses crt;
var
a,b,c:real;
r,d,f:real;
x,s:real;
num,resp:char;
begin
clrscr;
writeln('solucion de la segunda ecuacion');
writeln('hay dos posibles resultados');
writeln('1.-x');
writeln('2.-x');
writeln('3.-salir');
resp:='n';
repeat
writeln('ingrese valor de a:');
readln(a);
writeln('ingrese valor de b:');
readln(b);
writeln('ingrese el valor de c:');
readln(c);
writeln('seleccione el resultado que desea saber:');
readln(num);
case num of
'1':begin
r:=(b*b);
s:=(4*a*c);
d:=(r-s);
if d>=0 then
begin
f:=(sqrt(d));
x:=(f-b);
x:=(x/2*a);
writeln('el primer resultado de la ecuaci•n es',x);
readln;
end
else
writeln('Valores erroneos, darlos de nuevo');
　
end;
'2':begin
r:=(b*b);
s:=(4*a*c);
d:=(r-s);
if d>=0 then
begin
f:=(sqrt(d));
x:=(-f-b);
x:=(x/2*a);
writeln('el segundo resultado de la ecuaci•n es',x);
readln;
end
else
writeln('Valores erroneos, darlos de nuevo');
　
end;
'3':readln;
end;
writeln('quiere saber otro resultado (s-n):');
readln(resp);
until(resp='n') or (resp='N');
readln;
end.