Розв’язок задачі з Абрамова №21

Всі умови | Умова: Дано дійсні числа c, d. Обчислити ... (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №21)

program Pr21;
var
  S, c, d, x1, x2, discremenat : real;
begin
  readln(c, d);
  discremenat:=9+4*abs(c*d);
  x1:=(3+sqrt(discremenat))/2;
  x2:=(3-sqrt(discremenat))/2;
  if(x1then begin discremenat:=x2;x1:=x2;x2:=discremenat;end;
  discremenat:=abs(c*x1*x1*x1+d*x2*x2-c*d);
  s:=abs((sin(discremenat)*sin(discremenat)*sin(discremenat))/(sqrt(sqr(discremenat)+3.14)));
  s:=s+sin(c*x1*x1*x1+d*x2*x2-x1)/cos(c*x1*x1*x1+d*x2*x2-x1);
  writeln(s);
end.