回 帖 发 新 帖 刷新版面

主题:终极qb题,菜鸟勿进,非诚勿扰!

1、以2003年我国工业总产值为2000亿,设年增长率为7.6%,问到哪一年我国工业产值能翻一番?

 2、茵茵所在的合唱队共有个人(为奇数)。为了准备一次演出,老师开始为她们安排合唱队形了。大家都知道,合唱队形通常是中间高两端低的。老师是这样安排他们的队形的:先让所有的同学按高个儿在前的顺序排成一队。然后,最高的那位同学单独站出来,这是合唱队形的中心,再让第二位同学站在她的左手边,让第三位同学站在她的右手边,再依次向两端安排其他人……
    事先给定所有人的身高,请输出她们站成合唱队形之后的身高顺序。

3、计算房租费。房租收费标准是:住房面积在90平方米以下的,单价为1.7元/平方米;超过90平方米的,其超过部分单价为2.3元/平方米。输入一面积数据,输出房租总价。

4、输入一年份,由计算机判断该年份是否为闰年。是则输出“YES”,不是则输出“NO”。(历法规定:公元年份能被4整除、但不能被100整除的年份或者能被400整除的年份是闰年,闰年二月份为29天,非闰年二月份为28天。)

5、编写程序,把华氏温度转化为摄氏温度。公式为:C=(F-32)/1.8。其中F是华氏温度,C是摄氏温度。F值由INPUT语句输入

6、在我们参加的各种竞赛中,允许并列的排名方式是经常遇到的。 例如有四名选手的成绩分别为50、80、50、30分,则80分的选手为第一名,50分的两名选手均为第二名,30分的选手为第四名。
请编写一个程序,计算一个选手在这种排名方式之下的名次(分数高的选手排前面)。输出第一行为一个整数,表示参赛的选手数,第二行为个整数,表示每位选手的成绩,第三行为一个整数,表示要查询名次的选手的成绩。

7、已知三角形的ABC的三边a,b,c,编程求三角形的面积

1、一只公鸡值5元,一只母鸡值3元,3只小鸡值1元,现用一百元要买一百只鸡,问有什么方案?
2、求100以内的质数
3、一根29CM长的尺子,只允许在上面刻7个刻度,要能用它量出1~29CM的各种长度。试问应怎样选择刻度?
4、把一元钞票换成一分、二分、五分硬币(每种至少一枚),有哪些种换法?
5、打印出100-999之间的水仙花数(水仙花数是指一个三位数,其各个数之立方和等于该数。例如153 = 13 + 53 + 33即为水仙花数)。

6、甲、乙、丙、丁4个人中有1个人是长沙人,请根据4个人的谈话判断谁是长沙人。已知 4人中有1个人说假话。甲:我不是长沙人。乙:丙是长沙人。丙:丁是长沙人。丁:丙说谎。

7、古希腊人认为因子的和等于它本身的数是一个完全数(自身因子除外),例如:28的因子是1、2、4、7、14,且1+2+4+7+14=28,则28是一个完全数。编程求2-1000内的所有完全数。

1、输出形如下图的n×n方阵(n通过键盘输入)。最外圈是第1层,每层所用数字与层数相同。 
1 1 1 1 1 
1 2 2 2 1 
1 2 3 2 1 
1 2 2 2 1 
1 1 1 1 1 
2、编写一个程序:建立一个10乘10的对角线元素为0,其余元素为1的二维数组元素,并将该数组打印出来,成功后改写该程序,使其对角线元素仍然为0,其余元素为空格字符的二维数组.
3、已知10个有序数,从小到大已排序。现输入一数,要求插入该数后数组仍有序。
4、杨辉三角
  要求:实现10行杨辉三角元素的存储以及输出。
  杨辉三角是数学上的一个数字序列,该数字序列如下:
     1
    1   1
   1  2   1
  1  3   3   1
1  4   6   4   1
  该数字序列的规律为,数组中第一列的数字值都是1,后续每个元素的值等于该行上一行对应元素和上一行对应前一个元素的值之和。例如第五行第二列的数字4的值,等于上一行对应元素3和3前面元素1的和。
5、有一电文,已按下列规律译成译码: 
??????????????A→Z??a→z 
??????????????B→Y??b→y 
??????????????C→X??c→x 
??????????????…­???… 
     即第一个字母变成第26个字母,第i个字母变成第(26-i+1)个字母。非字母字符不变。编写一个程序将密码译成原文,并输出密码和原文。

6、给整型二维数组 b[3][4]输入12个数据,计算并输出数组中所有正数之和、所有负数之和。
7、青年歌手参加歌曲大奖赛,有10个评委进行打分,试编程求这位选手的平均得分(去掉一个最高分和一个最低分)。

