Tin học Tây Sơn

Xây cầu Phú Phong

Go down

Xây cầu Phú Phong

Bài gửi by Admin on Thu Jan 10, 2019 5:22 pm

Khi khảo sát đáy sông để thiết kế móng trụ cho cầu cũ nối 2 bên sông Kôn phú phong, công
ty X nhận thấy có 4 vị trí có thể xây trụ cầu. Nếu kể cả hai đầu cầu thì các điểm có thể xây
trụ được đánh số như hình vẽ:


 
Cầu được thiết kế bao gồm một số nhịp liên tiếp nối 2 bên sông Kôn phú phong, mỗi nhịp là  
một đoạn cầu nối hai điểm bất kì trong 6 điểm trên. Giả sử chi phí để xây một nhịp cầu giữa
các điểm được cho trong bảng sau (đơn vị: tỉ đồng):
 
2
10    
3
125   
4
2001016  
5
500142014 
6
7003001001815
Vị trí
1
2
3
4
5
 
        Ví dụ: Chi phí để xây nhịp cầu      – từ điểm 2 đến điểm 4 là 10 (tỉ đồng)
                                                            – từ điểm 1 đến điểm 3 là 12 (tỉ đồng)
        Hãy tìm phương án xây dựng cầu có chi phí nhỏ nhất.
phuphong.inp: 
- hàng đầu tiên chứa số n nhip cầu
- n hàng tiếp theo chứa chi phí.
phuphong.uot:
- hàng đầu tiên chứa tổng chi phí cần xây cầu.
- hàng thứ 2: chứa các nhịp cầu cần xây.

Phuphong.int
6
00000
100000
125000
200101600
5001420140
7003001001815


Em nào làm xong bài Tề Thiên hãy làm bài này nhé  sdfgsd sdfgsd
avatar
Admin
Admin
Admin

Posts : 687
Reputation : -10042
Join date : 16/11/2015
Age : 29

Xem lý lịch thành viên http://tinhocts.forumvi.com

Về Đầu Trang Go down

Re: Xây cầu Phú Phong

Bài gửi by Admin Yesterday at 7:40 pm

Upcode bài này nữa nhé
avatar
Admin
Admin
Admin

Posts : 687
Reputation : -10042
Join date : 16/11/2015
Age : 29

Xem lý lịch thành viên http://tinhocts.forumvi.com

Về Đầu Trang Go down

Re: Xây cầu Phú Phong

Bài gửi by Nguyễn Văn Biên Yesterday at 8:43 pm

Spoiler:
Code:
program PHUPHONG;
var f:text;
    A:array[1..100,1..100]of integer;
    i,j,n,t,h,c:integer;

function min(x:integer):integer;
begin
        min:=A[n,x];
        for i:=n downto 1 do if (A[i,x]<>0) and (min>A[i,x]) then min:=A[i,x]
end;
begin
        assign(f,'PHUPHONG.INP'); reset(f);
        readln(f,n);
        for i:=1 to n do
        for j:=1 to n-1 do read(f,A[i,j]);
        close(f);
        for c:=n-2 downto 1 do
        for h:=n-1 downto 1 do if A[h,c]<>0 then A[h,c]:=A[h,c]+min(h);
        assign(f,'PHUPHONG.OUT'); rewrite(f);
        writeln(f,min(1));
        j:=1;
        write(f,'1');
        while j<>n do
        begin
                for t:=n downto 1 do if A[t,j]=min(j) then begin j:=t; break end;
                write(f,'->'); write(f,j)
        end;
        close(f)
end.

_________________

My:
- XDA Account
- Blog
- Game

...
avatar
Nguyễn Văn Biên
Recognised Member & Recognised Developer & Protected Member & Super Administrator
Recognised Member & Recognised Developer & Protected Member & Super Administrator

Posts : 220
Reputation : 1129923
Join date : 18/06/2018
Age : 15
Location : ?

Xem lý lịch thành viên https://bien2004official.blogspot.com

Về Đầu Trang Go down

Re: Xây cầu Phú Phong

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Về Đầu Trang


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