求高手做几道程序题，只要写出结果就可以了。

襄阳城

<p>求高手做几道程序题，只要写出结果就可以了。</p>
<p><img src="http://img.baidu.com/img/iknow/icn_point.gif"> 悬赏分：100 -</p>
<p>解决时间：2010-7-16 10:36</p>
<p>1、程序代码：</p>
<p>SET TALK OFF</p>
<p>CLEAR</p>
<p>A=’ABCDEFGH’</p>
<p>N=LEN(A)</p>
<p>FOR I=1 TO N SETP 2</p>
<p>??SUBSTR(A，N-I-1，2)</p>
<p>ENDFOR</p>
<p>SET TALK ON</p>
<p>2、设N值为4，字符”A”的ASCII码为65。</p>
<p>程序代码：</p>
<p>SET TALK OFF</p>
<p>CLEAR</p>
<p>INPUT "N=" TO N</p>
<p>FOR I=1 TO N</p>
<p>?SPACE(NI+1)</p>
<p>FOR J=1 TO 2*I1</p>
<p>??CHR(ASC("A")+J1)</p>
<p>ENDFOR</p>
<p>ENDFOR</p>
<p>FOR P=N-1 TO 1 STEP 1</p>
<p>?SPACE(N-P+1)</p>
<p>FOR K=1 TO 2*P1</p>
<p>??CHR(ASC("A")+K1)</p>
<p>ENDFOR</p>
<p>ENDFOR</p>
<p>SET TALK ON</p>
<p>3、设N，M的值分别为6，8。</p>
<p>程序代码：</p>
<p>SET TALK OFF</p>
<p>CLEAR</p>
<p>INPUT "N=" TO N</p>
<p>INPUT "M=" TO M</p>
<p>X=MIN(N，M)</p>
<p>FOR I=X TO 1 STEP -1</p>
<p>IF M/I=INT(M/I)  AND N/I=INT(N/I)</p>
<p>Y1=I</p>
<p>EXIT</p>
<p>ENDIF</p>
<p>ENDFOR</p>
<p>?"Y1="+ALLTRIM(STR(Y1，19))+"，Y2="+ALLTRIM(STR(M*N/Y1，19))</p>
<p>SET TALK ON</p>
<p>4、设输入的数值N为5</p>
<p>SET TALK OFF</p>
<p>CLEAR</p>
<p>INPUT  “N=” TO N</p>
<p>DIME  A(N，N)</p>
<p>P=N</p>
<p>DO WHILE N>0</p>
<p>A(N，N)=1</p>
<p>A(N，1)=1</p>
<p>N=N-1</p>
<p>ENDDO</p>
<p>FOR  I=3 TO P</p>
<p>FOR  J=2  TO  I-1</p>
<p>A(I，J)=A(I-1，J-1)+A(I-1，J)</p>
<p>ENDFOR</p>
<p>ENDFOR</p>
<p>FOR I=1 TO P</p>
<p>?SPACE(3*(P-I+1)</p>
<p>FOR J=1 TO I</p>
<p>??STR(A(I，J)，3)</p>
<p>ENDFOR</p>
<p>?</p>
<p>ENDFOR</p>
<p>SET TALK ON</p>
<p>5、SET TALK OFF</p>
<p>A=”ABCDEFGHIJKLMNOPQRSTUVWXYZ”</p>
<p>B=LEN(A)</p>
<p>X=”X_”</p>
<p>Y=”Y_”</p>
<p>I=1</p>
<p>DO WHILE I<=B</p>
<p>J=1</p>
<p>X=X+SUBSTR(A，I，1)</p>
<p>IF I/2=INT(I/2)</p>
<p>Y=Y+SUBSTR(A，I，1)</p>
<p>I=I+1</p>
<p>LOOP</p>
<p>ENDIF</p>
<p>I=I+J</p>
<p>ENDDO</p>
<p>?X</p>
<p>?Y</p>
<p>6、设变量N的输入值为325。</p>
<p>SET TALK OFF</p>
<p>INPUT “N=” TO N</p>
<p>X= ‘ABCDEFGHIJ’</p>
<p>Y=”甲乙丙丁戊已”</p>
<p>NC=ALLTRIM(STR(N，6))</p>
<p>L=LEN(NC)</p>
<p>N2=2*L-1</p>
<p>NN=’ ’</p>
<p>K=1</p>
<p>DO WHILE K<=L</p>
<p>N1=INT(VAL(SUBSTR(NC，K，1))*2+1)</p>
<p>NN=NN+SUBSTR(X，N1，1)</p>
<p>NN=NN+SUBSTR(Y，N2，2)</p>
<p>?N1，N2，NN</p>
<p>N2=N2-2</p>
<p>K=K+1</p>
<p>ENDDO</p>
<p>SET TALK ON</p>
<p>7、SET TALK OFF</p>
<p>M=”*”</p>
<p>Y=1</p>
<p>DO WHILE Y<=5</p>
<p>IF INT(Y/2)=Y/2</p>
<p>M=M+”*”</p>
<p>Y=Y+1</p>
<p>LOOP</p>
<p>ELSE</p>
<p>M=M+”#”</p>
<p>ENDIF</p>
<p>Y=Y+1</p>
<p>ENDDO</p>
<p>?”M=”，M</p>
<p>?”Y=”，Y</p>
<p>SET TALK ON</p>
<p>8、设N，M的值分别为6，8。</p>
<p>程序代码：</p>
<p>SET TALK OFF</p>
<p>CLEAR</p>
<p>INPUT "N=" TO N</p>
<p>INPUT "M=" TO M</p>
<p>X=MIN(N，M)</p>
<p>FOR I=X TO 1 STEP -1</p>
<p>IF M/I=INT(M/I)  AND N/I=INT(N/I)</p>
<p>Y1=I</p>
<p>EXIT</p>
<p>ENDIFn</p>
<p>ENDFOR</p>
<p>?"Y1="+ALLTRIM(STR(Y1，19))+"，Y2="+ALLTRIM(STR(M*N/Y1，19))</p>
<p>SET TALK ON</p>
<p>提问者： 103053521aaa - 四级</p>
<p>最佳答案</p>
<p>所有的中文引号改为西文单引号</p>
<p>1，SET TALK OFF</p>
<p>CLEAR</p>
<p>A=\'ABCDEFGH\'</p>
<p>N=LEN(A)</p>
<p>FOR I=1 TO N SETP 2</p>
<p>??SUBSTR(A，N-I-1，2)</p>
<p>ENDFOR</p>
<p>SET TALK ON</p>
<p>FGEFDECDBCAB</p>
<p>2，</p>
<p>SET TALK OFF</p>
<p>CLEAR</p>
<p>INPUT "N=" TO N</p>
<p>FOR I=1 TO N</p>
<p>?SPACE(N+I+1)</p>
<p>FOR J=1 TO 2*I</p>
<p>??CHR(ASC("A")+J)</p>
<p>ENDFOR</p>
<p>ENDFOR</p>
<p>FOR P=N-1 TO 1 STEP 1</p>
<p>?SPACE(N-P+1)</p>
<p>FOR K=1 TO 2*P</p>
<p>??CHR(ASC("A")+K1)</p>
<p>ENDFOR</p>
<p>ENDFOR</p>
<p>SET TALK ON</p>
<p>输入N=4</p>
<p>结果</p>
<p>BC</p>
<p>BCDE</p>
<p>BCDEFG</p>
<p>BCDEFGHI</p>
<p>3，N=6</p>
<p>M=8</p>
<p>输出：</p>
<p>Y1=2，Y2=24</p>
<p>4， ?SPACE(3*(P-I+1)改为 ?SPACE(3*(P-I+1))</p>
<p>1</p>
<p>1 1</p>
<p>1 2 1</p>
<p>1 3 3 1</p>
<p>1 4 6 4 1</p>
<p>5，</p>
<p>X_ABCDEFGHIJKLMNOPQRSTUVWDXYZ</p>
<p>Y_BFDHJLNPRTVXZ</p>
<p>6，</p>
<p>7         5  G丙</p>
<p>5         3  G丙E乙</p>
<p>11         1  G丙E乙甲</p>
<p>7，</p>
<p>M= *#*#*#</p>
<p>Y=         6</p>
<p>8，</p>
<p>ENDIFn 去掉n</p>
<p>Y1=2，Y2=24</p>
<p>0</p>
<p>回答者：</p>
<p><img src="http://www.baidu.com/search/zhidao/zhuti-5year/image/icon1.gif"></p>
<p><img src="http://img.baidu.com/img/iknow/icon_huizhang.gif"></p>
<p>dr_zxp - 七级   2010-7-14 22:31</p>
<p>我来评论>></p>