📄 e_121_06.f90
字号:
real :: r(3)
data r /1, 3, 12.5/
do i=1,3
print *, '半径=', r(i), '圆周长=', C(r(i))
end do
end
function c(radius)
pi=acos(-1.0)
c=2*pi*radius
return
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -