結果
問題 | No.401 数字の渦巻き |
ユーザー |
![]() |
提出日時 | 2016-07-22 23:14:36 |
言語 | Fortran (gFortran 14.2.0) |
結果 |
AC
|
実行時間 | 2 ms / 2,000 ms |
コード長 | 805 bytes |
コンパイル時間 | 176 ms |
コンパイル使用メモリ | 33,232 KB |
実行使用メモリ | 6,820 KB |
最終ジャッジ日時 | 2024-11-06 09:21:56 |
合計ジャッジ時間 | 1,091 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 30 |
ソースコード
integer::Ninteger,allocatable::num(:,:)integer::dim,itr,offsetcharacter*32::cformat='(i0.3, i4.3)'read*,Nallocate(num(N,N))if (N.eq.1) thenprint '(a)',"001"returnend if! evenoffset = 0do itr=1,N/2dim = N-itr*2+1do i=itr, itr+dim-1num(i,itr) = offset+iend dooffset = offset + dimdo i=itr, itr+dim-1num(N-itr+1,i) = offset + iend dooffset = offset + dimdo i=itr, itr+dim-1num(N-i+1,N-itr+1) = offset + iend dooffset = offset + dimdo i=itr, itr+dim-1num(itr,N-i+1) = offset + iend dooffset=offset + dim - 1end doif ( mod(N,2) .eq. 1) thennum(N/2+1,N/2+1)=N*Nend ifwrite (cformat(7:8),'(i2)') N-1print cformat,numend program