Var a,b,c,e,f,g,h,w,d,x1,x2:real; begin writeln('e, f, g, h, w:'); readln(e,f,g,h,w); a:=sqrt(abs((w+h)/e)); b:=sqr(e+f); c:=sqrt(abs(g-2*e))-sin(f); writeln('a = ',a,' b = ',b,' c = ',c); d:=b*b-4*a*c; writeln('d = ',d); if d>0 then begin x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); writeln('x1 = ',x1,' x2 = ',x2); end else if d=0 then begin x1:=-b/(2*a); writeln('x = ',x1); end else writeln('Корней нет'); end.
Пример: e, f, g, h, w: 8 -5 2 3 5 a = 1 b = 9 c = 2.7827331121108 d = 69.8690675515568 x1 = -0.320614053728802 x2 = -8.6793859462712
Ошибки могут встречаться в постановке задачи, формализации, разработке модели и даже в тестировании. Когда ошибка обнаружена, естественно, надо устранять её