夏休みFortran祭り 日本!


東洋平和

00000000000000000000000000000000
00000000000000000000000000000000
00000001111111111111111000000000
00000001000000000000001000000000
00000001000000000000001000000000
00000001000000000000001000000000
00000001000000000000001000000000
00000001111111111111111000000000
00000001000000000000001000000000
00000001000000000000001000000000
00000001000000000000001000000000
00000001000000000000001000000000
00000001111111111111111000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000110000000000000000
00000000000000110000000000000000
00001111111111111111111111110000
00000000000001111000000000000000
00000000000010110100000000000000
00000000000100110010000000000000
00000000001000110001000000000000
00000000010000110000100000000000
00000000100000110000010000000000
00000001001111111111001000000000
00000110000000110000000110000000
00011000000000110000000001100000
00000000000000000000000000000000
00000000000000000000000000000000
続行するには何かキーを押してください . . .

ソース・プログラム

    program Nippon_main
      implicit none
      integer, parameter :: nippon(*) = &
      [0, 0, 33553920, 16777728, 16777728, 16777728, 16777728, & 
       33553920, 16777728, 16777728, 16777728, 16777728, 33553920, &
       0, 0, 196608, 196608, 268435440, 491520, &
       737280, 1253376, 2297856, 4392960, 8586240, 20967936, &
       100860288, 402849888, 0, 0]
      print '(b32.32)', nippon
    end program Nippon_main