安徽专升本计算机编程总结打印版

《安徽专升本计算机编程总结打印版》由会员分享，可在线阅读，更多相关《安徽专升本计算机编程总结打印版（12页珍藏版）》请在装配图网上搜索。

1、求和类：1. 计算 S=1！ +2！ +3！ +4！ +。 +N!S=0K=1INPUT N= TO N FOR i=1 TO NK=K*iS=S+KEndfor?S2. 求 1333 53 73213SUM=0FOR I=1 TO 21 STEP 2SUM=SUM+I3ENDFOR?” SUM=” ,SUM3. 有一分数序列，求前 20 项之和23581312358M=1N=2SUM=0FOR I=1 TO 20TERM=N/MSUM=SUM+TERMX=NN=M+NM=XTERM=N/MENDFOR?” SUM=” ,SUM求 N 的阶乘。（ N 的值由键盘输入，应小于20 ）INPUT

2、“输入 N 的值” TO NP=1FOR I=1 TO NP=P*IENDFOR?N, “ != ”,PA=A*10+BENDFOR? 数列之和为 :,SN5. 求 ex 的台劳级数展开式的前n 项之和 ( 运行时输入x=2.0,n=4)ex1 xx2x3xn 12!3!(n 1)!.INPUT “X=” TO XINPUT “N=” TO NSUM=1P=1FOR I=1 TO N-1P=P*IT=XI/PSUM=SUM+TENDFOR?” SUM=” ,SUM6. 求 1*2+3*4+5*6+ 21*22 SUM=0FOR I=1 TO 21 STEP 2SUM=SUM+I*(I+1)EN

3、DFOR? 和为 =,SUM(1892)7. 通过键盘输入 n，求下列级数的4. 求 Sn=a+aa+aaa+aaaa ，其中， a 是一个数字， a和 :的个数为 n， a 和 n 由键盘输入?1-1/2+1/3-1/4+1/nINPUT 输入 a 的值 : TO AINPUT TO NINPUT 输入项数 n: TO NS=0SN=0B=AFOR I=1 TO NF=1FOR I=1 TO NS=S+F*(-1)(I-1)/ISN=SN+AENDFOR?S8. 计算连续自然数之和，并且显示和刚大于1000 的最后一个自然数Sn=1+2+3+4+NSTORE 0 TO S,NDO WHILE

4、 S=1000N=N+1S=S+NENDDO? N9. 求 12+42+72+ 一直加到超过 1000 为止，输出和数与项数。I=1S=0N=0DO WHILE S0Y=X*XELSEIF X=0Y=0ELSEY=-(X*X)ENDIFENDIF?Y2. 现有一元 2 次方程 AX2+BX+C=0 其中 A B C 是整数且 A 不等于 0 若存在实根， 则输出“在实数范围内有解”若不存在实根 则输出“在实数范围内无解” / 求解INPUT TO AINPUT TO BINPUT TO CD=B*B-4*A*CIF D=0? 在实数范围内有解ELSE? 在实数范围内无解ENDIF/INPUT

