結果

問題 No.565 回転拡大
コンテスト
ユーザー BQZet
提出日時 2017-11-28 17:37:54
言語 Fortran
(gFortran 14.2.0)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 1,006 bytes
コンパイル時間 1,289 ms
コンパイル使用メモリ 20,352 KB
最終ジャッジ日時 2024-11-27 13:11:50
合計ジャッジ時間 1,739 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge2
このコードへのチャレンジ
（要ログイン）
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。（リジャッジ後のコンパイルエラーは公開されます）
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

コンパイルメッセージ
Main.f90:27:12:

   27 |     print *,
      |            1
Error: Comma after * at (1) not allowed without I/O list
Main.f90:39:12:

   39 |     print *,
      |            1
Error: Comma after * at (1) not allowed without I/O list
Main.f90:51:12:

   51 |     print *,
      |            1
Error: Comma after * at (1) not allowed without I/O list
Main.f90:64:12:

   64 |     print *,
      |            1
Error: Comma after * at (1) not allowed without I/O list
Main.f90:24:32:

   24 |      write(*,'(A)',advance='no'),c(n,m)
      |                                1
Warning: Legacy Extension: Comma before i/o item list at (1)
Main.f90:48:32:

   48 |      write(*,'(A)',advance='no'),c(n,m)
      |                                1
Warning: Legacy Extension: Comma before i/o item list at (1)

ソースコード

diff # 

program rotation

integer::R,K,H,W,n,m,l1,l2
character(10),allocatable,dimension(:)::allC
character(1),allocatable,dimension(:,:)::c

read *,R,K
read *,H,W

allocate(C(H,W),allC(H))

do n=1,H
  read *,allC(n)
  do m=1,W
   c(n,m)=allC(n)(m:m)
  end do
end do

if(R==0) then
 do n=1,H
  do l1=1,K
   do m=1,W
    do l2=1,K
     write(*,'(A)',advance='no'),c(n,m)
    end do
   end do
    print *,
  end do
 end do

else if(R==90) then
 do m=1,W
  do l1=1,K
   do n=H,1,-1
    do l2=1,K
     write(*,'(A)',advance='no')c(n,m)
    end do
   end do
    print *,
  end do
 end do

else if(R==180) then
 do n=H,1,-1
  do l1=1,K
   do m=W,1,-1
    do l2=1,K
     write(*,'(A)',advance='no'),c(n,m)
    end do
   end do
    print *,
  end do
 end do


else if(R==270) then
 do m=W,1,-1
  do l1=1,K
   do n=1,H
    do l2=1,K
     write(*,'(A)',advance='no')c(n,m)
    end do
   end do
    print *,
  end do
 end do


end if

end program rotation
0