动态程序设计.docVIP

[例题1]求最大连续子序列的和 输入： n(n≤500)； n个整数； 输出：该序列中最大的连续子序列的和max。 {$A+,B-,C+,D+,E-,F-,G+,H+,I+,J+,K-,L+,M-,N+,O+,P+,Q-,R+,S-,T-,U-,V+,W-,X+,Y+,Z1} {$MINSTACKSIZE {$MAXSTACKSIZE {$IMAGEBASE {$APPTYPE GUI} program ex11_1; {$APPTYPE CONSOLE} uses SysUtils; const infile=ex11_1.in; outfile=ex11_1.out; var n,i:integer; j,m,max:longint; f,f0:text; begin // Insert user code here assign(f,infile); reset(f); assign(f0,outfile); rewrite(f0); repeat readln(f,n); read(f,m); max:=m; for i:=2 to n do begin read(f,j); if m0 then m:=m+j else m:=j; if mmax then max:=m end; writeln(f0,max) until seekeof(f); close(f); close(f0) end. [例题2]2台处理机A和B承担n个作业的任务。设第I个作业交给机器A处理时需要ai时间，交给机器B处理时需要bi时间。由于各作业的特点和机器性能的关系，很可能对于某些I有ai≥bi，而对于某些作业j(j≠i)有aibj，既不能将一个作业分开由两台机器处理也没有一台机器能同时处理2个作业。计算和输出2台机器处理n个作业的最短时间，即任何一台机器开工到最后一台机器停工的总时间最短。 program ex11_2; {$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q-,R+,S+,T-,V+,X+,Y+} {$M 16384,0,655360} program ex11_2; const mx=100; var n,i:integer; al,bl,bt:real; a,b:array[1..mx]of real; f,f0:text; function max(a,b:real):real; begin if a=b then max:=a else max:=b end; procedure search(nw:integer;na,nb:real); begin if max(na,nb)=bt then exit; if nw=n+1 then begin bt:=max(na,nb); exit end; if max(na+a[nw],nb)=max(na,nb+b[nw]) then begin search(nw+1,na+a[nw],nb); search(nw+1,na,nb+b[nw]) end else begin search(nw+1,na,nb+b[nw]); search(nw+1,na+a[nw],nb) end end; begin assign(f,ex11_2.in); reset(f); assign(f0,ex11_2.out); rewrite(f0); while not seekeof(f) do begin readln(f,n); al:=0; bl:=0; for i:=1 to n do begin readln(f,a[i],b[i]); if a[i]=b[i] then al:=al+a[i]