Diễn đàn tin học Nguyễn Văn Linh

The second house for every one
 
IndexTrợ giúpTìm kiếmThành viênĐăng kýĐăng Nhập

Share | 
 

 Khinh khí cầu

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
littlelee
Admin
Admin


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiêu đề: Khinh khí cầu   Thu 15 Jul 2010, 16:09

Về Đầu Trang Go down
littlelee
Admin
Admin


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiêu đề: Re: Khinh khí cầu   Thu 15 Jul 2010, 21:54

Bài giải:

Code:
program kkcau;
const fi='khicau.inp';
        fo='khicau.out';
var c1,c2,c3,l:array[0..100,0..100] of integer;
    i,j,k,n,h,v:integer; f:text;
    dd:array[1..200] of integer;

procedure nhap;
 begin
  assign(f,fi);
  reset(f);
  readln(f,h,v);
  for i:=0 to h do
  begin
    for j:=1 to v-1 do read(f,c1[i,j]);
    readln(f,c1[i,v]);
  end;
  for i:=0 to v do
  begin
    for j:=1 to h-1 do read(f,c2[j,i]);
    readln(f,c2[h,i]);
  end;
  for i:=1 to h do
  begin
    for j:=1 to v-1 do read(f,c3[i,j]);
    readln(f,c3[i,v]);
  end;
  close(f);
 end;

procedure tinh;
 begin
  for i:=0 to h do for j:=0 to v do l[i,j]:=0;
  l[0,1]:=c1[0,1];
  l[1,0]:=c2[1,0];
  for i:=2 to v do l[0,i]:=l[0,i-1]+c1[0,i];
  for i:=2 to h do l[i,0]:=l[i-1,0]+c2[i,0];

  for i:=1 to h do
  for j:=1 to v do
    begin
    l[i,j]:=l[i-1,j-1]+c3[i,j];
    if l[i,j]>l[i,j-1]+c1[i,j] then l[i,j]:=l[i,j-1]+c1[i,j];
    if l[i,j]>l[i-1,j]+c2[i,j] then l[i,j]:=l[i-1,j]+c2[i,j];
    end;
 end;

procedure try(i,j:integer);
 begin
  if (i=0)and(j=0) then
  begin
    k:=k+1;
    for h:=n downto 1 do write(f,dd[h],' ');
    writeln(f);
  end;
  if l[i,j]=l[i-1,j-1]+c3[i,j] then
  begin
    n:=n+1; dd[n]:=3;
    try(i-1,j-1);
    n:=n-1;
  end;
  if l[i,j]=l[i,j-1]+c1[i,j] then
  begin
    n:=n+1; dd[n]:=1;
    try(i,j-1);
    n:=n-1;
  end;
  if l[i,j]=l[i-1,j]+c2[i,j] then
  begin
    n:=n+1; dd[n]:=2;
    try(i-1,j);
    n:=n-1;
  end;
 end;

procedure xuat;
 begin
  assign(f,fo);
  rewrite(f);
  writeln(f,l[h,v]);
  k:=0; n:=0;
  try(h,v);
  write(f,k);
  close(f);
 end;

begin
 nhap;
 tinh;
 xuat;
end.
Về Đầu Trang Go down
whatsgoingon
Gà nhỏ


Tổng số bài gửi : 30
Join date : 18/07/2010
Age : 21
Đến từ : Nơi tận cùng vũ trụ

Bài gửiTiêu đề: Re: Khinh khí cầu   Thu 22 Jul 2010, 20:47

Đề thì hiểu nhưng cho mình hỏi ghi phương án thì mình trình bày kiểu gì, dãy thứ tự các phương thức thực hiện mình in ra cái dòng của nó à, dùng lời khó diễn đạt quá bạn cho thử cái ví dụ đi
Về Đầu Trang Go down
littlelee
Admin
Admin


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiêu đề: Re: Khinh khí cầu   Thu 22 Jul 2010, 20:50

OK

kkcau.inp
Code:
4 5
13 18 10 15 17
15 12 10 11 16
16 18 13 15 12
10 12 10 14 13
13 12 10 10 9
10 8 13 15
12 16 14 14
16 14 12 13
13 12 13 12
18 13 16 11
19 9 10 10
20 18 16 25 21
25 24 18 19 14
17 20 18 21 19
20 18 17 16 15
Về Đầu Trang Go down
littlelee
Admin
Admin


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiêu đề: Re: Khinh khí cầu   Thu 22 Jul 2010, 20:51

kkcau.out
Code:
82
2 2 3 1 1 3 1
2 2 3 3 1 1 1
2
Về Đầu Trang Go down
whatsgoingon
Gà nhỏ


Tổng số bài gửi : 30
Join date : 18/07/2010
Age : 21
Đến từ : Nơi tận cùng vũ trụ

Bài gửiTiêu đề: Re: Khinh khí cầu   Thu 22 Jul 2010, 20:56

Bạn giải thích cai file out hộ mình được ko, 2 2 3 1 1 3 1 nghĩa là gì
Về Đầu Trang Go down
littlelee
Admin
Admin


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiêu đề: Re: Khinh khí cầu   Thu 22 Jul 2010, 21:00

Tức là lần di chuyển theo cách 2, rồi cách 2, cách 3, cách 1, cách 1, cách 3 cách 1.

Các cách di chuyển theo đề đó.
Về Đầu Trang Go down
whatsgoingon
Gà nhỏ


Tổng số bài gửi : 30
Join date : 18/07/2010
Age : 21
Đến từ : Nơi tận cùng vũ trụ

Bài gửiTiêu đề: Re: Khinh khí cầu   Mon 26 Jul 2010, 20:53

Uhm giờ thì hiểu rồi cũng có hướng sơ sơ quy hoạch động rồi đây, chắc trong tuần này là xong(dạo này bắt đầu học căng rồi nên ít thời gian thăm diễn đàn), bài này cũng thuộc dạng cơ bản quy hoạch động đúng ko chứ nhiều bài quy hoạch động mù tịt cả đường đi luôn.
Mà ông littlelee sắp thi quốc gia ngày mấy thế, cố gắng đem cái giải nhì trở lên về cho Đà Nẵng nhé
Yeah! cheers
Về Đầu Trang Go down
Sponsored content




Bài gửiTiêu đề: Re: Khinh khí cầu   Today at 18:52

Về Đầu Trang Go down
 
Khinh khí cầu
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Radio Hạnh Phúc số 1: Anh lấy của cô chữ TRINH và trả về cho cô chữ KHINH make by me
» Giai thoại thơ Đường - Cao Tự Thanh

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn tin học Nguyễn Văn Linh :: Góc tin học :: Lớp chuyên tin-
Chuyển đến