Помогите найти ошибку(выводить неправильный ответ)
нужно вычислить y=tg(x^3)+|x^2-x^5|
program 2;
uses crt;
var x:Integer;
y: Real;
begin
Write('x=');// Ввод значения x
ReadLn(x);
y:=(Sin(Exp(x)*3)/Cos(Exp(x)*3))+Abs(Exp(x)*2-Exp(x)*5); //формула
WriteLn('y=', y);
end.
нужно вычислить y=tg(x^3)+|x^2-x^5|
program 2;
uses crt;
var x:Integer;
y: Real;
begin
Write('x=');// Ввод значения x
ReadLn(x);
y:=(Sin(Exp(x)*3)/Cos(Exp(x)*3))+Abs(Exp(x)*2-Exp(x)*5); //формула
WriteLn('y=', y);
end.
More Questions From This User See All
Answers & Comments
Ответ:
Объяснение:
Во, первых программу не следует называть просто цифрой, в некоторых компиляторах будет ошибка.
Во-вторых вместо Когда используешь функцию Exp следует предавать два значения. Или просто использовать Sqr(x)
program prog1;
uses crt;
var x:Integer;
y: Real;
begin
Write('x=');// Ввод значения x
ReadLn(x);
y:=(Tan(Sqr(x)*3))+Abs(Exp(ln(X) * 2)-(Exp(ln(X) * 5)));
WriteLn('y=', y);
end.