Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program sheleplaba2;
- {$APPTYPE CONSOLE}
- uses
- SysUtils;
- var
- x,y,a,x1,y1,perv, vtor, tret, chetv:real;
- begin
- writeln('Vvedite koordinaty vershiny X Y');
- readln(x,y);
- writeln('Vvedite dlinu storony');
- readln(a);
- writeln('Vvedite koordinaty tochky X Y');
- readln(x1, y1);
- perv:=sqrt((x-x1)*(x-x1)+(y-y1)*(y-y1));
- vtor:=sqrt((x+a-x1)*(x+a-x1)+(y-y1)*(y-y1));
- tret:=sqrt((x-x1)*(x-x1)+(y-a-y1)*(y-a-y1));
- chetv:=sqrt((x+a-x1)*(x+a-x1)+(y-a-y1)*(y-a-y1));
- if ((perv=vtor) and (perv=tret) and (perv = chetv) and (vtor=tret) and (vtor=chetv) and (tret=chetv)) then
- begin
- writeln('Tochka nahoditsia na odinakovom rasstojanii ko vsem vershinam');
- readln;
- exit;
- end;
- if (perv<=vtor) and (perv<=tret) and (perv <= chetv) then
- begin
- writeln('Blizhajshaja vershina - levaja verhnija');
- readln;
- Exit;
- end;
- if (vtor<=perv) and (vtor<=tret) and (vtor <= chetv) then
- begin
- writeln('Blizhajshaja vershina - pravaja verhnija');
- readln;
- Exit;
- end;
- if (tret<=vtor) and (tret<=perv) and (tret <= chetv) then
- begin
- writeln('Blizhajshaja vershina - levaja nizhnaja');
- readln;
- Exit;
- end;
- if (chetv<=vtor) and (chetv<=perv) and (chetv <= tret) then
- begin
- writeln('Blizhajshaja vershina - pravaja nizhnaja');
- readln;
- Exit
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement