Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program homework; // Pascal [fpc 3.0.4]
- uses math;
- var p1,p2,p3,p4,p5,p6,p7,p8,p9,p10:real;
- begin
- p1:=(2.1*power(34.7,3)+power(37.1,5))/(power(3.17,4));
- writeln('p1=',p1);
- p2:=power(2.7,5)+3*cos(pi/4);
- writeln('p2=',p2);
- p3:=3*sqrt(1.4*power(10,3))/(1.8*7.6);
- writeln('p3=',p3);
- p4:=(power(4.5,3)*12.7-power(1.5,5)*3.7)/(2*(power(19.75,3)-power(3.12,2)));
- writeln('p4=',p4);
- p5:=(10*cos(2.5)-18*sin(3.1))/2.1;
- writeln('p5=',p5);
- 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)));
- writeln('p6=',p6);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement