基本的なFortranプログラム(write文、doループ、if文)

1.write文

計算結果や格納された数値を出力するために『write』を使用する。

文字を『’ ‘』で囲み、変数(出力対象)ごとに『,』で区切る。

write(*,*) 'hello'    !文字は『''』で囲む
write(*,*) k     !変数はそのまま表示
write(*,*) 'k=',k     !k=の文字を『''』で囲み『,』で区切る

『write』を使ったプログラムの例

program zerofortran
implicit none
integer k
k=10
write(*,*) 'k=',k     !k=の文字を『''』で囲み『,』で区切る
end program zerofortran

k= 10

2.doループ

『do』を用いることで、指定した数値内で反復演算ができる。

do i=1,10     !ループの開始
k=k+i
end do     !ループの終了

『doループ』を使った反復プログラムの例

program zerofortran
implicit none
integer i,k
k=0
do i=1,10     !i=1から10まで繰り返す
k=k+i
end do
write(*,*) 'k=',k
end program zerofortran

k= 10

『doループ』を使った反復プログラムの例(増分値)

do文で増分値(初期値からnずつ増える)を設定する。

program zerofortran
implicit none
integer i,k
k=0
do i=1,10,2     !i=1から10まで増分値2で繰り返す
k=k+i
end do
write(*,*) 'k=',k
end program zerofortran

k= 25

3.if文

『if』文を使うことで、条件ごとの処理、特定の条件下での反復終了が可能。

if (A) then     !条件Aを課す
else if (B) then     !条件Bを加える
else     !条件をA,Bを満たさない時
end if     !if文の終了

『if』を使ったプログラムの例

1から10までの反復演算で偶数と奇数を分けるプログラム。

program zerofortran
implicit none
integer i,k
k=0
do i=1,10
k=k+i
if (mod(k,2)==0) then
write(*,*) k,'=even number'
else if (mod(k,2)==1) then
write(*,*) k,'=odd number'
end if
end do
end program zerofortran

1 =odd number
3 =odd number
6 =even number
10 =even number
15 =odd number
21 =odd number
28 =even number
36 =even number
45 =odd number
55 =odd number

コメント