5、TO AINPUT TO BINPUT TO CD=B*B-4*A*CIF D0X1=(-B+SQRT(D)/(2*A)X2=(-B-SQRT(D)/(2*A)?X1?X2ELSEIF D0X=-B/(2*A)?X1=X2=,XELSE? 无解ENDIFENDIF3.输入一个 X的值，求 Y的值。Y=XifX12X1if1X103X11ifX10INPUT TO XDO CASECASE X1Y=XCASE X=10Y=3*X-11ENDCASE?Y数组类1.输入 10 个数，输出其中小于平均值S 的数。DIME A(10)S=0FOR I=1 TO 10INPUT TO A(I)S=S+A(

6、I)ENDFORS=S/10FOR I=1 TO 10IF A(I)BIGBIG=A(I)ENDIFIF A(I)BIGBIG=A(I)BP=IENDIFIF A(I)10? NOENDIF 5.已有按从小到大的顺序排列的 10 个数，现输入一个数，要求插入到数列中。插入后数列仍然按从小到大顺序排列。DIMENSION A(11)FOR I=1 TO 10INPUT “递增输入10 个整数” TO A(I)ENDFORINPUT “任意输入一个整数”TO XFOR I=10 TO 1 STEP -1IF XA(I)IF I=1A(I+1)=A(I)A(I)=XELSEA(I+1)=A(I)EN

7、DIFELSEA(I+1)=XEXITENDIFENDFORFOR I=1 TO 11?A(I)ENDFOR?6. 数组 A 中已存放了 10 个由小到大排列的数。现从键盘输入一个数 X，要求删除数组中与其相同的数，并将后续的数依次前移，最后输出剩余的数。（7 分）考虑到有重复数的程序如下：DIME A(10)FOR I=1 TO 10INPUT“按递增输入10 个数” TO A(I)ENDFORINPUT “输入待删除的数”TO XI=1J=1N=0DO WHILE I=10IF A(I)A(J)TEMP=A(I)A(I)=A(J)A(J)=TEMPENDIFENDFORENDFORFOR

8、I=1 TO 10?A(I)ENDFOR以上是一维数组（数组中只有一个下标）程序举例。在VFP中，还可以建立二维数组。定义方法是：DIME A(2,3)第一维代表行，第二维代表列，这样就在内存中开辟了 6 个连续的存储单元，数组元素的名称分别为：A(1,1)A(1,2)A(1,3)A(2,1)A(2,2)A(2,3)二维数组的元素赋初值及其处理通常要用二重循环，外循环代表行，内循环代表列。如：FOR I=1 TO 2FOR J=1 TO 3INPUT TO A(I,J)ENDFORENDFOR二维数组特别适合用来解决矩阵问题。矩阵中有如下几个术语要掌握：行列相等的矩阵叫方阵；方阵中有主对角线、

9、辅对角线、下三角元素、外围元素等1. 建立一个六行六列的方阵，求出两条对角线上所有元素之和。DIME A(6,6)DIME A(6,6)FOR I=1 TO 6FOR J=1 TO 6FOR I=1 TO 6A(I,J)=I+JFOR J=1 TO 6ENDFORINPUT TO A(I,J)ENDFORENDFORSUM=0ENDFORFOR I=1 TO 6SUM=A(I,I)+A(I,7-I)ENDFORSUM=0? “两条对角线上所有元素之和为” ,SUMFORI=1 TO 6DIME A(3,4),B(3,4),C(3,4)SUMFOR I=1 TO 3DIME A(3,4),B(3

10、,4),C(3,4)=A(I,I)+A(I,7-I)FOR J=1 TO 4FOR I=1 TO 3ENDINPUT TO A(I,J)FOR J=1 TO 4FORENDFORINPUT TO A(I,J)?ENDFORINPUT TO B(I,J),SUMFOR I=1 TO 3“两条对角线上所有元素之和为”C(I,J)=A(I,J)+B(I,J)ZF=0FOR J=1 TO 4ENDFORSF=0INPUT TO B(I,J)ENDFORFOR I=1 TO 6ENDFORFOR I=1 TO 3FOR J=1 TO 6ENDFORFOR J=1 TO 4IF I=JFOR I=1 TO

11、 3?STR(C(I,J),6)SZ=SZ+A(I,J)FOR J=1 TO 4ENDFORENDIFC(I,J)=A(I,J)+B(I,J)?IF I+J=7ENDFORENDFORSF=SF+A(I,J)ENDFORENDIFFOR I=1 TO 3ENDFORFOR J=1 TO 4ENDFOR?STR(C(I,J),6)? “两条对角线上所有元素之和为”,SZ+SFENDFOR?2. 一个四行五列的矩阵，求出其中最大元素的值，以ENDFOR及所在的行号与列号。判断类DIME A(4,5)FOR I=1 TO 41. 键盘输入一个年份，判断是平年还是闰年？FOR J=1 TO 5INPU

12、T “Enter a year ：” TO Y 、INPUT TO A(I,J)IF MOD(Y,100)0 AND MOD(Y,4)=0 OR MOD(Y,400)=0ENDFOR?Y, “ is a leap year.”ENDFORELSEBIG=A(1,1)?Y, “ is a common year”ROW=1ENDIFCOL=12. 从键盘输入一个整数，判断是偶数还是奇数。FOR I=1 TO 4INPUT 整数 TO XFOR J=1 TO 5IF MOD(X,2)=0IF A(I,J)BIG? 这是个偶数 BIG=A(I,J)ELSEROW=I? 这是个奇数 COL=JENDI

13、FENDIF3. 输入一个字符，判断是否为英文字母。ENDFORACCEPT 请输入一个字符： TO CHENDFORIF ASC(CH)=65 AND ASC(CH)=97 AND?BIG, ROW, COLASC(CH)=65 AND ASC(CH)=48 AND ASC(CH)=97 AND ASC(CH)0R=MOD(N,8)OCT= STR(R,1)+OCTN=INT(N/8)ENDDO?OCTSET TALK ONCANCEL4. 从键盘输入一个二进制数，将其转换成等值的十进制数。S=0ACCEPT“ENTER A BINARY NUMBER:”TO N L=LEN(N)FOR I

14、=1 TO LS=S+VAL(SUBSTR(N,I,1)*2*(L-I)ENDFOR?“等值的十进制数为” ,S从键盘输入一个十进制数，将其转换成等值的二进制数。INPUT ENTER A DECIMAL NUMBER: TO NBIN=“”IF N=0BIN=“ 0”ENDIFDO WHILE N0R=MOD(N,2)BIN= STR(R,1)+BINN=INT(N/2)ENDDO? “等值的二进制数为” ,BIN真实情况类1. 输入乘车的公里数，输出乘车费（计费标准：2.5 公里之内是6 元， 2.5 公里以外，每超过1 公里增加1 元2 角）INPUT 输入公里数 TO XIF X2.5

15、PAY=(X-2.5)*1.2+6ELSEPAY=6ENDIF? 应付费 ,PAY, 元 2. 6) 设交纳所得税的规定如下：DO CASE 语句收入 =1500 元 免交所得税1500 元 收入 =3000 元 所得税为5%3000 元 收入 =6000 元所得税为8%6000 元 收入 =10000 元所得税为10%10000 元 收入 50000 元所得税为 20%请编程， 从键盘输入一个数，计算应交纳的所得税。INPUT “ INCOME=” TO XDO CASECASE X=1500 TAX=0CASE X=3000TAX=(X-1500)*0.05CASE X=6000TAX=(

16、X-3000)*0.08+(3000-1500)*0.05CASE X=10000TAX=(X-6000)*0.1+(6000-3000)*0.08+(3000-1500 )*0.05CASE X=95INPUT全班一门课的成绩 TO X? 优秀SUM=SUM+XCASE FS=85IF X=60? 很好N=N+1CASE FS=70ENDIF? 好ENDFORCASE FS=60? 平均分 ,SUM/45? 一般? 几个人数 ,NOTHERWISE? 合格率 ,N/45*100,%? 不及格 ENDCASE矩阵类4. 编写学生成绩统计程序。设有三位同学， 考数学、 物1. 建立一个五行五列的

17、矩阵，求出外围所有元素之和。理、化学三门课，统计每个同学的总分和平均分DIMENSION A(5,5)SET TALK OFFS=0CLEARS1=0DIME S(3,6)FOR I=1 TO 5FOR I=1 TO 3FOR J=1 TO 5FOR J=1 TO 4INPUT TO A(I,J)INPUT INPUT STUDENT-NO AND SCORE: TO S(I,J)S=S+A(I,J)ENDFORENDFORENDFORENDFORFOR I=1 TO 3FOR I=2 TO 4S(I,5)=S(I,2)+S(I,3)+S(I,4)FOR J=2 TO 4S(I,6)=ROUN

18、D(S(I,5)/3,1)S1=S1+A(I,J)ENDFORENDFOR?SPACE(5),STUNO,SPACE(4),MATH,SPACE(4),PHYENDFOR,SPACE(5),CHE,SPACE(4),?S-S1TOTAL,SPACE(5),AVER打印图形类?FOR I=1 TO 31. 打印如下图形 :*CLEARFOR I=1 TO 5?SPACE(I)FOR J=1 TO 5?”* ”ENDFORENDFOR附：打印如下图形 :* clear*for N=1 TO 9*for M=1 TO N*?alltrim(str(N)+*+alltrim(str(M)+=+*all

19、trim(str(N*M)+space(5)*endfor*?*EndforFOR I=5 TO 1 STEP -1 clear?SPACE(5-I)N=1FOR J=1 TO IDO WHILE N=9?”* ”M=1ENDFORDO WHILE M=N?alltrim(str(N)+ENDFOR+alltrim(str(M)+=+FOR I=2 TO 5alltrim(str(N*M)+space(5)?SPACE(5-I)M=M+1FOR J=1 TO IENDDO?”* ”?ENDFORN=N+1?ENDDOENDFOR2. 打印如下所示的九九乘法表其他类1.输入两个数和一个运算符(

20、加、减、乘、除 ) ，求其值。例如 , 输入 3 和 5 以及 *, 则输出 15INPUT “输入一个数: ” TO AINPUT “输入另一个数: ” TO BACCEPT“输入运算符 : ”TO CHDO CASECASE CH=“ +”? “第 8 项是 : ”,F(8)? “两数之和为 : ”,A+B? “第 18 项是 : ” ,F(18)CASE CH=” - “? “两数之差为 : ”,A-B次序类CASE CH=” * ”? “两数之积为 : ”,A*B1. 从键盘输入 3 个数，分别赋予 A,B,C 三个变量，编程CASE CH=“ / ”使得 A 中存放最大数， C 存放

21、最小数，并按ABC得次序? “两数之商为 : ”,A/B输出。OTHERWISEINPUT TO A? “运算符有错 ! ”INPUT TO BENDCASEINPUT TO C2. 输入一个正整数，分解出所有因子。如18=1*2*3*3 ，BIG=MAX(A,B,C)23=1*23SMALL=MIN(A,B,C)INPUT 输入一个正整数 TO NSUM=A+B+C? N,=1A=BIGI=2C=SMALLDO WHILE I=NB=SUM-BIG-SMALLIF MOD(N,I)=0?A,B,C?*+ALLTRIM(STR(I)2. 输入一个字符串，按其倒序输出。N=N/IACCEPT E

22、NTER A STRING: TO STELSEL=LEN(ST)I=I+1FOR I=L TO 1 STEP -1ENDIF?SUBSTR(ST,I,1)ENDDOENDFOR?3. 直接求最小公倍数参考程序如下：3. 输入 10 个数，按输入的相反次序输出DIME A(10)INPUT 输入一个正整数 TO MFOR I=1 TO 10INPUT 输入另一个正整数 TO NINPUT TO A(I)FOR I=M TO M*NENDFORIF MOD(I,N)=0 AND MOD(I,M)=0FOR I=10 TO 1 STEP 1?最小公倍数为 ,I?A(I)EXITENDFORENDIFENDFOR4. 求 FIBONACCI数列 1，1，2 ，3，5，8 的第 8 项与第 18项。DIMENSION F(18)F(1)=1F(2)=1FOR I=3 TO 18F(I)=F(I-1)+F(I-2)ENDFOR