Advertisement
Guest User

Untitled

a guest
Nov 23rd, 2017
94
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 1.35 KB | None | 0 0
  1. program sheleplaba2;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6.   SysUtils;
  7.  
  8. var
  9. x,y,a,x1,y1,perv, vtor, tret, chetv:real;
  10. begin
  11.   writeln('Vvedite koordinaty vershiny X Y');
  12.   readln(x,y);
  13.   writeln('Vvedite dlinu storony');
  14.   readln(a);
  15.   writeln('Vvedite koordinaty tochky X Y');
  16.   readln(x1, y1);
  17.   perv:=sqrt((x-x1)*(x-x1)+(y-y1)*(y-y1));
  18.   vtor:=sqrt((x+a-x1)*(x+a-x1)+(y-y1)*(y-y1));
  19.   tret:=sqrt((x-x1)*(x-x1)+(y-a-y1)*(y-a-y1));
  20.   chetv:=sqrt((x+a-x1)*(x+a-x1)+(y-a-y1)*(y-a-y1));
  21.   if ((perv=vtor) and (perv=tret) and (perv = chetv) and (vtor=tret) and (vtor=chetv) and (tret=chetv)) then
  22.     begin
  23.     writeln('Tochka nahoditsia na odinakovom rasstojanii ko vsem vershinam');
  24.     readln;
  25.     exit;
  26.     end;
  27.   if (perv<=vtor) and (perv<=tret) and (perv <= chetv) then
  28.     begin
  29.     writeln('Blizhajshaja vershina - levaja verhnija');
  30.     readln;
  31.     Exit;
  32.     end;
  33.   if (vtor<=perv) and (vtor<=tret) and (vtor <= chetv) then
  34.     begin
  35.     writeln('Blizhajshaja vershina - pravaja verhnija');
  36.     readln;
  37.     Exit;
  38.     end;
  39.   if (tret<=vtor) and (tret<=perv) and (tret <= chetv) then
  40.     begin
  41.     writeln('Blizhajshaja vershina - levaja nizhnaja');
  42.     readln;
  43.     Exit;
  44.     end;
  45.   if (chetv<=vtor) and (chetv<=perv) and (chetv <= tret) then
  46.     begin
  47.     writeln('Blizhajshaja vershina - pravaja nizhnaja');
  48.     readln;
  49.     Exit
  50.     end;
  51. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement