已知圆的半径计算面积

代码

program ex_04_02
real r,s,pi
  pi = 3.1415926D0
  write(*,*) "Please input the r:"
  read (*,*) r
  s = pi*r**2
write(*,*) "The result is:",s
end

这里，先输入半径的大小，然后计算面积s，最后输出面积。