编辑代码

program main
    real::b,h,r,a,s,pi=3.1415926,sita,area
 read*,r,sita
 b=2*r*sin(sita/2)
 h=2*r*sin(sita/4)
 s=(pi*sita*r)/180
 area=(r*s)/2
 print*,h,b,s,area
end