1、一个数列,它的头两个数是1,1,第三个数等于前两个数之和,以后每个数分别等于该数前两个数之和,请编写程序,打印出此数列的前12个数。请同学们思考如何编程实现?并学会举一反三。

2、有一个人第一月底时在一间房子里放了一对刚出生的小兔,小兔一个月后能长成大兔,再过一个月便能生下一对小兔,次后每个月生一对小兔。如果不发生死亡,那么到年底这个人有多少对兔子?

3、有一楼梯有18级台阶,今假设有以下3种上法:一次上1级,一次上2级,一次上3级,问要上这18级台阶,共有多少种上法?

4、 运动会开了M天,发了N枚金牌,第一天发了1枚加剩下七分之一,第二天发了两枚加剩下七分之一……到第M天正好发完。求M,N 

5、2000个学生排成一行,依次从左到右编上1~2000号,然后从左到右按一、二报数,报一的离开队伍,剩下的人继续按一、二报数,报一的离开队伍,……按这个规律如此下去,直至当队伍只剩下一人为止。问:这时一共报了多少次?最后留下的这个人原来的号码是多少?

6、设有n条封闭曲线画在平面上,而任何两条封闭曲线恰好相交于两点,且任何三条封闭曲线不相交于同一点,问这些封闭曲线把平面分割成的区域个数。

7、猴子吃桃问题。猴子第一天摘下若干个桃子,当即就吃了一半,还不过瘾,又吃了一个。第二天早上又将剩下的桃子吃掉了一半,又多吃一个。以后每天早上都吃了前一天剩下的一半零一个。到第十天早上想再吃时,见只剩下一个桃子了。求第一天共摘了多少桃子?

1、【问题描述】九华小学召开秋季运动会。六(一)班的学生小杰领到了他的运动员号码“15”,由1张“1”和1张“5”,共2张号码牌组成的;他的同学张伟号码是“6”,只有1张“6”号码牌;而李飞的号码是“1111”,由4张“1”号码牌组成。爱动脑筋的小杰就想了:假设学校的运动员数是N,按1-N编号,那么分别需要“0”~“9”这十种号码牌多少张呢?请你编写一个程序,帮他计算出需要的各种号码牌张数。(24分)
【样例输入】(键盘输入运动员人数N,N<2000)
15
【样例输出】(分别对应号码0-9需要的张数)
1 8 2 2 2 2 1 1 1 1 



2、问题描述】看到自己的号码是“1111”,李飞很为自己的号码是一个靓号得意。小杰思索了一会说:“按二进制换算,我的号码才是‘1111’呢”。果然不错,十进制的“15”换算成二进制可不是“1111”吗?同学们都这样想。小杰灵机一动说:“我们来玩一个找朋友的游戏,像我的号码的二进制数里有4个‘1’,我就找号码的二进制数里也只有4个‘1’、号码数值比我的大且数值差最小的同学做朋友”。同学们觉得很有意思,就热闹地开始玩“找朋友”游戏了。假设学校的运动员数是N(N=2500),按1-N编号,请你编写一个程序,帮某位号码是M的同学找到他的朋友。(26分)
【样例输入】(键盘输入某位同学的十进制数号码M)
17
【样例输出】(他和他的朋友的号码的十进制形式及二进制形式)
17 :10001
18 :10010


3、【问题描述】运动会的开幕式开始了,选手们按照比赛项目和年级排成一列顺序入场。小杰很高兴,这毕竟是自己作为小学生的最后一次运动会了。他一边兴奋地走着,一边数着他前面有几个人的运动员号码比自己的号码小。教信息学的王老师恰好走过来,听说小杰在数排在自己前面比自己的运动员号码小的人数,笑着说:“小杰,那我就布置你一道作业,假设按现在的顺序,这N位同学都告诉你他的前面有多少位同学的运动员号码比自己的小,你能推算出他们的运动员号码吗?”。晚上回家,经过一番编写调试,小杰终于编写出了这样的程序。怎么样,你也试一试?假设学校的运动员数是N(N<=200),现在按1-N编号,A(1)~A(N)分别为每位运动员前面比自己的运动员号码小的人数,请推算出他们原来的运动员号码。(26分)
【样例输入】(键盘输入N、A(1)~A(N))
4,0,0,1,3
【样例输出】(按现在的队列顺序输出原来的运动员号码)
3,1,2,4


