Лабораторная 1. Модули

  1. Разработать модуль QuadErrors, содержащий в интерфейсной секции массив строковых констант - сообщений обо всех возможных предупреждениях и ошибках, возникающих при решении квадратного уравнения.

    Разработать программу для проверки доступности массива и всех его элементов из программы.

  2. Разработать модуль Quad, содержащий доступную извне функцию решения квадратного уравнения: 
     function QuadEq(a,b,c:real; var x1,x2:real):word;
    Функция решает квадратное уравнение, в качестве результата возвращает статус решения, строковое представление которого может быть получено из модуля QuadErrors. Если корни уравнения присутствует в действительной области, то в параметрах-переменных x1 и x2 функция размещает корни квадратного уравнения. Если решение имеет единственный корень, функция размещает его в параметре-переменной x1, при этом содержимое x2 остается неизменным. Если корни уравнения присутствуют в комплексной области, либо уравнение не является квадратным, то содержимое x1 и x2 остается неизменным.

    Разработать программу решения квадратного уравнения с использованием модулей Quad и QuadErrors.