小学信息竞赛试题

运发动号码牌〔number.bas〕号码1“1”12号码是“6”，只有1张“6”号码牌；而李飞的号码是“1111”4“1”号码牌组成。爱动脑筋的小杰就想了：假设学校的运发动数是N,这十种号码牌多少张呢？请你编写一个〔24〕【样例输入】(键盘输入运发动人数N,N<2000)15〔分别对应号码0-9需要的张数〕1822221111DOINPUTNLOOPUNTILN>0ANDN<2000DIMA$(N)DIMS(0TO9)FORI=1TONA$(I)=MID$(STR$(I),2)NEXTIFORI=0TO9FORJ=1TONS$=MID$(STR$(I),2)L=LEN(A$(J))FORK=1TOLIFMID$(A$(J),K,1)=S$THENS(I)=S(I)+1NEXTKNEXTJNEXTIFORI=0TO9PRINTS(I);NEXTIEND找朋友〔friend.bas〕看到自己的号码是“1111”小杰思考了一会说：“按二进制换算，我的号码才是‘1111’呢”。果真不错，十进制的“15”换算成二进制可不是“1111”4‘1’，4‘1’、号码数值比我的大且数值差最小的1-NM〔26〕【样例输入】(键盘输入某位同学的十进制数号码M)17〔他和他的朋友的号码的十进制形式及二进制形式〕17:1000118:10010INPUTNDIMA(N),B(N)Y=N:J=1:S=0DOWHILEY<>0R=YMOD2A(J)=RY=Y\2J=J+1IFR=1THENS=S+1LOOPFORI=N+1TO2500Y=I:JJ=1:SS=0DOWHILEY<>0R=YMOD2B(JJ)=RY=Y\2JJ=JJ+1IFR=1THENSS=SS+1LOOPIFSS=STHENEXITFORNEXTIIFI>2500THENPRINT“NO“:ENDPRINTN;“:“;FORK=J-1TO1STEP-1PRINTUSING“#“;A(K);NEXTKPRINTPRINTI;“:“;FORK=JJ-1TO1STEP-1PRINTUSING“#“;B(K);NEXTKEND推算〔calc.basN〔N<=2001-NA(1)~A(N)〔26〕【样例输入】(键盘输入N、A(1)~A(N))4，0，0，1，3〔按现在的队列挨次输出原来的运发动号码〕3，1，2，4INPUTNDIMA(N),B(N),C(N)FORI=1TONINPUTA(I)NEXTIFORI=NTO1STEP-1B(I)=A(I)+1FORJ=1TONIFC(J)<>0AND(J<B(I)ORJ=B(I))THENB(I)=B(I)+1NEXTJC(B(I))=1NEXTIFORI=1TONPRINTB(I);NEXTIEND队列〔queue.bas〕N1~N以有N位男生和N独在队列中〔11。请你编程帮助小杰计算一下共有多少种方案？N从键盘输入，N<100，要求输出准确数值。如：N=47〔24〕【样例输入】(键盘输入N)4〔方案数〕7INPUTNDIMA(N)ASDOUBLEIFN>=1THENA(1)=1IFN>=2THENA(2)=2IFN>=3THENA(3)=4FORI=4TONA(I)=2*A(I-1)-A(I-2)+A(I-3)NEXTIPRINTA(N)END2004n(n<100)，现在要选出一个同学当班长。承受的方法1kk1kk队时，从头开头数，应当站在什么位置。请你编程帮小雪实现。(20例如：输入：1003CLSINPUT“n=“;nINPUT“k=“;kDIMa(n):s=nFORi=1TOn:a(i)=1:NEXTii=0:b=1DOUNTILs=k-23p=0DOUNTILp=ki=i+b:IFi>nORi<1THEN2p=p+a(i):IFs=k-1ANDa(i)=1THENPRINTi:ENDLOOPa(i)=0s=s-1LOOP2b=-b:GOTO3【问题描述】(12分)

