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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

3. Программная реализация
Program Rectangular; {Автор Мхитарян Л .А.}
Const MaxN=100;
Type TRec=Record
XA,YA,XB,YB:Integer
End;
Var PA:Array [1..MaxN] of TRec;
M:Array[1..MaxN,1..MaxN] of Boolean;
N,FC:Integer;
BA:Array[1..MaxN] of Boolean;
Function Min(A,B:Integer):Integer;
Begin
If A>B Then Min:=B
Else Min:=A
End;
Function Max(A,B:Integer):Integer;
Begin
If A<B Then Max:=B
Else Max:=A
End;
Procedure Init;
Var F:Text;I,X1,Y1,X2,Y2,X3,Y3,X4,Y4:integer;
Begin
Assign(F,'input.txt');ReSet(F);
ReadLn(F,N);
For I:=1 to N do
Begin

Страницы