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
Tinh tong
Geometric and aritmetic average of array
6
practica 1 ejercicio 5
Определение стенки с максимальной высотой
Squad equation
Excercise3
[DE/GER] Vigenere Chiffre (Entschlüsselung)
Fast program
1