?? as.f90
字號:
FUNCTION as(n,b)
DIMENSION a(15)
INTEGER n,i
REAL db
a(1)=exp(-b)/b
if (n==1) then
as=a(n)
else
db=1./b
do i=2,n
a(i)=a(1)+db*(i-1)*a(i-1)
end do
as=a(n)
end if
END FUNCTION as
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -