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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

35
A,B,N: integer;
procedure ReadData;
var k,i,j,i1,i2,j2,c,j1:integer;
begin
read(A,B,N);
A:=A div 2;
B:=B div 2;
FillChar(Bar,sizeof(Bar),1);
for k:=1 to N do
begin
read(i1,j1,i2,j2,c);
for i:=i1 to i2-1 do
for j:=j1 to j2-1 do
Bar[i,j]:=c;
end;
end;
var Fig: array[0..30*30] of Record
squ,col:integer;
end;
Cnt,S,c:integer;
Procedure Rec(i,j:integer);
begin
if (i>=-A) and (i<A) and (j>=-B) and (j<B) and (Bar[i,j]=c) then
begin
inc(S); Bar[i,j]:=0;
Rec(i-1,j-1); Rec(i-1,j); Rec(i-1,j+1);
Rec(i,j-1); rec(i,j+1);
Rec(i+1,j-1); rec(i+1,j); Rec(i+1,j+1);
end;

Страницы