TD.pas123456

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

TD.pas123456

Bài gửi  free_pascal on Wed Apr 11, 2012 4:35 pm

program bt;
const fi = 'TD.inp';
fo = 'TD.out';
type luu= array[0..1000,0..1000]of longint;
mang = array[1..1000]of longint;
var s,n,m,imin:longint;
a:luu;
trace:mang;
procedure Nhap;
var f:text;
i,j:longint;
begin
assign(f,fi);
reset(f);
readln(f,n,m);
for i:=1 to n do
for j:=1 to m do
read(f,a[i,j]);
close(f);
end;
function min(x,y,z:longint):longint;
begin
if (x if (y if (z exit(x);
end;
procedure Xuli;
var i,j,t:longint;
begin
for i:=1 to m do
begin
a[0,i]:=maxlongint;
a[n+1,i]:=maxlongint;
end;
s:=maxlongint;
for i:=1 to n do
if s>a[i,1] then begin s:=a[i,1]; imin:=i; trace[1]:=i end;
for j:=1 to m-1 do
begin
s:=s+min(a[imin-1,j+1],a[imin,j+1],a[imin+1,j+1]);
trace[j+1]:=imin;
end;
end;
procedure Xuat;
var f:text;
i:longint;
begin
assign(f,fo);
rewrite(f);
writeln(f,s);
for i:=1 to m do
write(f,trace[i],' ');
close(f);
end;
begin
Nhap;
Xuli;
Xuat;
End.

free_pascal
Mouse
Mouse

Tổng số bài gửi : 18
Join date : 09/10/2011
Age : 20
Đến từ : USIT

Xem lý lịch thành viên

Về Đầu Trang Go down

@_@

Bài gửi  nhatha527 on Tue Jun 05, 2012 5:01 pm

wên sạch òiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii

nhatha527
Webmaster
Webmaster

Tổng số bài gửi : 60
Join date : 08/10/2011
Age : 20
Đến từ : Lâu đài Kẹo dẻo ^_^

Xem lý lịch thành viên https://www.facebook.com/chong.chamchap

Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết