Решите 21 плииииииз:3

Question

Решите 21 плииииииз:3

---

Comments

Как уравнение с модулем решать?=)))

---

Вот и у меня такой же вопрос)

---

Комплексные корни учитывать? Или при D<0 писать " нет решений "?

---

Хотя, там D всегда неотрицательный будет....

---

Да, прогу)

---

Паскаль? Если да, то ABC, turbo или ABC.net ?

Answer 1

Pascal ABC.net:
Var C,D,X1,X2:real;
Begin
Write('C = ');ReadLn(C);
Write('D = ');ReadLn(D);
X1:=9+4*abs(c*d);
X2:=((3-sqrt(X1))/2);
X1:=((3+sqrt(X1))/2);
WriteLn(Abs( power(Sin(abs(C*power(X1,3)+D*sqr(X2)-C*D)),3) / sqrt(sqr(C*power(X1,3)+D*sqr(X2)-X1)+3.14) )+Tan(C*power(X1,3)+D*sqr(X2)-X1));
End.


Pascal ABC:

Var
C,D,X1,X2:real;
Begin
Write('C = ');ReadLn(C);
Write('D = ');ReadLn(D);
X1:=9+4*abs(c*d);
X2:=((3-sqrt(X1))/2);
X1:=((3+sqrt(X1))/2);

WriteLn(Abs( power(Sin(abs(C*power(X1,3)+D*sqr(X2)-C*D)),3) / sqrt(sqr(C*power(X1,3)+D*sqr(X2)-X1)+3.14) )+Sin((C*power(X1,3)+D*sqr(X2)-X1))/Cos((C*power(X1,3)+D*sqr(X2)-X1)));
End.