点这里查看
讨论 / 四种可选解法（pascal）
热心人士 2012-06-26 06:20:00
点我顶贴 收藏 删除
【参考程序1】：

var t,m,i,j:longint；

f:array[0..1000]of longint；

w,c:array[1..100]of longint；

begin

//while not eof do

//begin

readln(t,m)；

fillchar(f,sizeof(f),0)；

for i:=1 to m do read(w[i],c[i])；

for i:=1 to m do

for j:=t downto w[i] do

if f[j-w[i]]+c[i]>f[j] then f[j]:=f[j-w[i]]+c[i]

writeln(f[t])；

//end；

end.

【参考程序2】：

var n,m,i,j:longint；

f:array[0..1000,0..1000]of longint；

w,c:array[1..1000]of longint；

function max(a,b:longint):longint；

begin

if a>b then max:=a

else max:=b；

end；

begin

//while not eof do

//begin

readln(t,m)；

for i:=1 to m do read(w[i],c[i])；

for i:=1 to t do f[0,i]:=0；

for i:=1 to m do f[i,0]:=0；

for i:=1 to m do

for j:=t downto 1 do

if j>=w[i] then f[i,j]:=max(f[i-1,j-w[i]]+c[i],f[i-1,j])

else f[i,j]:=f[i-1,j]；

writeln(f[m,t])；

//end；

end.

【参考程序3】：

var t,m,i,max:longint；

a,w,c:array[1..100] of longint；

procedure judge；

var s1,s2,i:longint；

begin

s1:=0； s2:=0；

for i:=1 to m do

if a[i]=1 then begin inc(s1,w[i])； inc(s2,c[i]) end；

if (s1<=t) and (s2>max) then max:=s2

end；

procedure try(k:longint)；

var i:longint；

begin

for i:=0 to 1 do

begin

a[k]:=i；

if k=m then judge

else try(k+1)；

end；

end；

begin

readln(t,m)； max:=0；

for i:=1 to m do readln(w[i],c[i])；

try(1)；

writeln(max)

end.

【参考程序4】：

var t,m,i,max:longint；

a,b,c,w,v:array[0..100] of longint；

procedure judge；

var i:longint；

begin

if (b[m]<=t) and (c[m]>max) then max:=c[m]

end；

procedure try(k:longint)；

var i:longint；

begin

for i:=0 to 1 do

begin

a[k]:=i； b[k]:=b[k-1] w[k]*i；

c[k]:=c[k-1] v[k]*i；

if k=m then judge

else if b[k]<t then try(k+1)；

end；

end；

begin

readln(t,m)； max:=0； b[0]:=0； c[0]:=0；

for i:=1 to m do readln(w[i],v[i])；

try(1)；

writeln(max)

end.

#1 897357142@2010-04-02 04:06:00
回复 删除
。。。

为什么没C的？有我也看不懂……

#2 徐磊@2010-10-02 00:34:00
回复 删除
为什么、？就是没有C语言的呢？歧视啊？靠。。。
#3 我是白痴@2010-10-04 23:31:00
回复 删除
吃饱了不是一般的空
#4 我是白痴@2010-10-04 23:31:00
回复 删除
回楼主的

吃饱了不是一般的空

#5 xiaogui@2010-10-04 23:32:00
回复 删除
地板欠扁
#6 xiaogui@2010-10-04 23:32:00
回复 删除
地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

#7 xiaogui@2010-10-04 23:32:00
回复 删除
地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

地板欠扁

#8 我是白痴@2010-10-04 23:32:00
回复 删除
小乌醵
#9 傻B漫画@2010-12-03 23:32:00
回复 删除
装箱能过吗
#10 傻B漫画@2010-12-03 23:32:00
回复 删除
。。
查看更多回复
提交回复