Составьте блок схему и дано для программы uses crt; var a,b,c,d,x1,x2: real; begin {вводим значения a, b и c} clrscr; write('wwedite a: '); readln(a); write('wwedite b: '); readln(b); write('wwedite c: '); readln(c); {вычисляем дискриминант} d: = b*b - 4*a*c; {если дискриминант больше 0, то вычисляем корни и выводим на экран} if d > 0 then begin x1: = (b - sqrt(d))/(2*a); x2: = (-b - sqrt(d))/(2*a); writeln('x1 = ',x1: 0: 4); writeln('x2 = ',x2: 0: 4); end; {если дискриминант равен 0, то вычисляем один корень и выводим на экран} if d = 0 then begin x1: = -(b/(2*a)); writeln('koren = ',x1: 0: 4); end; {если дискриминант меньше 0, то выводим сообщение} if d < 0 then begin writeln('korney net'); end; readln; end.
a,b,c,d,x1,x2 дробные переменные;
библиотека crt;
блок-схему сделала программа FCEditor, так легко. Только дописать Program и убрать через блокнот пару знаков до Program (их видно в кодировке у блокнота win-1251). И тогда можно всунуть в неё.