Advertisement
haunted_mind

l3e2evm

Nov 4th, 2020
517
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.35 KB | None | 0 0
  1. program l3e2evm;
  2. {Ivan Ryvonenko, PM-12}
  3.  
  4. uses crt;
  5. var
  6.   s,t,result:real;
  7.  
  8.  
  9.  
  10. function f(a,b,c:real):real;
  11. begin
  12.   f:=(2*a+b-cos(c))/(5+abs(c));
  13. end;
  14.  
  15. begin
  16.   clrscr;
  17.   writeln;
  18.   write ('Enter s,t-> ');
  19.   readln(s,t);
  20.  
  21.  
  22.   result:=f(t,2*s,s-t) + f(2.2,t,s+t);
  23.  
  24.   writeln('f(t,2*s,s-t)+f(2.2,t,s+t) = ',result:10:4);
  25.  
  26.  
  27.  
  28.   readln;
  29. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement