結果

問題 No.3005 トレミーの問題
ユーザー lotoka
提出日時 2025-01-21 21:57:33
言語 Fortran
(gFortran 14.2.0)
結果
WA  
実行時間 -
コード長 729 bytes
コンパイル時間 944 ms
コンパイル使用メモリ 40,832 KB
実行使用メモリ 6,820 KB
最終ジャッジ日時 2025-01-21 21:57:37
合計ジャッジ時間 2,210 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2 WA * 1
other AC * 30
権限があれば一括ダウンロードができます

ソースコード

diff # 

program yukiNo3005
    implicit none
    integer ax, ay, bx, by, cx, cy, dx, dy
    integer a, b, c, d, e
    
    read *, ax, ay, bx, by, cx, cy, dx, dy
    a = (bx - ax)**2 + (by - ay)**2
    b = (cx - ax)**2 + (cy - ay)**2
    c = (dx - ax)**2 + (dy - ay)**2
    d = (bx - ax)*(cx - ax) + (by - ay)*(cy - ay)
    e = (dx - ax)*(cx - ax) + (dy - ay)*(cy - ay)
    
    if       (((e**2 - c*b) * (b*(d-a)*(bx-ax) + a*(d-b)*(cx-ax))&
        &.eq.  (d**2 - a*b) * (b*(e-c)*(dx-ax) + c*(e-b)*(cx-ax)))&
        &.and.((e**2 - c*b) * (b*(d-a)*(by-ay) + a*(d-b)*(cy-ay))&
        &.eq.  (d**2 - a*b) * (b*(e-c)*(dy-ay) + c*(e-b)*(cy-ay)))) then
        print *, "YES"
    else
        print *, "NO"
    end if
end program yukiNo3005
0