QBASIC北京市赛信息学复习

北京市信息学奥赛难题复习 (QBASIC 组第 2 版带答案 ) NEXT i PRINT #2, LTRIM$(STR$(shang)) CLOSE END
2012 年 10 月编
2011 年：选小寿星 CHOICE.BAS
【问题描述】 五年级一班有一个传统，全班一起庆祝当月过生日的同学。有 m 名学生都是 11 月份过生日，班主任决定挑一名学生作为寿星代表切蛋糕。班主任将过生日的 m 名学生随机围成一个圈，从 1 到 m 进行编号。随机挑一个数字 n（1<=n<=9） ， 从第一个同学开始连续报数，报数到 n 的同学就出局，然后从下一位同学重新开 始报数，一直到剩下最后一名同学。由于女生少，班主任决定每个女生有 2 次机 会，也就是说，每名女生第 2 次数到 n 时才出局。 例如，m =3,其中有 1 名女生，编号顺序为 1,2,3，分别是男，女，男，n=2。第一 轮报数，报到的是 2 号女生，暂不出局（注：女生有 2 次机会） 。第二轮报数， 3 号男生报 1， 1 号男生报 2 出局。 第三轮报数， 2 号女生报 1 ， 3 号男生报 2 出局， 最后留下 2 号女生。 有 m =5，其中 2 名女生，编号顺序为 1,2,3,4,5，分别为男，男，女，女，男。n=3。 挑选后的结果是 5 号，男生。 （注：女生有 2 次机会） 【输入文件】 文件名：choice.in 第一行输入数字为 m，表示有 m 个人；m <20 第二行是 m 个整数，1 代表男生，0 代表女生。 第三行是 n，表示 n 是出局数字。 （注意：女生有 2 次机会） 【输出文件】 文件名：choice.out 输出留下学生的序号。 【样例输入】 5 11001 3 【样例输出】 5 OPEN "CHOICE.IN " FOR INPUT AS #1 OPEN "CHOICE.OUT" FOR OUTPUT AS #2 INPUT #1, m DIM a(m) FOR i = 1 TO m INPUT #1, a(i) NEXT i FOR i = 1 TO m b(i) = 1 NEXT i
北京市信息学奥赛难题复习 (QBASIC 组第 2 版带答案 )
2012 年 10 月编
2010 年：统计单词 STATTIS.BAS
【问题描述】 小明在学习英语单词，一边读，一边敲进 stattis.in 文件中。学习完后，他想 统计一下某个特定的单词敲过多少次。 例如：computer true hello computer key word hi hello. 统计 computer 单词的个 数是 2。输入的每个单词之间只有一个空格，最后以英文句号“.”为终止符。输 入要求：开头就是单词，单词之间只有一个空格，除了英文句号“.”之外，不 存在其他特殊字符。输入的字符的总长度（包括空格）≤ 200。需要统计的单词 长度≤ 10。 【输入文件】 文件名：stattis.in 文件中第一行为输入的单词内容，第二行为需要统计的单词，以回车字符为 结束。 【输出文件】 文件名：stattis.out 单词出现次数。 【样例输入】 computer true hello computer key word hi hello. computer 【样例输出】 2 OPEN "STATTIS.IN" FOR INPUT AS #1 OPEN "STATTIS.OUT" FOR OUTPUT AS #2 INPUT #1, a$ INPUT #1, b$ la = LEN(a$) a$ = " " + LEFT$(a$, la - 1) DIM x$(la) FOR i = 1 TO la x$(i) = MID$(a$, i, 1) NEXT i DIM dc$(la) t=0 FOR i = 1 TO la IF x$(i) = " " THEN t=t+1 ELSE dc$(t) = dc$(t) + x$(i) END IF NEXT i js = 0
2012 年 10 月编
2007 年：我家的果园有多大 ORCHARD.BAS
【问题描述】 我家的果园是一个不规则的形状，如下图所示： 它的北边界和南边界是标准的东西走向直线形，其中北边界长为 m 米，南 边界长为 π 米。 但东西边界是相当不规则的， 由一些向南和向东的线段交替组成。 如果给出所有这些线段的长度，你能计算一下，我家果园的面积有多大吗? 【输入文件】 文件名：0RCHARD.IN 文件第一行是两个整数 m,n,表示北、南边界的长度，以米为单位。 第二行是一个整数 p(1≤p≤21)，表示西边界由多少条线段组成(比如上图中， 这个数字就是 7，显然的，P 一定为奇数)，第三行为 P 个整数，按从上到下的顺 序依次给出西边界每条线段的长度，以米为单位。
2012 年 10 月编2006 年：来自计算机做除法 DIVI.BAS
【问题描述】 用笔计算除法你当然会，但如果被除数和除数都特别大的话，就是一件挺头 疼的事了。所以，请你写一个程序，让计算机来做这个：请计算 355 113 小数点 后第 n 位上的数字是多少？ 【输入文件】 文件名：divi.in 文件中只有一个整数 n （ 1 n 999999 ） 。 【输出文件】 文件名：divi.out 文件中只有一个数字。在第一行、第一列的位置输出第 n 位上的数字。 【样例输入】divi.in 的内容为： 4 【样例输出】 5 【样例输入】divi.in 的内容为： 999998 【样例输出】 7 OPEN "DIVI.IN " FOR INPUT AS #1 OPEN "DIVI.OUT" FOR OUTPUT AS #2 DIM i AS DOUBLE DIM n AS DOUBLE DIM shang AS DOUBLE DIM yushu AS DOUBLE DIM beichushu AS DOUBLE INPUT #1, n beichushu = 355 FOR i = 1 TO n + 1 shang = beichushu \ 113 yushu = beichushu MOD 113 beichushu = yushu * 10
【问题描述】 在一个矩形的坑的底部，无缝地铺了一层积木（为简单起见，本题中，用矩形表 示积木），如下图所示（阴影部分表示地，中空的部分表示坑，所有的白色矩形 都表示坑底的积木）：
现在，我们要在这个坑中再放入一块正方形积木，但我们希望这块积木的位 置最低。如下图所示，左图中的灰色积木的位置就比右图中灰色积木的位置更好 （本题不考虑重力因素， 假定新放入的积木不会倾倒， 它的边永远平行于坑壁） 。 而且，可以看出，左图中灰色方块的位置是所有可能的位置中最低的位置（本题 中，假定坑足够宽也足够深，后加的那块积木不会放不进去）。
【问题描述】 有一种字符串压缩方式简单易行。那就是, 如果有连续很多个相同的字符,就 把他们写作:字符+出现次数的形式。 例如:aaagbbbbaac 压缩成 a3gb4a2c 现在你也来试试。 注意:字符单个出现的不作改变,只有连续出现多次才有改变。 【输入文件】 文件名：SHORT.IN 文件中只有一个字符串，由小写英文字母组成。(长度小于 240) 【输出文件】 文件名：SHORT.OUT 文件中有一个字符串，表示压缩后的字符串。 【样例输入】 aaagbbbbaac 【样例输出】 a3gb4a2c OPEN "SHORT.IN" FOR INPUT AS #1 OPEN "SHORT.OUT" FOR OUTPUT AS #2 INPUT #1, a$ la = LEN(a$) DIM x$(la + 1) FOR i = 1 TO la x$(i) = MID$(a$, i, 1) NEXT i FOR i = 1 TO la - 1 FOR j = i + 1 TO la IF x$(i) = x$(j) AND x$(i) <> "" AND x$(j) <> "" THEN js = js + 1 IF js <> 0 AND x$(j) <> x$(j + 1) THEN x$(j) = LTRIM$(STR$(js + 1)) js = 0 EXIT FOR
北京市信息学奥赛难题复习 (QBASIC 组第 2 版带答案 ) ELSE EXIT FOR END IF NEXT j NEXT i FOR i = n - 1 TO 1 STEP -1 FOR j = i + 1 TO n IF g(i) > g(j) THEN r(i) = r(i) + k(j) ELSE EXIT FOR END IF NEXT j NEXT i FOR i = 1 TO n IF x < k(i) + l(i) + r(i) THEN bcg = g(i) bc = i EXIT FOR END IF NEXT i FOR i = 1 TO n IF x < k(i) + l(i) + r(i) AND bcg > g(i) THEN bcg = g(i) END IF NEXT i PRINT #2, LTRIM$(STR$(bcg + x)) CLOSE END
北京市信息学奥赛难题复习 (QBASIC 组第 2 版带答案 )
2012 年 10 月编
第四行是一个整数 q(1≤q≤21)，表示东边界由多少条线段组成(比如上图中， 这个数字是 5，q 也一定为奇数)，第五行为 q 个整数，按从上到下的顺序依次给 出东边界每条线段的长度，以米为单位。 【输出文件】 文件名：0RCHARD.OUT 文件中只有一个整数，表示我家果园的面积。以平方米为单位。 【样例输入】 20 16 5 4 3 13 3 3 3 18 2 2 【样例输出】 347 OPEN "brick.in" FOR INPUT AS #1 OPEN "brick.out" FOR OUTPUT AS #2 INPUT #1, m, n INPUT #1, p DIM a(p) FOR i = 1 TO p INPUT #1, a(i) NEXT i INPUT #1, q DIM b(q) FOR i = 1 TO q INPUT #1, b(i) NEXT i x= 0 FOR i = 1 TO p STEP 2 x = x + a(i) NEXT i y= n FOR i = 2 TO p STEP 2 y = y + a(i) NEXT i s= x* y FOR i = 2 TO p STEP 2 t=0 FOR j = 1 TO i - 1 STEP 2 t = t + a(j) NEXT j s1 = s1 + a(i) * (x - t) NEXT i FOR i = 2 TO q STEP 2