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

begin

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

k1:=K1+1;

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

k2:=K2+1;

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

k3:=K3+1;

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

k4:=K4+1;

end;

if (k1>0)and(k2>0)and(k3>0)and(k3>0)then

kvan_zapol:=true

else

kvan_zapol:=false;

end;

procedure vivod (bx,by,cx,cy,dx,dy,ex,ey:real;a:array of tochka);

begin

writeln('Координаты точки 1 четверти[',bx:5:2,':',by:5:2,']');

writeln('Координаты точки 2 четверти[',cx:5:2,':',cy:5:2,']');

writeln('Координаты точки 3 четверти[',dx:5:2,':',dy:5:2,']');

writeln('Координаты точки 4 четверти[',ex:5:2,':',ey:5:2,']');

writeln('Паралеллограм состоящий из этих точек');

if otvet(a[max1].x,a[max1].y,a[max2].x,a[max2].y,

a[max4].x,a[max4].y,a[max4].x,a[max4].y) then

writeln('действительный')

else

writeln('Недействительный');

end;

procedure info ;