数组实习作业题
- 格式：doc
- 大小：41.50 KB
- 文档页数：2
1
数组实习一作业题
三、编程打印N*N的数字方阵。该方阵由M=N2个1，2，3……，M连续自然数转圈组成。 分析：先将方阵各数存入二维数组A(N,N),每一层分四个边，按各元素所在位置的下标值的规律进行处理。如N=4时，第一圈左边1，2，3为一组；下边4，5，6为一组；右边7，8，9为一组；上边10，11，12为一组；依次存放。程序如下： 5 CLS 10 INPUT “N=”;N 20 DIM A(N,N):M=1 30 K=INT(N/2) 40 FOR I=1 TO K 50 L=N-I+1 60 FOR J=I TO N-I 70 A(J,I)=M 80 M=M+1 90 NEXT J 100 FOR J=I TO N-I 110 A(L,J)=M 120 M=M+1 130 NEXT J 140 FOR J=L TO I+1 STEP -1 150 A(J,L)=M 160 M=M+1
170 NEXT J
180 FOR J=L TO I+1 STEP -1
190 A(I,J)=M
200 M=M+1
210 NEXT J
220 NEXT I
230 IF N/2<>INT(N/2) THEN A(K+1,K+1)=M+1
240 FOR I=1 TO N
250 FOR J=1 TO N
260 IF A(I,J)<10 THEN PRINT SPC(1)
270 IF A(I,J)<10 THEN PRINT SPC(1)
280 PRINT A(I,J);
290 NEXT J
300 PRINT
310 NEXT I
320 END
数组实习二作业题
三、将阿拉伯数字用中文的汉字表示：
如0----零，1----壹，2----贰，…….10----拾
提示：定义一个字符数组A$(10),分别按下标值的大小将对应的中文字符
2
赋给数组中的各变量。 5 CLS 10 DIM A$(10) 20 INPUT “M=”;M 30 FOR I=0 TO 10 40 READ A$(I) 50 IF M=I THEN PRINT A$(I) 60 NEXT I 70 DATA 零，壹，贰，叁，肆，伍，陆，柒，捌，玖，拾 80 END 四、把人民币金额用大写表示，如1245.50元表示成壹仟贰佰肆拾伍元伍角零分。 提示：将数字先转换成相应的字符串，并计算出该字符串的长度。逐步取出该字符串的字符转换成相应的壹、贰、叁……玖、零，并根据该字符串中的位置得万、仟、佰、拾、角、分等。 10 CLS 20 INPUT “X=”;X 30 X$=STR$(X):Y=LEN(X$) 40 M$=LEFT$(X$,Y-3):Y1=LEN(M$) 50 N$=RIGHT$(X$,2):Y2=LEN(N$) 60 FOR I=0 TO 9 70 READ A$(I) 80 NEXT I
90 DATA零，壹，贰，叁，肆，伍，陆，柒，捌，玖
100 FOR I=2 TO Y1
110 M=VAL(MID$(M$,I1))
120 FOR J=0 TO 9
130 IF M=J THEN GOTO 150
140 NEXT J
150 IF Y1+1-I=5 THEN PRINT A$(J)+”万”;
160 IF Y1+1-I=4 THEN PRINT A$(J)+”仟”;
170 IF Y1+1-I=3 THEN PRINT A$(J)+”佰”;
180 IF Y1+1-I=2 THEN PRINT A$(J)+”拾”;
190 IF Y1+1-I=1 THEN PRINT A$(J)+”元”;
200 NEXT I
210 FOR I=1 TO Y2
220 N=VAL(MID$(N$,I,1))
230 FOR J=0 TO 9
240 IF N=J THEN GOTO 260
250 NEXT J
260 IF Y2-I+1=2 THEN PRINT A$(J)+”角”；
270 IF Y2-I+1=2 THEN PRINT A$(J)+”分”;
280 NEXT I
290 END
