Вот задача которую задал препод
Дано рівняння виду x*x*a+x*b+c=0  .Знайти корені x1 ,та  x2
Вот как я её зделал.
 program kv;
var
 a,b,c,D,x1,x2:real;    
begin
    Write('a= ');
    ReadLn(a);
    Write('b= ');
    ReadLn(b);
    Write('c= ');
    ReadLn©;
 D:=b*b-4*a*c;
 if d<0
 then writeln('НЕТУ КОРЕНЕЙ')
  else if d=0 then writeln('ОДИН КОРЕНЬ= ',-b/2*a)
  else begin
          d:=sqrt(d);
          x1:=(-b+d)/(2*a);
          x2:=(-b-d)/(2*a);
          WriteLn('x1=',x1);
          WriteLn('x2=',x2);
        end;  
end.
 
Но препод сказал что она зделана не полностю,только для 3 випадков когда 
1)D>0
2)D<0
3)D=0
А вот нужно написать ищо когда
4)а=0
5)b=0
6)c=0
7)a,b=0
8)a,c=0
9)b,c=0
10)a,b,c=0
Как написать програму на ету хрень...

Вот мой вариант:

P.S. Пиши по-русски.

Это сообщение отредактировал(а) Keeper89 - 5.6.2009, 23:30

Keeper89, со скобками фигня какая-то

bems, подправил.

Это сообщение отредактировал(а) Keeper89 - 5.6.2009, 23:30

Keeper89ну я в таком плане и думал,но нужно всьо правильно оргинизовать

Вот, все правильно организовано:

Keeper89 спасиб,работает на всех случаях 

Это сообщение отредактировал(а) BlooDSikeR - 6.6.2009, 13:45