Лабораторная работа: Разработка форматов хранения программ. Структурирование

for j:=1 to q do

begin

if (a[j].x>0) and (a[j].y>0) then

if sqrt(sqr(a[j].x)+sqr(a[j].y))>b then

b:=j;

if (a[j].x<0) and (a[j].y>0) then

if sqrt(sqr(a[j].x)+sqr(a[j].y))>c then

c:=j;

if (a[j].x<0) and(a[j].y<0) then

if sqrt(sqr(a[j].x)+sqr(a[j].y))>d then

d:=j;

if (a[j].x>0) and (a[j].y<0) then

if sqrt(sqr(a[j].x)+sqr(a[j].y))>e then

e:=j;

end;

end;

function otvet(bx,by,cx,cy,dx,dy,ex,ey:real):boolean;

begin

if (bx-cx=ex-dx) and (cy-dy=by-ey)

and (by-cy=ey-dy) and (cx-dx=bx-ex) then

otvet:=true

else

otvet:=false;

end;

function kvan_zapol (a:array of tochka):boolean;

var k1,k2,k3,k4:integer;

begin

k1:=0; k2:=0;

k3:=0; k4:=0;