主题：有大虾帮忙不?急求
qcpnet
[专家分：0] 发布于 2008-12-16 09:04:00
一位财主临终前给儿子们分财产，他把财产分成若干份，然后给第一个儿子一份，再加上剩余财产的１／１０；给第二个儿子两份，再加上剩余财产的１／１０；．．．．．．；给第i个儿子i份，再加上剩余财产的１／１０．每个儿子都窃窃自喜．以为得到了父亲的偏爱，却不知道老父亲是一碗水端平的．请你设计一个程序回答，老财主有几个儿子？财产共分成了多少份？
回复列表 （共11个回复）
沙发
hxy_anhui [专家分：320] 发布于 2009-01-29 16:00:00
CLS
R = 1
100 R = R + 1 : S = 0 : REDIM A(R)
200 S = S + 1 : F = (1 + R) * R / 2 + S
FOR I= 1 TO R
A(I) = I + (F - I) / 10
F = F - A(I)
NEXT I
FOR I = 1 TO R - 1
IF A(I) <> A(I + 1) THEN GOTO 200
IF S > R * R THEN GOTO 100
NEXT I
PRINT R,(1 + R) * R / 2 + S
END
合肥小学四年级一学生，请楼主加分！
板凳
phile [专家分：2310] 发布于 2009-08-07 18:45:00
转帖
CLS
N=1
DO
N=N+1
A=N
FOR I=1 TO N
A=A-I-(A-I)/10
IF A<> INT(A) THEN EXIT FOR
IF A=0 THEN DO
NEXT I
LOOP
? I;(多少个儿子)
? N;(多少钱)
3 楼
xyf98413 [专家分：0] 发布于 2009-08-17 09:51:00
请二楼的不要把“print”打成“？”
4 楼
1054122 [专家分：750] 发布于 2009-08-17 12:25:00
[quote]请二楼的不要把“print”打成“？”[/quote]
为什么
5 楼
phile [专家分：2310] 发布于 2009-08-17 13:44:00
why？
6 楼
天天和和 [专家分：1420] 发布于 2009-08-23 19:15:00
‘？’在qb中会自动转换成‘print’
7 楼
phile [专家分：2310] 发布于 2009-08-24 12:13:00
说得对
8 楼
905482852 [专家分：380] 发布于 2009-08-26 11:04:00
CLS
R=1
100 R=R+1:S=0:REDIM A(R)
200 S=S+1:F=(1+R)*R/2+S
FOR I=1 TO R
A(I)=I+(F-I)/10
F=F-A(I)
NEXT I
FOR I=1 TO R-1
IF A(I)<>A(I+1) THEN GOTO 200
IF S>R*R THEN GOTO 100
NEXT I
PRINT R,(1+R)*R/2+S
END
9 楼
phile [专家分：2310] 发布于 2009-08-26 17:30:00
楼上写法比较怪？！
10 楼
天天和和 [专家分：1420] 发布于 2009-08-26 22:16:00
有什么怪异的？~
我来回复
您所在位置：