歌德巴赫猜测4开头直至任一给定的大于4的偶数分解为两个素数并打印出来。例如：输入：10输出：4=2+2 6=3+3 8=3+5 10=3+7【程序清单】INPUTNFORI=4TONSTEP2X=1X=X+1IFX=2THEN70FORP=2TOSQR(X)IFXmodＰ＝０THEN30NEXTPY=Ｉ－ＸIFY=2THEN110FORP=2TOSQR(Y)IFＹmodＰ=0THEN30NEXTPPRINTI;“=“;X;“+“;Y,NEXTIEND乘车费用〔taxi.bas/taxi.pas/taxi.c〕【问题描述】WW和几个同学一起帮助W2.562.5公里之后按1.2/101.2/公里的根底上加价50%，费WWNMW【输入文件】输入文件共有一行，包含两个整数N，M，分别表示出租车行驶的里程和中间停车的时间，中间以空格分开，0≤N≤200，0≤M≤60。【输出文件】输出仅包含一个整数，表示小W应付的乘车费用，四舍五入到整数元。【输入样例】87【输出样例】14OPEN“taxi.in“FORINPUTAS#1OPEN“taxi.out“FOROUTPUTAS#2INPUT#1,n,mIFn>10THENs=6+(n-2.5)*1.2+(n-10)*1.2*.5ELSEIFn>2.5THENs=6+(n-2.5)*1.2ELSEIF(n<=2.5)AND(n>0)THENs=6ELSEs=0ENDIFENDIFENDIFfy=INT(s+m\5+.5)PRINT#2,LTRIM$(STR$(fy));CLOSEEND装球问题(151，2，3，„„。同时有K(K＞0)，现将K个小球装入到盒子中去，装入规章如下：第一个盒子不能空；装入必需严格按递增的挨次进展；K=8，N=6：1，2，51，3，4在满足上面的两个条件下，要求有球的盒子尽量多；装完之后，相邻盒子中球个数差确实定值之和为最小(未装的盒子不

如上例中：装入法1，2，5则差确实定值之和为：2-1+5-2=4装入法1，3，4则差确实定值之和为：3-1+4-3=3【程序要求】给出K(K表示小球个数)之后，求出满足上述四个条件的装放方法。【算法描述】A，用数组元素代表盒子，然后依次装入小球。【程序清单】N=20DIMA(N)INPUTKj=1DOWHILEK>=JA(j)=j:K=K-J :j=j+1LOOPL=J-1DOWHILEK<>0A(L)=A(L)+1:K=K-1:L=L-1LOOPFORI=1TOJ-1 PRINTA(I);NEXTEND分解质因数(存盘程序名：yinshu.bas)问题描述分解质因数是小学数学中常见的问题，现在给定一个正整数N，请你编程序对N分解质因数，并将分解式输出。数据输入：从文件yinshu.in中读入数据，文件中只有一个正整数NN<=3276。数据输出：结果输出到文件yinshu.out中，只有一行，就是N分解成质因子的连乘积的式子，并且要求按因子从小到大从左到右的格式输出。输入输出样例样例一：Yinshu.in24Yinshu.out24=2*2*2*3样例二：Yinshu.in13Yinshu.out13=13CLSOPEN“yinshu.in“FORINPUTAS#1OPEN“yinshu.out“FOROUTPUTAS#2DOINPUT#1,nLOOPUNTILn<=32767ANDn>0x=2PRINT#2,n;“=“;IFn>-1ANDn<2THENPRINT#2,n:ENDDOIFn=xTHENPRINT#2,x:EXITDOIFnMODx=0THENPRINT#2,x;“*“;:n=n/xELSEx=x+1LOOPCLOSEEND程序２clsdoinputaloopuntila<=32767anda>=1b=2ifa>-1anda<2then?a:enddoifa=bthen?b:exitforifamodb=0