Задан вид квадратного уравнения ах квадрат +bx+c=0, коэффициенты a,b,c. найти корни уравнения x1,x2. 1. разработать схему алгоритма программы 2. составить программу на языке паскаль по разработанному алгоритму

Var a,b,c,d,x1,x2: real; begin writeln('решение квадратных уравнений');   writeln(''); writeln('введите коэффициенты a,b,c: ');   readln(a,b,c); d: =sqr(b)-4*a*c;   if d< 0 then  writeln('корней нет');   if d=0 then begin  x1: =-b/(2*a);     writeln('один корень: ');     writeln(x1: 4: 2);       end;   if d> 0 then begin    x1: =-b+sqrt(d)/(2*a);       x2: =-b-sqrt(d)/(2*a);     writeln('корни уравнения: ');     writeln(x1: 4: 2);     writeln(x2: 4: 2);     end; end.

Доброго времени суток! для начала немного поработаем над системой неравенств. дана система: произведем несколько манипуляций с числами чтобы выявить абсолютные величины: опираясь на абсолютные величины мы смело можем сказать что справедливы все "y" и "x" значения которые удовлетворяют двум неравенствам (отсюдого она и система). можно канечно пошаманить и решить систему до конца указав области значений обоих переменных, но мы этого делать не будем, иначе для чего нам компьютер с потенциально огромной вычислительной мощностью? правильно! поэтому мы заставим его решать нашу систему неравенств ; ) программа будет написана на языке c++! #include < iostream> // определяем коды, которые покажут нам результат работы функции. #define code_incase 1 #define code_online 2 #define code_outrange 0 #define code_error -1 struct vector2 {     int x,y; }; unsigned char check_point(vector2 & point) {     if ((point.x < 2*point.y) & & (point.y < 5-point.x^2)) //определяем принадлежность     {           return code_incase; // является исключительно вложенным и не пересекает границы     }     else if(  ((point.x = 2*point.y) & & (point.y < = 5-point.x^2))  ||  ((point.x < = 2*point.y) & & (point.y = 5-point.x^2))  )     {         return code_online; // пересекает границы частично или полностью     }     else     {         return code_outrange; // не принадлежит     }     return code_error; // код ошибки (в случае взбоя алгоритма определения значений) } void main() {     vector2 point1 = {-8, 12}; //тут мы задаем координату в виде простой линейной структуры.     std: : cout  < < "{" < < point1.x < < "," < < point1.y < < "}, code  " < <   check_point(point1) < < std: : endl; //выводим на экран код обработчика.       } удачи ; )