4、【问题描述】运动会快结束了。班主任陈老师让小杰帮助他挑选N位同学排成一个1~N的顺序队列,参加闭幕式的演出排练。假设最多可以有N位男生和N位女生供挑选参加此排列,要求不能有一位女生单独在队列中(每1名女生的前或后至少有另1名女生)。请你编程帮助小杰计算一下共有多少种方案?N从键盘输入,N<100,要求输出精确数值。如:N=4时,可以有女女女女、女女女男、男女女女、女女男男、男女女男、男男女女、男男男男共7种方案。(24分)
【样例输入】(键盘输入N)
4
【样例输出】(方案数)
7

1.设三段线段长度分别为a、b、c,且a>=b>=c>0,写一个程序,判别给出a、b、c能否组成一个三角型?

2.将字符A,B,C,D或a,b,c,d转换成1,2,3,4,其余的转成5。

3.求N个整数的最大公约数和最小公倍数。

4.猴子吃枣问题。猴子摘了一堆枣,第一天吃了一半,还嫌不过瘾,又吃了一个;第二天又吃了
剩下的一半零一个;以后每天如此。到第十天,猴子一看只剩下一个了。问最初有多少个枣子?

5.任给一个自然数n,求出这个自然数不同因数的个数。例如 n=6时,因为1,2,3,6这四个数均是6的因数,故输出为total=4

6、打印一万以内的完全数(亲和数),完全数定义:一个数的因子和等于这个数本身的那么这个数就称作为完全数,例6的因子和1+2+3=6则6为完全数。(此题目的因子和都不包括本身这个因子)

1、已知字符串A$="ABCDEFGHIJABCDEFKLMN",当从键盘输入其一个子字符串B$后,从A$中全部删除该子字符串。

2、程序实现将一个I行J列的二维数组T转化成一维数组B后输出。(I<10,J<10,I、J及数组元素从键盘输入)。

3、从键盘输入一个真分数N/D,以下程序实现输出它的小数形式。最多输出100位小数,如果小数形式存在循环节,要将其用括号括起来。例如:输入N=1,D=3时,输出.(3);输入N=3,D=8时,输出.375。请完成。(数组SH(100)表示过程中的商,数组YU(100)表示过程中的余数)

4、快速排序的思想是:先从数据序列中选一个元素作为基准,将序列划分为两个子序列,将序列中所有比该元素小的元素都放到左边的子序列中,所有比该元素大或等于该元素的元素都放到右边的子序列中;再对左右两个子序列分别用同样的方法递归处理,直到每一个待处理的序列的长度为1, 处理结束。下列程序实现随机产生9个三位数的正整数,并快速排序后,按升序输出,请完成。







如有不会,群体讨论!






_____________________--------------------______________________
                           Q-BASIC

回复列表 (共28个回复)

沙发

题目太多
而且大多数不难
楼主可以挑几题认为有难度的 我来帮你编写一下

板凳

1.
CLS
m=2000
DO
k=k+1
m=m/100*7.6
LOOP UNTIL m>=4000
PRINT k
END

3 楼

2.
CLS
DO
INPUT n
LOOP UNTIL n mod 2=1
k=n\2+1
DIM a(n)
FOR i=1 TO n
INPUT a(i)
NEXT i
FOR i=1 TO k-1
FOR j=i+1 TO k
IF a(i)>a(j)THEN SWAP a(j),a(i)
NEXT j,i
FOR i=k TO n-1
FOR j=i+1 TO n
IF a(i)<a(j)THEN SWAP a(j),a(i)
NEXT j,i
FOR i=1 TO n
PRINT a(i);
NEXT i
END

4 楼

3.
CLS
INPUT n
IF n<=90 THEN
k=n*1.7
ELSE
k=n*2.3
END IF
PRINT k
END

5 楼

4.
CLS
INPUT n
IF n MOD 1000<>0 THEN
IF n MOD 4=0 THEN PRINT"YES" ELSE PRINT"NO"
ELSE
IF n MOD 400=0 THEN PRINT"YES" ELSE"NO"
END IF
END

6 楼

5.
CLS
INPUT f
PRINT(f-32)/1.8
END

7 楼

7.
CLS
INPUT a,b,c
s=(a+b+c)/2
PRINT SQR(s*(s-a)*(s-b)*(s-c))
END

8 楼

1.
CLS
INPUT n
DIM a(n, n)
p = FIX(n / 2 + .5)
FOR i = 1 TO p
FOR j = 1 TO p
IF i >= j THEN a(i, j) = j ELSE a(i, j) = i
a(i, n + 1 - j) = a(i, j)
a(n + 1 - i, j) = a(i, j)
a(n + 1 - i, n + 1 - j) = a(i, j)
NEXT j
NEXT i
FOR i = 1 TO n
FOR j = 1 TO n
PRINT a(i, j);
NEXT j
PRINT
NEXT i
END

