TURBO PASCAL:Учебное пособие. Терёхин В.В. - 44 стр.

begin
  Writeln('Введите коэффициенты уравнения');
  Read (a, b, с) ;
  d:=b*b-4*a*c;
  if d < 0 then Writeln('корней нет')
  else
     begin
        xl:= (- b + sqrt(d)) / (2 * a);
        x2:= (- b - sqrt(d)) / (2 * a);
       Writeln ('корни уравнения: ');
       Writeln('X1=' , x1: 6 : 3, ' x2=' , x2: 6: 3);
     end;
end.

       16 Оператор множественного выбора (вари-
         анта) - case

      Ситуация множественного выбора возникает при напи-
сании программ достаточно часто: обработка нажатия клавиш,
обработка списков, файловых потоков и т. д. В этом случае
использование обычного ветвления затруднительно очень
много операторов ветвления потребуется включить в про-
грамму. Оператор варианта позволяет достаточно компактно
решить подобные задачи.
      Форма записи оператора case:
      case <выражение перечислимого типа> of
        <список значений и диапазонов 1>: <оператор 1>;
         <список значений и диапазонов 2>: <оператор 2>;
         ………………………………………………………..

          <список значений и диапазонов n>: <оператор n>;

         else <оператор n+1>;
       end;


                                                            44