Составить алгоритм решения задачи нахождение корней квадратного уравнения? в форме блок-схемы и языка Паскаля

01.01.2001

составить алгоритм решения задачи нахождение корней квадратного уравнения? в форме блок-схемы и языка Паскаля
только тем кто знаете

  • опиши каждую строку словами а потом замени соответствующей фигурой по Гост 19.701-90

    uses crt;
    var a,b,c:integer;
    d,x1,x2:real;
    begin
    clrscr;
    writeln('Программа для решения квадратных уравнений! ');
    write('Введите коэффициент при x^2 --> ');
    readln(a);
    write('Введите коэффициент при x --> ');
    readln(b);
    write('Введите свободный член --> ');
    readln(c);
    d:=b*b-4*a*c;
    if (d>=0) then
    begin
    x1:=(-b+sqrt(d))/(2*a);
    x2:=(-b-sqrt(d))/(2*a);
    write('Уравнение имеет 2 корня: ');
    writeln;
    writeln('X1=',x1:4:2);
    writeln('X2=',x2:4:2);
    end
    else
    writeln('Уравнение корней не имеет, дискриминант меньше 0');
    writeln('Конец задачи ');
    readln;
    end.

Вас заинтересует