Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 11 стр.

                                       — любое число.

  5    a=0, b=0, c<>0      0   0   2   Неправильное уравнение

  6    a=0, b<>0           0   2   1   Линейное уравнение. Один корень:
                                        x = - 0,5

  7    a <> 0, b <> 0, с   2   1   0   x1 = 0, x2 = - 0,5
       =0



Школьный АЯ (упрощенный алгоритм)
алг Квур (арг вещ а, b, c, рез вещ x1, x2, рез лит t)
    дано a <> 0
нач вещ d
  d := b**2-4*a*c | d - дискриминант квадратного уравнения
  если d<0
     то t := "Действительных корней нет"
     иначе если d=0
             то t := "Корни равны"; x1 := -b/(2*a); x2 := x1
             иначе t := "Два корня"
                    x1 := (-b + sqrt(d)) / (2*a)
                    x2 := (-b - sqrt(d)) / (2*a)
           все
  все
кон

Turbo Pascal
Program QuadraticEquation;
  Uses Crt; { подключение библиотеки Crt }
  Var a, b, c       : Real;         {a, b, c - коэффициенты
уравнения}
       Discr        : Real;
       x1, x2       : Real;         {x1, x2 - корни }
       Test, NTest : Integer;       {Ntest - количество тестов }
BEGIN
  ClrScr;
  Write('Введите количество тестов : ');
  ReadLn(NTest);
  For Test := 1 to NTest do {цикл по всем тестам задачи }
   begin
     Write('Тест ', Test, '. Введите коэффициенты a, b, c : ');
     ReadLn(a, b, c);
     If (a=0) and (b=0) and (c=0)
      then begin Write('Все коэффициенты равны нулю.');
                  WriteLn('x - любое число ')
             end
      else
       If (a=0) and (b<>0)
         then WriteLn('Линейное уравнение. Oдин корень: x =', (-
c/b):6:2)
         else