vinarsky_evgeny

Untitled

Nov 22nd, 2015
80
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.37 KB | None | 0 0
  1. { Автор: Винарский Евгений <[email protected]>, 112 гр.}
  2. program t_11_17(input,output);
  3. var x,y: real;
  4.   function sh(z: real): real;
  5.     begin
  6.       z:=exp(z);
  7.       sh:=(z-1/z)/2;
  8.     end;
  9.   function tg(z: real): real;
  10.     begin
  11.       tg:=sin(z)/cos(z);
  12.     end;
  13. begin
  14.   read(x);
  15.   y:=sh(x)*tg(x+1)-sqrt(tg(2+sh(x-1)));
  16.   write(y);
  17. end.
Advertisement
Add Comment
Please, Sign In to add comment