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
コメント