Заменить в программе if на case - Pascal - Ответ 6661505

if условие then
  нечто_1 
else
  нечто_2;

case условие of
true:
  нечто_1;
false:
  нечто_2;
end;

case условие of
true:
  нечто_1;
else
  нечто_2;
end;

procedure SolveSqEq(a, b, c: Real);
var
  d, e, f: Real;
begin
  case a=0 of
  true: 
    case b=0 of
    true:
      case c=0 of
      true:
        WriteLn('x - любое число');
      false:
        WriteLn('решений нет');
      end;
    false:
      WriteLn('корень один, x = ',-c/b);
    end;
  false:
    begin
      d:=b*b-4*a*c;
      e:=2*a;
      case d=0 of
      true:
        writeln ('корни кратные, х1 = х2 = ', -b/e);
      false:
        begin
          f:=sqrt(abs(d));
          case d<0 of 
          true:
            begin
              WriteLn ('корни комплексно-сопряженные');
              WriteLn ('x1 = ', -b/e, ' -i* ', f/e);
              WriteLn ('x2 = ', -b/e, ' +i* ', f/e);
            end; 
          false:
            begin
              WriteLn('корни действительные');
              WriteLn('x1 = ', (-b+f)/e);
              WriteLn('x2 = ', (-b-f)/e);
            end;
          end;
        end;
      end;
    end;
  end;
end;
 
var a, b, c: Real;
begin
  Write('Введите a, b, c: '); ReadLn(a,b,c);
  SolveSqEq(a,b,c);
end.