Cod sursa(job #638601)

Utilizator MalaiMihaiMalai Mihai MalaiMihai Data 21 noiembrie 2011 01:06:26
Problema Portal3 Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.69 kb
var b:array[1..16] of int64;
    x1,x2,x3,x4,x5,x6,y1,y2,y3,y4,y5,y6,c1,c2,c3,n,m,t:longint;
    f1,f2:text;
    i,j:integer;
    min:int64;
begin
assign(f1,'portal3.in');
reset(f1);
assign(f2,'portal3.out');
rewrite(f2);
readln(f1,t);
for i:=1 to t do
begin
readln(f1,n,m);
readln(f1,x1,y1,x2,y2,c1);
readln(f1,x3,y3,x4,y4,c2);
readln(f1,x5,y5,x6,y6,c3);
if x2<x1 then begin j:=x1; x1:=x2; x2:=j; end else
if (x2=x1) and (y2<y1) then begin j:=x1; x1:=x2; x2:=j; end;
if x4<x3 then begin j:=x3; x3:=x4; x4:=j; end else
if (x4=x3) and (y4<y3) then begin j:=x3; x3:=x4; x4:=j; end;
if x6<x5 then begin j:=x5; x5:=x6; x6:=j; end else
if (x6=x5) and (y6<y5) then begin j:=x5; x5:=x6; x6:=j; end;
b[1]:=n*m;
b[2]:=x1+y1+c1+n-y2+m-x2;
b[3]:=x1+y1+c1+abs(x3-x2)+abs(y3-y2)+c2+n-x4+m-y4;
b[4]:=x1+y1+c1+abs(x5-x2)+abs(y5-y2)+c3+n-x6+m-y6;
b[5]:=x1+y1+c1+abs(x3-x2)+abs(y3-y2)+c2+abs(x5-x4)+abs(y5-y4)+c3+n-x6+m-y6;
b[6]:=x1+y1+c1+abs(x5-x2)+abs(y5-y2)+c3+abs(x6-x3)+abs(y6-y3)+c2+n-x4+m-y4;
b[7]:=x3+y3+c2+n-x4+m-y4;
b[8]:=x3+y3+c2+abs(x4-x1)+abs(y4-y1)+c1+n-x2+m-y2;
b[9]:=x3+y3+c2+abs(x5-x4)+abs(y5-y4)+c3+n-x6+m-y6;
b[10]:=x3+y3+c2+abs(x4-x1)+abs(y4-y1)+c1+abs(x5-x2)+abs(y5-y2)+c3+n-x6+m-y6;
b[11]:=x3+y3+c2+abs(x5-x4)+abs(y5-y4)+c3+abs(x6-x1)+abs(y6-y1)+c1+n-x2+m-y2;
b[12]:=x5+y5+c3+n-x6+m-y6;
b[13]:=x5+y5+c3+abs(x6-x1)+abs(y6-y1)+c1+n-x2+m-y2;
b[14]:=x5+y5+c3+abs(x6-x3)+abs(y6-y3)+c2+n-x4+m-y4;
b[15]:=x5+y5+c3+abs(x6-x1)+abs(y6-y1)+c1+abs(x3-x2)+abs(y3-y2)+c2+n-x4+m-y4;
b[16]:=x5+y5+c3+abs(x6-x3)+abs(y6-y3)+c2+abs(x4-x1)+abs(y4-y1)+c1+n-x2+m-y2;
min:=b[1];
for j:=1 to 16 do
if min>b[j] then min:=b[j];
writeln(f2,min);
for j:=1 to 16 do
b[j]:=0;
end;
close(f1);
close(f2);
end.