Помогите, пожалуйста!!!)) Не могу найти ошибку в программе, только начали изучать паскаль.
program zadanie;
uses crt;
var x,v,a,f,d:integer;
y:real;
begin
clrscr;
writeln ('vvedite x,v,a,f,d');
readln (x,v,a,f,d);
y:=(exp((2+x)*ln(cos(v-sqr(a)*a)))*(sqrt((sqr(sqr(sin(exp((x*v)*ln(v)))))*(sin(exp(
(x*v)*ln(v))))+f*d)/(sin(5*x)/cos(5*x)+(sqrt(sin(v*v))));
writeln(y= ', y);
readln;
end.
Answers & Comments
program zadanie;
uses crt;
var x,v,a,f,d:integer;
y:real;
function sq(X: Real; Y: Real): Real;
begin
sq := exp(ln(X) * Y);
end;
begin
clrscr;
writeln ('vvedite x,v,a,f,d');
readln (x,v,a,f,d);
y:=sq(cos(v - sq(a, 2)), 2 + x) * sqrt((sq(sin(sq(v, x * v)), 5) + f * d)/(sin(5 * x) / cos(5 * x) + sqrt(sin(sq(v, 2)))));
writeln('y= ', y);
readln;
end.