const
fin = 'treasure.inp';
fon = 'treasure.out';
var
a,tra:array[0..4,0..4] of longint;
x,y:array[0..10] of longint;
h: array [1..4]of longint=(-1,0,1,0);
c: array [1..4]of longint=(0,1,0,-1);
n,:longint;
s,max:string;
procedure taoxau;
var i,j:longint;
begin
s:='';
for i:=1 to 9 do
begin
s:=s+chr(a[x[i],y[i]]+48);
end;
end;
procedure vet (i:longint);
var j,u,v:longint;
begin
for j:=1 to 4 do
begin
u:=x[i-1]+h[j];
v:=y[i-1]+c[j];
if (tra[u,v]=0) and (1<=u) and (u<=3) and (v<=3) and (v>=1) then
begin
x[i]:=u;
y[i]:=v;
tra[u,v]:=1;
if i=9 then
begin
taoxau;
//writeln(s);
if s>max then max:=s;
end
else vet(i+1);
tra[u,v]:=0;
end;
end;
end;
procedure nhap;
var i,j:longint;
begin
for i:=1 to 3 do
begin
for j:=1 to 3 do
read(a[i,j]);
readln;
end;
end;
procedure solve;
var i,j,h,k:longint;
begin
max:='';
for i:=1 to 3 do
for j:=1 to 3 do
begin
for h:=1 to 3 do
for k:=1 to 3 do
tra[h,k]:=0;
x[1]:=i;
y[1]:=j;
tra[i,j]:=1;
vet(2);
tra[i,j]:=0;
end;
writeln(max);
end;
begin
assign(input,'treasure.inp');reset(input);
assign(output,'treasure.out');rewrite(output);
readln(n);
for k:=1 to n do
begin
nhap;
solve;
end;
end.
* Chuyên dạy lập trình ONLINE cho học sinh THCS, THPT *.
Mọi giao lưu, trao đổi, xin liên hệ: Lê Quang Vinh - zalo: 037.803.8755.
Page: Lớp học Code Sky
Group FB1: Ôn thi HSG9 - THTB - TS10 chuyên tin
Group FB2: Học Scratch - Ôn thi Tin học trẻ bảng A
Thứ Năm, 5 tháng 5, 2022
TREASURE PASCAL
Đăng ký:
Đăng Nhận xét (Atom)
Không có nhận xét nào:
Đăng nhận xét
Lưu ý: Chỉ thành viên của blog này mới được đăng nhận xét.