program xuexi3
implicit none
integer,external::fact*呼叫函式需要寫external（待定）*
integer::n
write(*,*)"n="
read(*,*)n
write(*,*)fact(n)
stop
endrecursive integer
function
fact(n) result(ans)
*recursive英文解釋就是遞迴，使用時要加*
*ans可以不定義資料型別*
if(n<0)then
ans=-1
return*要記得有return*
else
if(n==1)then
ans=1
return
end if
ans=n*fact(n-1)
return
stop
endfunction
integer,external:
:fact*不用再宣告*
——————-**
初學者如何理解遞迴
0 遞迴的定義 如果你沒明白遞迴的定義，參見本文 0.遞迴的定義 1 從斐波那契數列開始 斐波那契的遞推公式 斐波那契數列遞迴演算法和遞推公式類似 int fibo int x 就這麼簡單？沒錯，通過這個例子可以看出，遞迴函式只需要寫兩部分，乙個是遞迴終止條件 if x 3 return 1 乙個是...
初學者談初學者學html
這是乙個段落。解釋一下就是 html 與 html 之間的文字是描述網頁。head 與 head 之間的文字是文件的元資料。title 與 之間的文字是文件的標題。body 與 body 之間的文字是可見的頁面內容，是文章的主體部分。h1 與 h1 之間的文字被顯示為乙個大標題。p 與 p 之間的文...
初學者mysql MySQL初學者使用指南
有很多朋友雖然安裝好了mysql但卻不知如何使用它。在這篇文章中我們就從連線mysql 修改密碼 增加使用者等方面來學習一些mysql的常用命令。一 連線mysql。1 例1 連線到本機上的mysql。首先在開啟dos視窗，然後進入目錄 mysqlbin，再鍵入命令mysql uroot p，回車後...