結果

問題 No.105 arcの六角ボルト
ユーザー jj
提出日時 2016-08-10 00:22:01
言語 Fortran
(gFortran 14.2.0)
結果
AC  
実行時間 47 ms / 5,000 ms
コード長 526 bytes
コンパイル時間 1,592 ms
コンパイル使用メモリ 32,384 KB
実行使用メモリ 5,248 KB
最終ジャッジ日時 2024-11-07 08:22:49
合計ジャッジ時間 2,424 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 1
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.f90:17:33:

   17 |            write (ans,'(F18.10)'), kakudo
      |                                 1
Warning: Legacy Extension: Comma before i/o item list at (1)

ソースコード

diff #
プレゼンテーションモードにする

  integer::T,i,j
  real*8,parameter::xi=1.0_8,yi=0_8,pi=3.141592653589793238,cos50=0.64278760968
  real*8,allocatable::xy(:,:,:)
  real*8::x,y,kakudo
  character*20::ans
  read *,T
  allocate (xy(2,6,T))
  read *,xy
  do i=1,T
     do j=1,6
        x = xy(1,j,i)
        y = xy(2,j,i)
        kakudo = DATAN2(y,x)*180.0_8/pi
        if(kakudo.gt.-0.0000001.and.kakudo.lt.(50+10**(-7))) then
           write (ans,'(F18.10)'), kakudo
           print '(a)', TRIM(ADJUSTL(ans))
        end if
     end do
  end do
end program
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0