Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:066536 / 21
.txt 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(x1<x2)then 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);//если tg нет то использую sin/cos
writeln(s);
end.
begin
readln(c,d);
discremenat:=9+4*abs(c*d);
x1:=(3+sqrt(discremenat))/2;
x2:=(3-sqrt(discremenat))/2;
if(x1<x2)then 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);//если tg нет то использую sin/cos
writeln(s);
end.