Fortran 千本ノック

Fortran 千本ノック 3

15本目 gotoを使う implicit none integer::i i = 2 if (i .eq. 2) go to 10 print *,"after if" 10 print *,"at 10" print *,"end"

Fortran 千本ノック 2

11本目 行列を"行""列"の順番でつくる! integer,dimension(8)::arr integer,dimension(2,4)::arr2 arr = (/1,2,3,4,5,6,7,8/) arr2 = transpose(reshape(arr,(/4,2/))) ! ! ko iu gyouretu ni naru ! ! 1 2 3 4 ! 5 6 7 8 12本目 行列の行にアクセス! inte…

Fortran 千本ノック

1本目 Int の配列をつくって1,2,3を入れる! integer,dimension(3)::arr = (/1,2,3/) 2本目 Int の10個の配列をつくって2から5まで1あとは0に! integer,dimension(10)::arr arr = 0 arr(2:5) = 1 3本目 Int の3x3の配列をつくって真ん中は1あとは0に! inte…