Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program hinhchunhat;
- const fn='hcn.inp';
- gn='hcn.out';
- type mang=array[1..500] of longint;
- var x1,x2,y1,y2:mang;
- n:longint;
- f,g:text;
- procedure doc;
- var i:integer;
- begin
- assign(f,fn);
- reset(f);
- readln(f,n);
- for i:=1 to n do
- readln(f,x1[i],y1[i],x2[i],y2[i]);
- close(f);
- end;
- function min(x1,y1:longint):longint;
- begin
- min:=x1;
- if min > x1 then min:=y1;
- end;
- function max(x1,y1:longint):longint;
- begin
- max:=x1;
- if max < y1 then max:=x1;
- end;
- function giaodoanx(x1,x2,y1,y2:longint):longint;
- begin
- if (y2 <= x1) or (y1 <= x2) then giaodoanx:=0
- else
- giaodoanx:=min(y1,y2) - max(x1,x2);
- end;
- function giaodoany(x1,x2,y1,y2:longint):longint;
- begin
- if (y2 <= x1) or (y1 <= x2) then giaodoany:=0
- else
- giaodoany:=min(y1,y2) - max(x1,x2);
- end;
- function giaohcn(i,j:longint):longint;
- begin
- giaohcn:=giaodoanx(x1[i],x1[j],x2[i],x2[j])*giaodoany(y1[i],y1[j],y2[i],y2[j]);
- end;
- procedure dientich;
- var i,j,max,a,b:longint;
- begin
- max:=-maxlongint; a:=0; b:=0;
- for i:=1 to n-1 do
- for j:=i+1 to n do
- if max<giaohcn(i,j) then
- begin
- max:=giaohcn(i,j);
- a:=i;
- b:=j;
- end;
- assign(g,gn);
- rewrite(g);
- write(g,a,' ',b);
- close(g);
- end;
- begin
- doc;
- dientich;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement