夏休み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
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
Author And Source
この問題について(夏休みFortran祭り 日本!), 我々は、より多くの情報をここで見つけました https://qiita.com/cure_honey/items/84eaab6b2db6f09c28eb著者帰属:元の著者の情報は、元のURLに含まれています。著作権は原作者に属する。
Content is automatically searched and collected through network algorithms . If there is a violation . Please contact us . We will adjust (correct author information ,or delete content ) as soon as possible .