Всі умови | Умова: Дано дійсні числа 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.