Помогите, пожалуйста!!!)) Не могу найти ошибку в программе, только начали изучать...

Question

Помогите, пожалуйста!!!)) Не могу найти ошибку в программе, только начали изучать паскаль.


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.

---

Answer 1

Где Вы только нашли такую задачу? о_О Ну вот решил, только, чтобы мозги у меня не сгорели, функцию взвода в степень вынес отдельно:)

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.

Comments

Большое спасибо за решение! Учительница вообще ничего не объясняет(

---

Наша тоже не объясняла, как-то само выучилось, а вообще можно попробовать курсы смотреть, если инет позволяет, а если нет, то читать что-нибудь, но это так, если желание есть)