几个例子【信息技术】.docVIP

最短路径问题：〖题目描述〗有如下有向图，边IJ上的数字为从点I走到点J的代价。求从点A1到点E1之间的最短路径。 复制书稿： 〖题目描述〗假设有M本书（编号为1，2，…M），想将每本复制一份，M本书的页数可能不同（分别是P1，P2，…PM）。任务是将这M本书分给K个抄写员（K〈=M〉，每本书只能分配给一个抄写员进行复制，而每个抄写员所分配到的书必须是连续顺序的。 0 = bo b1 b2 … bk-1 bk = m，这样，第I号抄写员得到的书稿是从bi-1+1到第bi本书。复制工作是同时开始进行的，并且每个抄写员复制的速度都是一样的。所以，复制完所有书稿所需时间取决于分配得到最多工作的那个抄写员的复制时间。试找一个最优分配方案，使分配给每一个抄写员的页数的最大值尽可能小（如存在多个最优方案，只输出其中一种）。 (GDOI99 Books). 输出样例 9 31 2 3 4 5 6 7 8 9 1 56 7 8 9 参考程序： program books; uses crt; type lx=packed Array [1..500] of longint; rx=packed Array [1..500] of longint; var a1:array [1..500] of longint; a:array [1..500] of ^lx; z:array [1..500] of ^rx; b:array [1..500] of longint; c,d,e,f,k,m:longint; f1,f2:text; procedure try; var c,d,e,f,g,h,i,j,min,max:longint; flag,flag1:boolean; l:array [1..500] of longint; begin for c:=2 to k do begin new (a[c]); new (z[c]); if c3 then dispose (a[c-2]); for d:=c to m do begin max:=maxlongint; for e:=1 to d-1 do begin min:=0; if (a[c-1]^[e]min) then min:=a[c-1]^[e]; f:=a1[d]-a1[e]; if (fmin) then min:=f; if minmax then begin max:=min; i:=e; end; end; a[c]^[d]:=max; z[c]^[d]:=i; end; end; j:=0; i:=m; for c:=k downto 2 do begin j:=j+1; l[j]:=z[c]^[i]; i:=l[j]; end; rewrite (f2); j:=1; for c:=k-1 downto 1 do begin writeln (f2,j, ,l[c]); j:=l[c]+1; end; writeln (f2,j, ,m); close (f2); end; begin assign (f1,books.dat); assign (f2,books.out); reset (f1); readln (f1,m,k); new (a[1]); d:=0; for c:=1 to m do begin read (f1,b[c]); d:=d+b[c]; a[1]^[c]:=d; a1[c]:=d; end; close (f1); try; end. 过桥问题 -------------------------------------------------------------------------------- 〖题目描述〗GDOI工作组遇到了一个运输货物的问题。现在有N辆车要按顺序通过一个单向的小桥，由于小桥太窄，不能有两辆车并排通过，所以在桥上不能超车。另外，由于小桥建造的时间已经很久，所以小桥只能承受有限的重量，记为Max（吨）。所以，车辆在过桥的时候必须要有管理员控制，将这N辆车按初始顺序分组，每