что неправильно в программе?? почему паскаль не признает знак ^ ?? Program lab001; var x,y:real; begin readln(x); if x>=0 then begin y := (exp(1/5*ln(exp(1/3)-x))/ (sqrt((x^2)+(x^4)+ln(abs(x-3.4)))); writeln('f(x) = ', y); end else begin y := (sin(sqr(x)+2*Pi)/ sqrt((cos(x^2))+(sin(x^4))+ln(abs(x-3.4)))); writeln('f(x) = ', y); end
Дополнен 13 лет назад
а как его заменить? ? например с 2 йстепенью понятно sqr, а с 4й??
Program lab001;
var x,y:real;
begin
readln(x);
if x>=0 then
begin
y := (exp(1/5*ln(exp(1/3)-x))/
(sqrt((x^2)+(x^4)+ln(abs(x-3.4))));
writeln('f(x) = ', y);
end
else
begin
y := (sin(sqr(x)+2*Pi)/
sqrt((cos(x^2))+(sin(x^4))+ln(abs(x-3.4))));
writeln('f(x) = ', y);
end