help DISNEY1 (vn.spoj)

nho moi nguo cai tien (Bai nay chi chay 45 %)
const
fi='';
fo='';
nmax=230;
var n: longint;
a:array[0..nmax,0..nmax] of INT64;
f:array[0..nmax] of int64;
procedure input;
var f:text;
i,j: integer;
begin
assign(f,fi); reset(f);
readln(f,n);
fillchar(a,sizeof(a),0);
for i:=1 to n do
begin
for j:=1 to n do
read(f,a[i,j]);
readln(f);
end;
close(f);
for i:=2 to n do
begin
a[0,i]:=a[1,i];
a[i,0]:=a[i,1];
a[i,n+1]:=a[i,1];
a[n+1,i]:=a[1,i];
a[i,n+2]:=a[i,1];
a[n+2,i]:=a[1,i];
end;
n:=n+2;
end;

procedure init;
begin
f[1]:=0;
f[2]:=a[1,2];
end;

procedure chaybo(x,y,z,t: longint; var kq: longint);
var tr,i: longint;
begin
kq:=0;
tr:=x;
for i:=x+1 to y do
if (i<>z) and(i<>t) then
begin
kq:=kq+a[tr,i];
tr:=i;
end;
kq:=kq+a[z,t];
end;

procedure qhd;
var i,j,kq,tg: longint;
begin
for i:=3 to n do
begin
f[i]:=f[i-1]+a[i-2,i];
for j:=i-2 downto 2 do
begin
chaybo(j-1,i,j,i-1,kq);
chaybo(j-1,i-1,j,i,tg);
if tg chaybo(j,i,j-1,i-1,tg);
if tg chaybo(j,i-1,j-1,i,tg);
if tg if f[j]+kq end;
end;
end;

procedure output;
var g:text;
begin
assign(g,fo);
rewrite(g);
writeln(g,f[n]);
close(g);
end;

BEGIN
input;
init;
qhd;
output;
END.

Xin loi: Gui NKDISNEY moi duoc 45%
DISNEY1 la bai acm

Dạo này ae ai cũng ôn thi bù đầu luôn. Cái này để vài bữa thi xong được k nhỉ?
À, mà ktuan học ở đâu mà còn code bằng pascal vậy hè.

THPT

uả, sao thấy bạn ktuan học NTU mà, hay là nhầm ng khác trùng tên nhỉ

lenhhoxung đã viết:

uả, sao thấy bạn ktuan học NTU mà, hay là nhầm ng khác trùng tên nhỉ

NTU là gi nhỉ? Đây mới chỉ học phổ thông thôi.Help!!!!!

Mình cũng chưa có thời gian đọc bài này. Nhưng mình xin góp ý là bạn nên trình bày thuật giải rõ ràng của mình ra, chỉ đưa code không phải là cách đặt câu hỏi hay. À và cả post link đến đề bài đó luôn nghen bạn.
Thân !

bai nay su dung qhd
Goi f[i] la tong chi phi nho nhat ma mot nguoi o vi tri i va mot nguoi o vi tri i-1

lenhhoxung đã viết:

uả, sao thấy bạn ktuan học NTU mà, hay là nhầm ng khác trùng tên nhỉ

em nhầm rồi, học NTU là Khúc Anh Tuấn (admin của VNOI, nick thường lấy là khuc_tuan

NTU là Nanyang Technological University - 1 trong 2 trường Đại Học khá nổi tiếng ở Singapore có nhiều SV VN theo học.
Trường thứ 2 là NUS - National University of Singapore

Thường thì đi du học vay ở Sing thì vào 2 trường này.