2.
CLS
DIM a$(10, 10)
FOR i = 1 TO 10
FOR j = 1 TO 10
IF i = j OR i + j = 11 THEN a$(i, j) = "0" ELSE a$(i, j) = "1"
PRINT a$(i, j);
NEXT j
PRINT
NEXT i
PRINT
FOR i = 1 TO 10
FOR j = 1 TO 10
IF a$(i, j) <> "0" THEN a$(i, j) = " "
PRINT a$(i, j);
NEXT j
PRINT
NEXT i
END


3.
CLS
DIM a(11)
FOR i = 1 TO 10
INPUT a(i)
NEXT i
FOR i = 1 TO 9
FOR j = i + 1 TO 10
IF a(i) > a(j) THEN SWAP a(i), a(j)
NEXT j, i
INPUT a(11)
FOR i = 1 TO 10
FOR j = i + 1 TO 11
IF a(i) > a(j) THEN SWAP a(i), a(j)
NEXT j, i
FOR i = 1 TO 11
PRINT a(i);
NEXT i
END

4.
CLS
DIM a(10, 10)
a(1, 1) = 1
FOR i = 2 TO 10
a(i, 1) = 1
a(i, i) = 1
FOR j = 2 TO i - 1
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
NEXT j
NEXT i
FOR i = 1 TO 10
PRINT TAB(20 - 2 * i);
FOR j = 1 TO i
PRINT USING "####"; a(i, j);
NEXT j
PRINT
NEXT i
END

5.
CLS
INPUT n$
ln = LEN(n$)
FOR i = 1 TO ln
a$ = MID$(n$, i, 1)
IF ASC(a$) < 97 THEN
a$ = CHR$(90 - (ASC(a$) - 64) + 1)
ELSE
a$ = CHR$(122 - (ASC(a$) - 96) + 1)
END IF
p$ = p$ + a$
NEXT i
PRINT p$
END

6.
CLS
DIM b(3, 4)
FOR i = 1 TO 3
FOR j = 1 TO 4
DO
INPUT b(i, j)
LOOP UNTIL b(i, j) = FIX(b(i, j))
IF b(i, j) < 0 THEN p = p + b(i, j) ELSE o = o + b(i, j)
NEXT j, i
PRINT p
PRINT o
END

7.
CLS
DIM a(10)
INPUT a(1)
min = a(1): q = 1
max = a(1): p = 1
x = a(1)
FOR i = 2 TO 10
INPUT a(i)
IF a(i) > max THEN p = 0: max = a(i)
IF a(i) = max THEN p = p + 1
IF a(i) < min THEN q = 0: min = a(i)
IF a(i) = min THEN q = q + 1
x = x + a(i)
NEXT i
b = 10 - q - p
PRINT (x - q * min - p * max) / b
END

9 楼

第三轮:
1.CLS
FOR i = 0 TO 20
FOR j = 0 TO 100 / 3
FOR k = 0 TO 100
IF i * 5 + j * 3 + k = 100 THEN PRINT i, j, k
NEXT k, j, i
END


2.CLS
FOR i = 2 TO 100
f = 0
FOR j = 2 TO i - 1
IF i MOD j = 0 AND i <> j THEN f = 1
NEXT j
IF f = 0 THEN PRINT i;
NEXT i
END


4.CLS
FOR i = 1 TO 100
FOR j = 1 TO 50
FOR k = 1 TO 20
IF i + j * 2 + k * 5 = 100 THEN PRINT i; j; k
NEXT k, j, i
END

5.CLS
FOR i = 100 TO 999
a = i \ 100
b = i \ 10 MOD 10
c = i MOD 10
IF i = a * a * a + b * b * b + c * c * c THEN PRINT i
NEXT i
END


6.CLS
FOR i = 0 TO 1
FOR j = 0 TO 1
FOR k = 0 TO 1
FOR x = 0 TO 1
IF i + j + k + x = 1 AND ((i <> 1) + (k = 1) + (x = 1) + (x <> 1) = -3) THEN
IF i = 1 THEN PRINT "A"
IF j = 1 THEN PRINT "B"
IF k = 1 THEN PRINT "C"
IF x = 1 THEN PRINT "D"
END IF
NEXT x
NEXT k
NEXT j
NEXT i
END


7.CLS
FOR i = 2 TO 1000
FOR j = 1 TO i \ 2
IF i MOD j = 0 THEN n = n + j
NEXT j
IF i = n THEN PRINT i;
n = 0
NEXT i
END

10 楼

那个,我有说我不会吗?我只是给那些缺题的人一些题库!你怎么得了便宜还卖乖?

我来回复

您尚未登录,请登录后再回复。点此登录或注册