Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
0 1 0 0 0 1 1 1
uses math; var x1,y1,x2,y2,x3,y3,x4,y4,a,b,al,bet,gam:real; begin //assign(input,'angle2.in ');assign(output,'angle2.out');reset(input);rewrite(output); readln(x1,y1,x2,y2,x3,y3,x4,y4); x1:=x1-x2; x3:=x3-x2; x4:=x4-x2; x2:=x2-x2; y1:=y1-y2; y3:=y3-y2; y4:=y4-y2; y2:=y2-y2; a:=arctan2(y1,x1); if (a<0) then a:=a+2*pi; b:=arctan2(y4,x4); if (b<0) then b:=b+2*pi; al:=min(abs(a-b),2*pi-abs(a-b)); a:=arctan2(y3,x3); if (a<0) then a:=a+2*pi; b:=arctan2(y4,x4); if (b<0) then b:=b+2*pi; bet:=min(abs(a-b),2*pi-abs(a-b)); a:=arctan2(y1,x1); if (a<0) then a:=a+2*pi; b:=arctan2(y3,x3); if (b<0) then b:=b+2*pi; gam:=min(abs(a-b),2*pi-abs(a-b)); if abs(al+bet-gam)<0.000000000001 then write('YES') else write('NO'); readln; readln; // close(output); end.
run
|
edit
|
history
|
help
0
sorting_direct_choise_optimized
4546
число pi разными способами
jugando v2
Урок 6. Задача 1 (1525). Номер самого большого числа
Lab1SumWithRepeat
translator number system
zadacha8
basketball_player_training
Сумма пар чисел кратных и некратных 11 с дельтой