haihongyuan.com
海量文库 文档专家
全站搜索:
您现在的位置:首页 > 小学教育 > 学科竞赛学科竞赛

2000年小学信息学初赛----完善程序

发布时间:2014-05-18 13:32:22  

2000年小学信息学初赛----完善程序

相关搜索: 等差数列

NOIP 2000 小学信息学 完善程序 第1题

等差数列(15分)

等差数列的定义:设有一个数列a1,a2,a3,…,从第二项开始,每项等于它前面的项加上一个常数,此数列称为等差数列,其常数称为公差。

例如2,5,8,11,… 其中公差为3,即第二项等于第一项加3,第三项等于第二项加3,…

【问 题】

求出160以内的6个成等差数列的素数。

【程序说明】

变量x1表示第一个数,可能范围为2~155;变量d表示公差

【程序清单】

20 FOR X1 = 2 TO 155

25

30 k = INT((160 - X1) / 5)

40 FOR D = 45 d1 = D

50 s = 0

60 FOR I = 0 TO 5

70 x3 = X1 + I * D

80 GOSUB 1000

90 s = s + P

100 NEXT I

110 IF 120 NEXT D

130 NEXT X1

200 FOR I = 0 TO 5

210 PRINT 220 NEXT I

230 END

1000 P = 1

1010 FOR J = 2 TO x3 - 1

1020 IF 1030 NEXT J

1040 RETURN

NOIP 2000小学信息学 完善程序 第2题

【问题描述】

输入2个整数k,n,将k分成n个全不相同的整数,并使此n个整数的乘积为最大。

【程序说明】

数组a存放n个数(假设n≤20)。

【程序清单】

10

20 INPUT K, N 30 S = 40 FOR I = 1 TO N 45

48 NEXT I 50 K = K - S

60 H = INT(K / N) 70 H1 = K - H * N 80 FOR I = 1 TO N 85 A(I) = A(I) + H 88 NEXT I 90 I = N

100 IF 110 A(I) = A(I) + 1 115 H1 = H1 - 1 118

120 GOTO 100 130 FOR I = 1 TO N 135 PRINT A(I); 138 NEXT I 140 END

网站首页网站地图 站长统计
All rights reserved Powered by 海文库
copyright ©right 2010-2011。
文档资料库内容来自网络,如有侵犯请联系客服。zhit326@126.com