Cod sursa(job #636804)

Utilizator MalaiMihaiMalai Mihai MalaiMihai Data 19 noiembrie 2011 23:56:00
Problema Portal3 Scor 0
Compilator fpc Status done
Runda .com 2011 Marime 1.37 kb
program pr;
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:integer;
    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);
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[i]:=0;
end;
close(f1);
close(f2);
end.