Изменить приведенную программу, используя оператор варианта CASE(Pascal)

[Nitoo]

квадратное уравнение
А*х*x + В*х + С = 0
задача допускает 6 вариантов решения в зависимости от численного значения коэф-фициентов:
1.А = В = С = 0 - решений бесконечно много, х - любое число;
2.А = В = О, С не равно 0 - решений не существует;
3.А = 0; В не равно 0 - единственное решение х = - С/В;
4.А не равно 0; В2 - 4АС = 0 - кратные корни х1 = х2 = - В/2А;
5.А не равно 0; В2 - 4АС > 0 - два вещественных корня;
6.А не равно 0; B2 - 4АС<0 - два комплексно-сопряженных корня.


Задание: Изменить приведенную программу, используя оператор варианта CASE

Program cwadr (input, output);
label 20;
var a, b, c, d, e, d1, x, x1, x2 : real;
begin
writeln ('введите a, b, c'); readln ('a, b, c');
if a=0 then begin
if b=0 then begin
if c=0 then begin
writeln ('x-любое число');
goto 20; end;
writeln ('решений нет');
goto 20; end;
writeln ('корень один x= ', x);
goto 20; end;
d:= b*b-4*a*c; e:= 2*a;
if d=0 then begin
writeln ('корни кратные х1 = х2 = ', -b/e);
goto 20; end;
d1:= sqrt (abs (d));
if d<0 then begin
writeln ('корни комплексно-сопряженные');
writeln ('x1 = ', -b/e, ' -i* ', d1/e);
writeln ('x2 = ', -b/e, ' +i* ', d1/e);
goto 20; end;
writeln ('корни действительные');
writeln ('x2 = ', ( - b+d1)/e );
writeln ('x1 = ', ( - b+d1)/e );
20; 
end.

[krGorka]

Наверное , приблизительно так:

Program cwadr (input, output);
var  a,b,c:real;
      x1,x2,d,e : real;
      i:integer;
 begin
  writeln ('введите a, b, c'); readln ('a, b, c');

  if ((a=0) and (b=0) and(c=0)) then i:=1;
  if ((a=0) and (b=0) and(c<>0)) then i:=2;
  if ((a=0) and (b<>0) ) then i:=3;
  if (a<>0) then
   begin
    d:=b*b-4*a*c;
    e:=2*a;
    if  (d= 0 ) then i:=4;
    if  (d> 0 ) then i:=5;
    if (d < 0 ) then i:=6;
   end;

  case i of
  1: writeln ('x-любое число');
  2: writeln ('решений нет');
  3: begin 
       x1:=-c/b;
       writeln ('корень один x= ', x1);
      end;
  4: begin
      x1:= -b/e;
      writeln ('корни кратные х1 = х2 = ', x1);
     end;
  5: begin
      d:=sqrt(d);
      x2:=(-b-d)/e;
      x1:=(-b+d)/e;
     writeln ('корни действительные x1 = ',x1, '  x2 = ',x2);
     end;
  6: begin
       writeln ('корни комплексно-сопряженные');
      writeln ('x1 = ', -b/e, ' -i* ', d/e);
      writeln ('x2 = ', -b/e, ' +i* ', d/e);
     end;
  end;
end.

Метки уже давно не в моде.

[savva]

как я понял

if ((a=0) and (b=0) and(c=0)) then i:=1;
  if ((a=0) and (b=0) and(c<>0)) then i:=2;
  if ((a=0) and (b<>0) ) then i:=3;
  if (a<>0) then
   begin
    d:=b*b-4*a*c;
    e:=2*a;
    if  (d= 0 ) then i:=4;
    if  (d> 0 ) then i:=5;
    if (d < 0 ) then i:=6;
   end;

этого не должно быть, и любое упоминание if карается неудом