Advertisement
Cnin

HinhChuNhat

Nov 23rd, 2015
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 1.60 KB | None | 0 0
  1. program hinhchunhat;
  2. const fn='hcn.inp';
  3.       gn='hcn.out';
  4. type mang=array[1..500] of longint;
  5. var x1,x2,y1,y2:mang;
  6.         n:longint;
  7.         f,g:text;
  8. procedure doc;
  9. var i:integer;
  10. begin
  11.         assign(f,fn);
  12.         reset(f);
  13.         readln(f,n);
  14.         for i:=1 to n do
  15.         readln(f,x1[i],y1[i],x2[i],y2[i]);
  16.         close(f);
  17. end;
  18.  
  19.  
  20. function min(x1,y1:longint):longint;
  21. begin
  22.         min:=x1;
  23.         if min > x1 then min:=y1;
  24.  
  25. end;
  26.  
  27.  
  28. function max(x1,y1:longint):longint;
  29. begin
  30.         max:=x1;
  31.         if max < y1 then max:=x1;
  32. end;
  33.  
  34.  
  35. function giaodoanx(x1,x2,y1,y2:longint):longint;
  36. begin
  37.         if (y2 <= x1) or (y1 <= x2) then giaodoanx:=0
  38.         else
  39.         giaodoanx:=min(y1,y2) - max(x1,x2);
  40. end;
  41.  
  42.  
  43. function giaodoany(x1,x2,y1,y2:longint):longint;
  44. begin
  45.         if (y2 <= x1) or (y1 <= x2) then giaodoany:=0
  46.         else
  47.         giaodoany:=min(y1,y2) - max(x1,x2);
  48. end;
  49.  
  50.  
  51.  
  52. function giaohcn(i,j:longint):longint;
  53. begin
  54.         giaohcn:=giaodoanx(x1[i],x1[j],x2[i],x2[j])*giaodoany(y1[i],y1[j],y2[i],y2[j]);
  55.  
  56. end;
  57. procedure dientich;
  58. var i,j,max,a,b:longint;
  59. begin
  60.         max:=-maxlongint; a:=0; b:=0;
  61.         for i:=1 to n-1 do
  62.                 for j:=i+1 to n do
  63.                 if max<giaohcn(i,j) then
  64.                 begin
  65.                 max:=giaohcn(i,j);
  66.                 a:=i;
  67.                 b:=j;
  68.                 end;
  69.                 assign(g,gn);
  70.                 rewrite(g);
  71.                 write(g,a,' ',b);
  72.                 close(g);
  73.  
  74. end;
  75. begin
  76.         doc;
  77.         dientich;
  78. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement