Advertisement
Dzhubal

Untitled

Apr 16th, 2020
277
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.59 KB | None | 0 0
  1. program homework; // Pascal [fpc 3.0.4]
  2. uses math;
  3. var p1,p2,p3,p4,p5,p6,p7,p8,p9,p10:real;
  4. begin
  5.     p1:=(2.1*power(34.7,3)+power(37.1,5))/(power(3.17,4));
  6.     writeln('p1=',p1);
  7.     p2:=power(2.7,5)+3*cos(pi/4);
  8.     writeln('p2=',p2);
  9.     p3:=3*sqrt(1.4*power(10,3))/(1.8*7.6);
  10.     writeln('p3=',p3);
  11.     p4:=(power(4.5,3)*12.7-power(1.5,5)*3.7)/(2*(power(19.75,3)-power(3.12,2)));
  12.     writeln('p4=',p4);
  13.     p5:=(10*cos(2.5)-18*sin(3.1))/2.1;
  14.     writeln('p5=',p5);
  15.     p6:=2*power((7.4*power(10,16)+1.8*power(10,3)),0.3)/(3*sqrt(1.8*power(10,7)+sqr(8.7)));
  16.     writeln('p6=',p6);
  17. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement