Question

Помогите найти ошибку(выводить неправильный ответ) нужно вычислить 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.

Answer 1

Ответ:

Объяснение:

Во, первых программу не следует называть просто цифрой, в некоторых компиляторах будет ошибка.

Во-вторых вместо Когда используешь функцию 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.

Answer 2

Проблема в формуле для вычисления y. Для вычисления выражения y=tg(x^3)+|x^2-x^5|, вам нужно использовать функцию тангенса (tg) и модуль (|x^2-x^5|). Формула должна выглядеть так:

y := Tan(xxx) + Abs(xx - xxxx);

Ваш код вычисляет другую формулу, которая не соответствует требованию. Вычисление y в вашем коде должно выглядеть так:

y := Tan(xxx) + Abs(xx - xxxx);

Также, не забудьте добавить Math модуль в ваш код, чтобы использовать функции Sin, Cos, Abs и Tan.

Вот исправленный код:

program 2; uses crt, Math; var x: Integer; y: Real; begin Write('x='); ReadLn(x); y := Tan(xxx) + Abs(xx - xxxx); WriteLn('y=', y); end.