1.
Составить программу для вычисления x и y по формулам
![x= sqrt[4]{sin 0.35ab} ; y=ctg frac{3.04a}{2 pi }+2sin frac{ ab^{2} }{3c}](https://tex.z-dn.net/?f=x%3D+sqrt%5B4%5D%7Bsin+0.35ab%7D+%3B+y%3Dctg++frac%7B3.04a%7D%7B2+pi+%7D%2B2sin+frac%7B+ab%5E%7B2%7D+%7D%7B3c%7D+ "x= sqrt[4]{sin 0.35ab} ; y=ctg frac{3.04a}{2 pi }+2sin frac{ ab^{2} }{3c}")
Ответы на вопрос
Ответил preceptor
0
Program Zadacha;
Var a, b, c, x, y: Real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
x := Exp(0.25 * Ln(Sin(0.35 * a * b)));
y := Cos((3.04 * a) / (2 * x)) / Sin((3.04 * a) / (2 * x)) + 2 * Sin((a * b * b) / (3 * c));
WriteLn('x = ', x:5:2);
WriteLn('y = ', y:5:2);
ReadLn;
End.
Var a, b, c, x, y: Real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
x := Exp(0.25 * Ln(Sin(0.35 * a * b)));
y := Cos((3.04 * a) / (2 * x)) / Sin((3.04 * a) / (2 * x)) + 2 * Sin((a * b * b) / (3 * c));
WriteLn('x = ', x:5:2);
WriteLn('y = ', y:5:2);
ReadLn;
End.
Новые вопросы