回 帖 发 新 帖 刷新版面

主题:几道编程序题,高人帮帮忙啊,谢谢了


1、输入N个任意数,将其中重复的数删得只剩下一个。
INPUT “N=”; N
FOR I = 1 TO N
  INPUT A(I)
NEXT I
______        
DO
  X = I + 1
  DO
    IF A(I) = A(X) THEN
      FOR J =______           
          ______          
      NEXT J
      ______            
    ELSE
      X = X + 1
    END IF
  LOOP UNTIL X > N
  _______          
LOOP UNTIL I >= N
FOR I = 1 TO N
  PRINT A(I);
NEXT I : END

2、键入N,表示行数(1<N<20),打印如下形式的三角形。
如:N=7
                1
               232
              34543
             4567654
            567898765
           67890109876
          7890123210987
10  INPUT “N=”; N
20  FOR I = 1 TO N
30  PRINT TAB(20-I);
40  X = I
50  FOR J = 1 TO I
60  IF X > 9 THEN______             
70  PRINT CHR$(X+48);
80  X = X + 1
90  NEXT
100 X =______:IF______ THEN 160
110 FOR J = 1 TO I - 1
120 IF______THEN X = X + 10
130 PRINT CHR$(X+48);
140 X = X – 1 : 150 NEXT J : 160______: 170 NEXT I

3、调用子程序,求以下四个数的最大公约数
FOR I = 1 TO 4
  READ A(I)
NEXT
DATA 147, 210, 315, 735
FOR I = 1 TO____
    _______      
NEXT I
PRINT “GCD=______”;       
END
10 DO
Q = A(I) \ A(I+1)
R =_______   
IF R = 0 THEN RETURN
   ______: A(I+1) = R
LOOP

4、以下程序能完成下列三项功能:
1)读入20个大写英文单词,统计单词IS出现的次数T;
2)测试这20个英文单词的平均长度;
3)将这20个英文单词按字典顺序排列输出,并打印原来的序号
N = 0 : T = 0 : X$= “IS”
_______           
FOR I = 1 TO 20
  PRINT “<”; I; “>”; 
INPUT A$(I)
B(I) = I
NEXT I
FOR I = 1 TO 20
  N =______
  IF______THEN T = T + 1 : 
NEXT I
PRINT “单词IS出现的次数=”;T, “单词的平均长度=”; N/20
    FOR I = 1 TO ______:FOR J = I + 1 TO 20
IF______THEN_______:______          
   NEXT J, I
    FOR I = 1 TO 20
    PRINT “[“;I;”]”; A$(I); “——>”; _______
    NEXT I
END

5、有一些分子、分母都是两位数的真分数,且分子的个位数与分母的十位数字相同,若将该分数的分子(用变量M表示)的个位数字和分母(N)的十位数字同时划去,所得到的结果正好等于原分数约分后的结果。例如,16/64=1/4就是其中的一个。找出所有满足条件的真分数。
   10 FOR I = 1 TO 9 :FOR J = 1 TO 9 :______ 
   20 IF ______THEN 60
   30 M = _______:N = ______       
   40 IF  ______ THEN 60
   50 IF  ______THEN PRINT J*10+I; “/”; I*10+K
   60 NEXT K, J, I : END
6、    【问题描述】从1,2,……,N这N个自然数中,任取R个数进行组合,(4≤N≤8,1≤R<N)然后列出全部组合。
例如:当N=5,R=3时,列出的全部组合如下:
1 2 3     1 2 4     1 2 5
1 3 4     1 3 5     1 4 5
2 3 4     2 3 5     2 4 5
3 4 5
S=10
【程序说明】对任给出的R和N,则
第一个组合为1,2,……,R
然后变化第R位;
第二个组合为1,2,……,R+1
继续变化第R位,可以变到N;然后再变化第R-1位,R-2位,……,直至第1位的变化。
用数组B(20)记录组合,S记录组合总数。
【程序清单】
CLS
DIM B(20)
INPUT N,R
①______       
FOR I = 0 TO R
  B(I)=I
NEXT I
DO WHILE ②______          
  S=S+1
  FOR I = 1 TO R
PRINT B(I);“ ”;
  NEXT I
  PRINT
  J=R
  DO WHILE ③______                 
J=J-1
  LOOP
  B(J)=B(J)+1
  FOR I = J+1 TO R
     B(I)=B(I-1)+1
  NEXT I
LOOP
PRINT “S=”;S
END
7、    对50位同学的数学成绩按100、90-99、80-89、70-79、60-69、50-59、0-49进行分段统计(成绩随机产生)。
   10 ________:FOR I = 1 TO 50
   20 A(I) = INT(______) :NEXT I
   30 FOR I = 1 TO 50 :A = _______       
   40 S(A) = S(A) + 1 :NEXT I
   50 PRINT “100分:”;_______       
   60 FOR I = 9 TO______STEP_______      
   70 PRINT _______;S(I)
   80 NEXT I :PRINT “0-49:”;_______       
   90 END

8、    下图中的九个数字分成三段,按顺时针方向组成一个两位数、一个三位数、一个四位数,且满足等式:两位数×三位数=四位数
10 A$ = “13857964213857964”
20 FOR I = 1 TO 9
30 B$ = MID$(A$,______)
40 C$ = MID$(A$, I+2, 3)
50 D$ = MID$( A$,______ )
60 B = VAL(B$) :C = VAL(C$) :D = VAL(D$)
70 IF _______THEN PRINT B; “*”; C; “=”; D
80 NEXT I

9、连队共有103人(含连长、副连长),连长要选派一人去完成一项艰巨的任务,许多人都在争此任务,副连长也想去,于是他给连长出了个主意,让全体指战员排成一列,由连长在队外进行1、2报数,凡报到单数者退出,余者再1、2报数,单数退出……直到剩下一人即被选中执行任务。聪明的副连长应站在哪个位置才能被选中?
10 DIM ______
15 J = J + 1 :P = P + 1
20 IF A(P)=1 THEN ______:GOTO 30
25 IF J MOD 2 <> 0 THEN A(P) = 1 :______        
30 IF S = 101 THEN 50
35 IF P = 102 THEN _______ :J = 0
40 GOTO 15
50 FOR I = 1 TO 102 :IF ______THEN PRINT I, 
60 NEXT I

10、将输入字串中的连续空格压缩为一个空格后送到另一个字串中输出。
10 INPUT “A$=”; A$ :B$=”” :N=______         
20 FOR I = 1 TO N :FOR J = ______      
30 IF ______ <> ” “ THEN 50
40 NEXT J
50 IF  _______THEN B$ = B$ + “______“
60 B$=B$+______ :I= ______   
70 NEXT I :PRINT “B$=”; B$ :END

回复列表 (共2个回复)

沙发

~_~ 高质量网络代做 .NET(VB/C#)、C++程序****************************** ~_~

 
    您还在为问题解决不了烦恼吗?还为解决方案发愁吗?相信我们的收费服务,FalconSoftWorks工作室为您带来高质量、满意的果实。 

    提供专业的线上代码服务与.NET的咨询问题服务的需求写好代码,满意后再付款(包括指导与远程协助)。 

    集英软件是一家致力于打造精品软件开发、并提供IT线上服务的工作室。 


    有什么问题或咨询,请联系我,客服QQ 157864607,电邮Sonoffreedom@gmail.com 

板凳

多年中小型项目开发经验,熟悉VB,VBA,Delphi和.NET平台,承接各种软件编写业务,
信誉第一,质量保证,售后完善,如有需要请联系QQ:3 8 3 1 4 7 8 1 8 请注明:pfan

我来回复

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