Advertisement
Guest User

Untitled

a guest
Feb 19th, 2020
105
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.44 KB | None | 0 0
  1. // calculate 'S' and 'theta angle'
  2. program Hello;
  3. const
  4.     n = 5;
  5.     a = 8.3;
  6.     h = 13.1;
  7. var
  8.     S, theta, Sb, So, R, _r, c, b: real;
  9. begin
  10.   R := a / sqrt((5 - sqrt(5)) / 2);
  11.   _r := sqrt(sqr(R) - sqr(a / 2));
  12.   c := sqrt(sqr(h) + sqr(_r));
  13.   So := n * a * _r / 2;
  14.   Sb := n * a * c / 2;
  15.   S := So + Sb;
  16.  
  17.   b := sqrt(sqr(h) + sqr(R));
  18.   theta := arccos(R / b);
  19.  
  20.   writeln('S = ', S, ' cm^2');
  21.   writeln('theta = ', theta, ' rad')
  22.  
  23. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement