Question

Se citesc coordonatele a doua puncte din plan. Afisati distanta dintre cele doua puncte, apoi pentru fiecare punct afisati cadranul din care face parte.

Answer 1

var x1,x2,y1,y2:integer; d:real;
begin
read(x1,y1);
writeln('Primul punct are coordonatele ',x1,' si ',y1); 
read(x2,y2);
writeln('Al doilea punct are coordonatele ',x2,' si ',y2); 
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln('Distanta dintre cele 2 puncte ',d);
if (x1>=0) and (y1>=0) then writeln('Primul punct este in cadranul I') else
if (x1<0) and (y1>=0) then writeln('Primul punct este in cadranul II') else
if (x1<0) and (y1<0) then writeln('Primul punct este in cadranul III') else
if (x1>=0) and (y1<0) then writeln('Primul punct este in cadranul IV');
if (x2>=0) and (y2>=0) then writeln('Al doilea punct este in cadranul I') else
if (x2<0) and (y2>=0) then writeln('Al doilea punct este in cadranul II') else
if (x2<0) and (y2<0) then writeln('Al doilea punct este in cadranul III') else
if(x2>=0) and (y2<0) then writeln('Al doilea punct este in cadranul IV');
end.