Информатика / !704LAB1

program lab1;
uses crt;
const e=0.001;
var x,y,x1:real;
    xi,yi,xs,ys:array[1..7]of real;
Begin
 clrscr;
{///////////ЊҐв®¤ бЄ ­Ёа®ў ­Ёп/////////////}
 x:=-20;
 y:=0.67*x+19.325;
 repeat
  x:=x+e;
  y:=0.67*x+19.325;
 until sqr((x-13.01)/25)+sqr((y+1)/35)<=1;
 xs[1]:=x; ys[1]:=y;

 x:=-40;
 repeat
  x:=x+e;
  y:=0.67*x+19.325;
 until y>=0;
 xs[2]:=x; ys[2]:=0;

 x:=-20;
 repeat
  x:=x+e;
 until sqr((x-13.01)/25)+sqr(1/35)<1;
 xs[3]:=x; ys[3]:=0;

 x:=0;
 repeat
  x:=x+e;
 until sqr(x+10)+sqr(6.68)>=400;
 xs[4]:=x; ys[4]:=0;

 x:=20;
 repeat
  x:=x+e;
 until sqr((x-13.01)/25)+sqr(1/35)>=1;
 xs[5]:=x; ys[5]:=0;

 y:=-5;
 repeat
  y:=y-e;
 until sqr(10)+sqr(y+6.68)>=400;
 xs[6]:=0; ys[6]:=y;

 y:=-10;
 repeat
  y:=y-e;
 until sqr((-13.01)/25)+sqr((y+1)/35)>=1;
 xs[7]:=0; ys[7]:=y;
{////////////ЊҐв®¤ ЁвҐа жЁ©////////////////}
 x:=-15; x1:=x;
 y:=0.67*x+19.325;
 repeat
  x:=x+e*abs(x1);
  y:=0.67*x+19.325;
  x1:=x;
 until sqr((x-13.01)/25)+sqr((y+1)/35)<=1;
 xi[1]:=x; yi[1]:=y;

 x:=-35; x1:=x;
 repeat
  x:=x+e*abs(x1);
  y:=0.67*x+19.325;
  x1:=x;
 until y>=0;
 xi[2]:=x; yi[2]:=0;

 x:=-20; x1:=x;
 repeat
  x:=x+e*abs(x1);
  x1:=x;
 until sqr((x-13.01)/25)+sqr(1/35)<1;
 xi[3]:=x; yi[3]:=0;

 x:=5; x1:=x;
 repeat
  x:=x+e*abs(x1);
  x1:=x;
 until sqr(x+10)+sqr(6.68)>=400;
 xi[4]:=x; yi[4]:=0;

 x:=20; x1:=x;
 repeat
  x:=x+e*abs(x1);
  x1:=x;
 until sqr((x-13.01)/25)+sqr(1/35)>=1;
 xi[5]:=x; yi[5]:=0;

 y:=-5; x1:=y;
 repeat
  y:=y-e*abs(x1);
  x1:=y;
 until sqr(10)+sqr(y+6.68)>=400;
 xi[6]:=0; yi[6]:=y;

 y:=-10; x1:=y;
 repeat
  y:=y-e*abs(x1);
  x1:=y;
 until sqr((-13.01)/25)+sqr((y+1)/35)>=1;
 xi[7]:=0; yi[7]:=y;


 writeln('   -------------------------------------------------------------- ');
 writeln('  |               |   ЊҐв®¤ бЄ ­Ёа®ў ­Ёп  |    ЊҐв®¤ ЁвҐа жЁ©    |');
 writeln('  |     ’®зЄ      |--------------------------------------------- |');
 writeln('  |               |     X     |     Y     |     X     |    Y     |');
 writeln('  | --------------|----------------------------------------------|');
 writeln('  |       P1      | ',xs[1]:0:4,'  |  ',ys[1]:0:4,'  | ',xi[1]:0:4,'  |  ',yi[1]:0:4,' |');
 writeln('  |       P2      | ',xs[2]:0:4,'  |     0     | ',xi[2]:0:4,'  |     0    |');
 writeln('  |       P3      | ',xs[3]:0:4,'  |     0     | ',xi[3]:0:4,'  |     0    | ');
 writeln('  |       P4      |   ',xs[4]:0:4,'  |     0     |  ',xi[4]:0:4,'   |     0    | ');
 writeln('  |       P5      |  ',xs[5]:0:4,'  |     0     | ',xi[5]:0:4,'   |     0    |');
 writeln('  |       P6      |     0     | ',ys[6]:0:4,'  |     0     | ',yi[6]:0:4,' |');
 writeln('  |       P7      |     0     | ',ys[7]:0:4,'  |     0     | ',yi[7]:0:4,' | ');
 writeln('   -------------------------------------------------------------- ');
 readln;
End.