书的复制 pascal

11 |

3 | 2011-11-27 15:28:04 | 显示全部楼层 |阅读模式

var f,g:array[0..50,0..50]of longint;
a:array[0..500]of longint;
m,k:longint;
i,j,t:longint;
s:array[0..500]of longint;
ans1,ans2:array[1..500]of longint;y:longint;function max(a,b:longint):longint;begin
if a>b then max:=a
else max:=b;end;begin
readln(m,k);
for i:=1 to m do be...

使用道具举报

千问 | 2011-11-27 15:28:04 | 显示全部楼层

for i:=1 to n dofor j:=i to maxn doBeginopt[i,j]:=value[1..j];for k:=i-1 to j-1 doif opt[i,j]>max(opt[i-1,k],value[k+1..j])then opt[i,j]:=max(opt[i-1,k],value[k...

使用道具举报