有哪些信誉好的足球投注网站- 1、本文档共11页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
Chapter5回圈
Chapter 5 迴圈 5-1 Do 程式說明 do 10, I = 1, N, 1 … 10 continue 5-1 Do 程式說明 do I = 2, N, 2 … end do 5-1 Do Do使用時機 連續重複執行某一段程式碼 5-2 Do while 程式說明 do while (logical_expr) … end do 5-2 Do while 永久迴圈 當判別式永遠成真時，會形成永久迴圈 do while (1) i=5 do while(i4) i=i+1 end do i=4 do while(i=4) i=i+1 end do 5-2 Do while 程式流程圖 5-2 Do while Do while使用時機 不能事先預知 會執行幾次的迴圈時 5-3 Cycle Cycle使用時機 略過迴圈中之後的敘述，直接 跳回迴圈的開頭來執行迴圈 5-4 Exit Exit使用時機 直接跳出一個在運作中的迴圈 5-5 具名的迴圈 * 設定變數I的初值1 指定一個行代碼，兩行代碼間的程式會變成一個迴圈 變數I的終止數值N 迴圈每次的增量，若增量為1，則可省略 I=1→2→3→…→N 迴圈共跑N次 設定變數I的初值2 也可以用do - end do當作一個迴圈 變數I的終止數值N 迴圈每次的增量2 I=2→4→6→…→N 迴圈共跑N/2次 program ex0501 implicit none integer :: I integer, parameter :: N=10 do 10 I = 1, N, 1 write(*,*) Do - Loop Demo 10 continue stop end program ex0501 Ex. 完整程式 Ex. 執行結果 Do - Loop Demo Do - Loop Demo Do - Loop Demo Do - Loop Demo Do - Loop Demo Do - Loop Demo Do - Loop Demo Do - Loop Demo Do - Loop Demo Do - Loop Demo do while - end do之間為一個迴圈 當判別式為真時，執行迴圈 當判別式為假時，跳出迴圈 應改成i==4 logical_expr判斷式 statement 1 statement 2 … .TRUE. .FALSE. program ex0502 implicit none integer, parameter :: answer=45 integer :: input = 0 do while (input /= answer) write(*,*) answer = read(*,*) input end do write(*,*) You are right! stop end program ex0502 Ex. 完整程式 Ex. 執行結果 answer= 10 輸入 1 0 [ENTER] answer= 45 輸入 4 5 [ENTER] You are right! program ex0503 implicit none integer :: i integer, parameter :: n=10 do i = 1, n if (i == 4) cycle write(*, (I3)) i end do stop end program ex0503 Ex. 完整程式 當i=4時，不會被印出來 而繼續執行迴圈 Ex. 執行結果 1 2 3 5 6 7 8 9 10 program ex0504 implicit none integer, parameter :: answer=45 integer :: input do while (.true.) write(*,*) answer = read(*,*) input if (input == answer) exit end do write(*,*) You are right! stop end program ex0504 Ex. 完整程式 等式input=answer成立則跳離此迴圈 永久迴圈 Ex. 執行結果 answer= 10 輸入 1 0 [ENTER]
文档评论（0）