Fortran流程控制與邏輯運算 迴圈 xdd

2022-04-29 10:21:06 字數 1609 閱讀 1070

1.if語句

1 if

() then

...end

if2 if

() then

...else

...  end

if3 if() then

...else if() then

...else if() then

......

else

...end if

4 if() then !if巢狀

if() then

else if() then

else

end if

else if () then

else

end if

2.邏輯運算

==.eq.

.and.交/=

.ne.

.or.

.gt.

.not.

取=.ge.

.eqv.

兩邊邏輯結果相同時,表示式成立

<

.lt.

.neqv

兩邊邏輯結果不同時,表示式成立

<=

.le.

3.select case語句

select

case(變數) !變數只能為integer、character、logical型別,如case(1),case(1:5),case(1:),case(:5), case('+')

case

(數值1)

...case

(數值2)

......

case

default

...end

select

4.其他流程控制

if(a<10

) then

goto

100end

if100 write(*,*)"

最後結果是

",a!goto(100,200,300)a

• pause   !執行到此暫停,等待enter繼續執行

write by xdd  2019-09-19  16:48:26

5.do迴圈

1

do counter=1,lines,1

2...

3 end do45

dowhile(邏輯運算)  !邏輯運算成立時,會一直執行

6...

7 end do89

do10

do11   ...

12   end do

13 end do

6.迴圈的流程控制

outer: do i=1,10,1

inner:

do j=1,10,1

write(*,"

("('

,i2','

,i2')")"

) i,j !輸出結果為形如(1,2)

end

doinner

end

do outer

write by xdd  2019-09-20  09:42:52

Fortran 95 流程控制 迴圈

主要參考 fortran 95 程式設計 彭國倫 if 邏輯判斷式 then else end if 運算符號 and.or.not.select case語句 select case 變數 case 數值1 case 數值2 case 數值n case default end select cas...

流程控制,邏輯語句

復合語句 開始,結束 程式 相對於乙個小型塊,乙個小型作用域,區域性變數生命週期在這個模組中結束 條件語句 1.if 布林表示式 語句序列 如果只有一條語句,可以省略 2.if 表示式 若干語句 else 若干語句 3.if 條件表示式1 語句序列1 else if 條件表示式2 語句序列2 els...

流程控制與陣列

順序結構,分支 選擇 結構,迴圈結構 塊中沒有if,switch,for,while等的,都是順序結構 if分支 單分支,二路分支,多分支 switch分支 說明 根據switch後面表示式的值,去依次和case後面的值匹配,遇到匹配的就從這個case進入,執行後面的 塊,不再判斷後面的case d...