Информатика / !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.