結果

問題 No.105 arcの六角ボルト
ユーザー jjjj
提出日時 2016-08-10 00:13:28
言語 Fortran
(gFortran 13.2.0)
結果
AC  
実行時間 48 ms / 5,000 ms
コード長 766 bytes
コンパイル時間 332 ms
コンパイル使用メモリ 27,872 KB
実行使用メモリ 4,380 KB
最終ジャッジ日時 2023-08-07 05:06:04
合計ジャッジ時間 828 ms
ジャッジサーバーID
（参考情報） 		judge11 / judge13
このコードへのチャレンジ（β）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 48 ms
4,380 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.f90:30:27:

      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)
        if(ABS(x).lt.0.5000000001.and.ABS(x).gt.0.4999999999 .or. &
             ABS(y).lt.0.0000000001) then
           print '(a)',"0.000000000"
           goto 10
        end if
     end do
     do j=1,6
        x = xy(1,j,i)
        y = xy(2,j,i)
        if(x.gt.cos50.and.y.gt.0) then
           exit
        end if
     end do

     kakudo = ACOS(x)/(2*pi)*360.0_8
     write (ans,'(F18.10)'), kakudo
     print '(a)', TRIM(ADJUSTL(ans))
10   continue
  end do
end program
0