Вычислить значение выражения - Pascal ABC (14519)

Формулировка задачи:

Даны x,y,z. Вычислить u,v, если

Код к задаче: «Вычислить значение выражения - Pascal ABC (14519)»

textual
var x,y,z,u,v:real;
begin
writeln('Введите x,y,z');
readln(x,y,z);
u:=sin(abs((y-sqrt(abs(x)))*(x-y/(x*x+x*x/4))));
v:=cos(z*z+x*x/4);
write('u=',u:0:3,'  v=',v:0:3);
end.

7   голосов, оценка 3.714 из 5


СОХРАНИТЬ ССЫЛКУ