Олимпиадные задачи по программированию. Лучшие решения. Часть 1. Ускова О.Ф - 57 стр.

UptoLike

Составители:

Рубрика:

ReadLn(F,X1,Y1,X2,Y2,X3,Y3,X4,Y4);

PA[I].XA:=Min(Min(X1,X2),Min(X3,X4));

PA[I].YA:=Min(Min(Y1,Y2),Min(Y3,Y4));

PA[I].XB:=Max(Max(X1,X2),Max(X3,X4));

PA[I].YB:=Max(Max(Y1,Y2),Max(Y3,Y4));

End;

For I:=1 to N do

For X1:=1 to N do

M[I,X1]:=False;

For I:=1 to N do

BA[I]:=False;

Close(F)

End;

Function Check(I,J:Integer):Boolean;

{Проверка: пересекаются ли I-ый и J-ый прямоугольники }

Var R1,R2:TRec;

Begin

Check:=False;

If PA[I].XA<PA[J].XA Then Begin R1:=PA[I];R2:=PA[J] End

Else Begin R1:=PA[J];R2:=PA[I] End;

If R1.XB>=R2.XA Then Begin

If (R1.YB>=R2.YA) and (R1.YB<=R2.YB) Then Check:=True;

If (R2.YB>=R1.YA) and (R2.YB<=R1.YB) Then Check:=True

End

End;

Function GetPodGraph:Boolean;