• 数组
  • 笛卡尔积

数组

笛卡尔积

aid a1 a2bid b1 b2
  1 66 74  1 76 84
  2 89 79  1 76 84
  1 66 74  2 99 59
  2 89 79  2 99 59

Process returned 0 (0x0)   execution time : 0.167 s
Press any key to continue.

program learn
    implicit none
    integer,dimension(2,3)::a
    integer,dimension(2,3)::b
    integer::i,j
    a=reshape([1,2,66,89,74,79],[2,3])
    b=reshape([1,2,76,99,84,59],[2,3])
    write (*,120) 'aid','a1','a2','bid','b1','b2'
    write (*,110) ((a(i,:),b(j,:),i=1,2),j=1,2)
    110 format (6(I3))
    120 format (6(A3))
end program learn