Polynom von 2tem Grad

[haui95]

Hey,

Delphi-Quellcode:

begin
 readln(a,b,c);
if a=0 then error()
else begin
         Delta := sqrt((b*b)-4*a*c);   <-- Wurzel der Diskriminante ziehen ?!  
         if delta<0 then howmany(0);
         if delta=0 then begin
                         howmany(1);
                         signforone(a,b);
                         end;
         if delta>0 then begin
                         howmany(2);
                         signfortwoadd(a,b,delta);
                         signfortwosubs(a,b,delta);
                         end;
         end;
 readln;
end.

MfG

Hauke