Язык программирования ABC PASCAL

Последнюю ветвь else можно оптимизировать, убрав повторяющиеся вычисления (особенно вычисление квадратного корня)

else begin

d:=sqrt(d); a:=2*a;

x1:=(-b+d)/a;

x2:=(-b-d)/a;

write('x1=',x1,' x2=',x2)

end

- 46 -

01.06.2013