program reidai4_5
  !
  ! Program for making KuKu Table
  !
  implicit none
  integer :: i,j
  integer,dimension(9,9) :: kuku

  do i=1,9
    do j=1,9
      kuku(i,j)=i*j
    end do
  end do

  write(*,*) 'KuKu Table'
  do i=1,9

    write(*,10) (kuku(i,j),j=1,9)
10  format(1x,9i5)

  end do

end program reidai4_5

実行結果

program reidai4_5 ! ! Program for making KuKu Table ! implicit none integer :: i,j integer,dimension(9,9) :: kuku do i=1,9 do j=1,9 kuku(i,j)=i*j end do end do write(*,*) 'KuKu Table' do i=1,9 write(*,10) (kuku(i,j),j=1,9) 10 format(1x,9i5) end do end program reidai4_5 実行結果

program reidai4_5 ! ! Program for making KuKu Table ! implicit none integer :: i,j integer,dimension(9,9) :: kuku do i=1,9 do j=1,9 kuku(i,j)=ij end do end do write(,) 'KuKu Table' do i=1,9 write(,10) (kuku(i,j),j=1,9) 10 format(1x,9i5) end do end program reidai4_5
実行結果