Run Code
|
API
|
Code Wall
|
Users
|
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
Please
log in
to post a comment.
zadan 4
5
Potenztabelle
Programa para calcular digito verificador de un RUT
Пиріжки
basketball_player_training
Kelipatan
real vs integer
practica 7 ejercicio B3
JESSICA GOMES DE SOUZA FERREIRA 600621634
Please log in to post a comment.