Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

066536 / 895

.txt
Скачиваний:
32
Добавлен:
09.06.2015
Размер:
1.31 Кб
Скачать
program task895;
uses
Crt,Graph;
var
x1,y1,x2,y2,x3,y3,x4,y4,grDriver,
grMode,ErrCode,l,r,b,t:integer;

function Max(a:integer;b:integer):integer;
begin
Max:=a;
if a<b then Max:=b;
end;

function Min(a:integer;b:integer):integer;
begin
Min:=a;
if a>b then Min:=b;
end;


begin
ClrScr;
grDriver:=Detect;
writeln('‚ўҐ¤ЁвҐ Є®®а¤Ё­ вл Їаאַ㣮«м­ЁЄ®ў:');
write('x1 = ');
readln(x1);
write('y1 = ');
readln(y1);
write('x2 = ');
readln(x2);
write('y2 = ');
readln(y2);
write('x3 = ');
readln(x3);
write('y3 = ');
readln(y3);
write('x4 = ');
readln(x4);
write('y4 = ');
readln(y4);
{ x1:=50;y1:=50; x2:=300; y2:=200; x3:=200; y3:=150; x4:=600; y4:=400;}
l:=max(x1,x3);
r:=min(x2,x4);
t:=max(y1,y3);
b:=min(y2,y4);
InitGraph(grDriver, grMode, ''); {Ё­ЁжЁ «Ё§ жЁп Ја дЁЄЁ}
ErrCode:=GraphResult;
if ErrCode = grOk then begin
rectangle(x1,y1,x2,y2); {Їа®аЁб®ўЄ  }
rectangle(x3,y3,x4,y4); {Їаאַ㣮«м­ЁЄ®ў}
if (l<r) and (b>t) then begin {Ґб«Ё Їаאַ㣮«м­ЁЄЁ ЇҐаҐбҐЄ овбп в®}
floodfill(l+5,t+5,white); {§ Єа иЁў Ґвбп ЇҐаҐбҐзҐ­­ п ®Ў« бвм}
end;
readkey;
CloseGraph;
end
else WriteLn('ЋиЁЎЄ  Ё­ЁжЁ «Ё§ жЁЁ Ја дЁЄЁ:', GraphErrorMsg(ErrCode));
end.
Соседние файлы в папке 066536