主题：请各位高手解题
小精灵1号
[专家分：1040] 发布于 2007-08-14 07:54:00
由苏州市科学技术协会创办的公益性质的青少年科学工作室,旨在通过参与、实践、体验的过程培养青少年的动手能力及创新意识。今年的夏令营安排了一个让营员动手实践的活动项目，要求利用该工作室提供的锯床和材料在辅导老师的指导下加工制作出各种不同的模型。
活动时两名营员组成一小组制作N个模型。制作每件模型需一定时间，且只能由一人完成。例如N=4时，四件模型完成的时间分别为：8，11，13，21分钟，此时二人有多种完成的方案：
方案一：A 制作前3件用时32分钟，B制作第4件用时21分钟，两人总的完成时间为32分钟；
方案二：A 制作1、4件用时29分钟，B制作2、3件用时24分钟，两人总的完成时间为29分钟。
在确定了N及每件模型制作时间后，现在请你找出一种完成时间最少的方案。
【输 入】：文件读入。第一行一个整数N ，表示N个模型（2≤N≤100）。
第二行N个整数（≤10000），表示制作N个模型的用时。数与数之间用逗号分隔。
【输 出】：输出到屏幕 。一个整数（表示最少用时）。
【样 例】：
输入 输出
3 21
12，18，9
回复列表 （共4个回复）
沙发
爱丽斯LING [专家分：560] 发布于 2007-08-14 10:23:00
DECLARE SUB WHY (I)
CLS
OPEN "F:\2006data\T3\JS31.IN" FOR INPUT AS #1
DIM SHARED N, M, S
INPUT #1, N
DIM SHARED A(N), X(N), Y(15000)
FOR I = 1 TO N: INPUT #1, X(I): B = B + X(I): NEXT I
FOR M = 1 TO N \ 2: WHY 1: NEXT M
FOR I = 1 TO S
IF Y(I) < B - Y(I) THEN Y(I) = B - Y(I)
NEXT I
FOR I = 2 TO S
IF Y(1) > Y(I) THEN Y(1) = Y(I)
NEXT I
PRINT Y(1)
END
SUB WHY (I)
FOR J = I TO N
A(I) = J: F = -1
FOR K = 1 TO I - 1
IF J <= A(K) THEN F = 0: EXIT FOR
NEXT K
IF F THEN
IF I < M THEN
WHY I + 1
ELSE
G = 0
FOR K = 1 TO M: G = G + X(A(K)): NEXT K
FOR L = 1 TO S - 1
IF Y(L) = G THEN 10
NEXT L
S = S + 1: Y(S) = G
END IF
END IF
10 NEXT J
END SUB
板凳
hxy_anhui [专家分：320] 发布于 2009-01-29 22:15:00
还用子过程？这么简单！
CLS
INPUT N
DIM A(N),S(N*N),T(N*N)
S=0
FOR I=1 TO N:INPUT A(I):S=S+A(I):NEXT I
Z=S\2+1
2:Z=Z-1
FOR I=1 TO N
IF A(I)>=Z THEN PRINT A(I):END
NEXT I
FOR I=1 TO N
A=I-1:ZZ=Z:P=0
DO
A=A+1
IF A<=N THEN
IF A(A)<=ZZ THEN P=P+1:S(P)=A:T(P)=A(A):ZZ=ZZ-T(P)
ELSE
A=S(P):ZZ=ZZ+T(P):P=P-1
END IF
LOOP UNTIL P=0 OR ZZ=0
IF ZZ=0 THEN PRINT S-Z:END
NEXT I
GOTO 2
END
3 楼
天天和和 [专家分：1420] 发布于 2009-02-07 13:00:00
CLS
INPUT N
DIM A(N),S(N*N),T(N*N)
S=0
FOR I=1 TO N:INPUT A(I):S=S+A(I):NEXT I
Z=S\2+1
10 Z=Z-1
FOR I=1 TO N
IF A(I)>=Z THEN PRINT A(I):END
NEXT I
FOR I=1 TO N
A=I-1:ZZ=Z:P=0
DO
A=A+1
IF A<=N THEN
IF A(A)<=ZZ THEN P=P+1:S(P)=A:T(P)=A(A):ZZ=ZZ-T(P)
ELSE
A=S(P):ZZ=ZZ+T(P):P=P-1
END IF
LOOP UNTIL P=0 OR ZZ=0
IF ZZ=0 THEN PRINT S-Z:END
NEXT I
GOTO 10
END
4 楼
天天和和 [专家分：1420] 发布于 2009-03-05 23:20:00
人要谦虚，低~~调~~！
我来回复
您所在位置：