还剩18页未读，继续阅读
本资源只提供10页预览，全部文档请下载后查看！喜欢就下载吧，查找使用更方便
文本内容:
1.
①求和类:计算S=l!.+2!+3!+4!++N!S=0K=1求N的阶乘（N的值由INPUT N=TO N键盘输入，应小于20）FOR i=l TO NINPUT“输入N的值”K=K*iTO NS=S+K P=1Endfor FOR1=1TO NP=P*ISENDFOR
2.求l3+33+53+73+……+213N,，二”，PSUM=0FOR1=1TO21STEP2SUM=SUM+I-3ENDFOR SUM=，SUM
3.有一分数序列，求前20项之和35I8I132T3T5T8M=1N=2SUM=OFOR1=1TO20TERM=N/M SUM=SUM+TERM X=NN=M+NM=XTERM=N/MENDFOR SUM=，SUM
5.求EX的台劳级数展开式的前N项之和（运行时输入X=
2.0,N=4）23xn~l------------C=1+X H1F〃—1!2!3!INPUT“X TO X二”ENDFOR9■ENDFOR
④判断类
1.键盘输入一个年份，判断是平年还是闰年？INPUT“Enter ayear:TO Y、IF MODY,10000AND MODY,4=0OR MODY,400=0Y,is aleap year.”ELSEY,is acommon year”ENDIF
2.从键盘输入一个整数，判断是偶数还是奇数INPUT〃整数〃TO XIF MODX,2=0”这是个偶数〃ELSE〃这是个奇数〃ENDIF
3.输入一个字符，判断是否为英文字母ACCEPT”请输入一个字符TO CHIFASCCH=65AND ASCCH=90OR ASCCH=97AND ASCCH=122CH,〃是英文字母〃ELSECH,〃不是英文字母〃ENDIF
4.一个数如果恰好等于它的因子之和，这个数就称为“完数”，如6=1+2+3,故6是完数编程判断从键盘输入一个正整数是否为完数INPUT输入一个正整数TO NS=0FOR1=1TO N-lIF MODN,1=0S=S+IENDIFENDFORIF S=NN，“是完数”ELSEN,“不是完数”ENDIF5,输入一个大于等于2的整数，判断是否为素数一个正整数，若只能被1和本身整除，则该数称为素数或质数INPUT“请输入一个大于2的整数”TO NFLAG,T.FOR1=2TO N-lIF MODN,1=0FLAG=.F.EXITENDIFENDFORIF FLAG=T.♦N,“是素数”ELSE N,“不是素数”ENDIF
6.输入一个字符串，判断其中有多少个大写字母、小写字母、数字字符、空格字符以及其他特殊字符？STORE0TO UPPER,LOWER,DIGIT,SPACE,SPECIALACCEPT输入一个字符串TO STL=LENSTFOR1=1TO LCH=SUBSTST,I,1DO CASECASE ASCCH=65AND ASCCH=90UPPER二UPPER+1CASE ASCCH=48AND ASCCH=57DIGIT=DIGIT+1CASE ASCCH=97AND ASCCH=122LOWER=LOWER+1CASEASCCH=32SPACE=SPACE+1OTHERWISESPECIAL=SPECIAL+1ENDCASEENDFOR“字符串中大写字母的个数是，UPPER“字符串中小写字母的个数是，LOWER“字符串中数字字符的个数是，DIGIT“字符串中空格字符的个数是，SPACE“字符串中其他字符的个数是，SPECIAL
⑤转换类
1.输入个大写字母，要求输出它的ASCH码及其对应的小写字母ACCEPT“输入一个大写字母”TO CHCH,的ASCH码为，ASC CHCH,“对应的小写字母为，CHRASCCH+
322.从键盘输入一个八进制数，将其转换成等值的十进制数SET TALKOFFCLEARS=0ACCEPT ENTER AN OCTALNUMBER:TO NL=LENNFOR1=1TO LS=S+VAL SUBSTRN,1,1*8**LTENDFORS=,SSET TALKONCANCEL
3.从键盘输入一个十进制数，将其转换成等值的八进制数SET TALKOFFCLEARINPUT ENTER A DECIMALNUMBER/TO NOCT=”IF N=OOCT=〃OENDIFDO WHILEN0R=MOD N,8OCT=STR R,D+OCTN=INTN/8ENDDOOCTSET TALKONCANCEL
4.从键盘输入一个二进制数，将其转换成等值的十进制数S=0ACCEPT“ENTER A BINARY NUMBER:TO NL=LENNFOR1=1TO LS=S+VALSUBSTRN,I,1*2**L-1ENDFOR”等值的十进制数为，S从键盘输入一个十进制数，将其转换成等值的二进制数INPUT ENTERA DECIMALNUMBER/TO NBIN=IF N=0BIN=0”ENDIFDO WHILEN0R=MODN,2BIN=STRR,D+BINN=INTN/2ENDDO“等值的二进制数为，BIN
⑥真实情况类L输入乘车的公里数，输出乘车费计费标准
2.5公里之内是6元，
2.5公里以外，每超过1公里增加1元2角INPUT〃输入公里数〃TO XIF X
2.5PAY=X-
2.5*
1.2+6ELSEPAY=6ENDIF〃应付费〃,PAY,〃元〃
2.
⑦,TAX=OCASE X=3000TAX=X-1500*
0.05CASE X=6000TAX=X-3000*
0.08+3000-1500*
0.05CASE X=10000TAX=X-6000*
0.1+6000-3000*
0.08+3000-1500*
0.05CASE X=50000TAX=X-10000*0,15+10000-6000*
0.1+6000-3000*
0.08+3000-1500*
0.05OTHERWISETAX=X-50000*
0.2+50000-10000*
0.15+10000-6000*
0.1+6000-3000*
0.08+3000-1500*
0.05ENDCASE“INCOME TAXIS，TAX,“元”
3.键盘输入学生的成绩，若95-100则输出优秀，85-94是很好，70-84则输出好，60-69是一般60分以下输出不及格INPUT〃成绩〃TO FSDOCASE.CASE FS=
95.〃优秀〃CASE FS=85〃很好〃CASE FS=
70.〃好〃CASE FS=
60.〃一般〃OTHERWISE.不及格”ENDCASE4•编写学生成绩统计程序设有三位同学，考数学、物理、化学三门课，统计每个同学的总分和平均分SET TALKOFFCLEARDIME S⑶6FOR1=1TO3FOR J=1TO4INPUT INPUTSTUDENT-NO ANDSCORE:TO SI,JENDFORENDFORFOR1=1TO3S I,5=S I,2+S I,3+S I,4SI,6=ROUNDSI,5/3,1ENDFORSPACE5,“STUNO〃,SPACE4,MATH,SPACE4,“PHY”,SPACE5/CHE,SPACE4,“TOTAL”,SPACE5,AVER9FOR1=1TO3FOR J=1TO6SI,JENDFOR9•ENDFORSET TALKONCANCEL5,某班有45名参加考试的同学，现在要求从键盘输入全班一门课的成绩，输出该课程的平均分,以及及格人数和半分比SUM=0N=1FOR1=
1.TO45INPUT全班一门课的成绩〃TO X.SUM=SUM+XIF X=60N=N+1ENDIFENDFOR”平均分，SUM/45〃几个人数”,N〃合格率”,N/45*100,〃％
⑦矩阵类
1.建立一个五行五列的矩阵，求出外围所有元素之和DIMENSION A5,5S=0Sl=0FOR1=1TO5FOR J=1TO5INPUT TO AI,JS=S+AI,JENDFORENDFORFOR1=2TO4FOR J=2TO4S1=S1+AI,JENDFORENDFORS-S1
⑧打印图形类2•打印如下图形CLEARFOR1=1TO5SPACEIFOR J=1TO5”*”ENDFORENDFOR附打印如下图形:*******************FOR1=5TO1STEP-1SPACE5-IFOR J=1TO I99*”•••ENDFOR9•ENDFORFOR1=2TO5SPACE5-IFOR J=1TO I99w*“•••ENDFOR■ENDFOR
93.打印如下所示的九九乘法表,1□!x|Microsoft VisualFoxPro文件⑹编辑包显示
⑦工具（D程序⑻窗口（必帮助®♦12345678911224336944812165510152025661218243036771421283542498816243240485664991827364554637281©clearfor N=1TO9for M=1TO N alltrimstrN+X+alltrimstrM+=+alltrimstrN*M+space5endfor9•Endfor
②clear N=1DO WHILEN=9M=1DO WHILEM=Nalltrim str N+X+al1trimstrM+“=+alltrim strN*M+space
5.M=M+lENDDO9•N=N+1ENDDO
⑨其他类
1.输入两个数和一个运算符加、减、乘、除，求其值例如，输入3和5以及*，则输出15INPUT输入一个数”TO AINPUT“输入另一个数”TO BACCEPT”输入运算符TO CHDOCASECASE CH=“两数之和为，A+BCASE CH-““两数之差为:“，A-BCASE CH=*“两数之积为，A*BCASE CH=/”“两数之商为:，A/BOTHERWISE“运算符有错！”ENDCASE
2.输入一个正整数，分解出所有因子如18=1*2*3*3,23=1*23INPUT”输入一个正整数TO N N,二1〃1=2DO WHILEI=NIF MODN,1=0〃*+ALLTRIMSTRIN=N/IELSE1=1+1ENDIFENDDO
3.直接求最小公倍数参考程序如下INPUT〃输入一个正整数〃TO MINPUT输入另一个正整数〃TO NFORI=M TOM*NIF MODI,N=O ANDM0DI,M=0”最小公倍数为〃,I.EXITENDIFENDFOR
4.求FIBONACCI数列1,1,2,3,5,8……的第8项与第18项DIMENSION F18Fl=lF2=lFOR1=3TO18FI=FI-l+FI-2ENDFOR“第8项是:，F8“第18项是“，F18⑩次序类
1.从键盘输入3个数，分别赋予A,B,C三个变量，编程使得A中存放最大数，C存放最小数，并按ABC得次序输出INPUT TO A INPUT TO BINPUT TOC BIG=MAXA,B,C SMALL=MINA,B,C SUM=A+B+C A=BIG C=SMALLB二SUM-BIG-SMALL A,B,C
2.输入一个字符串，按其倒序输出ACCEPT ENTERA STRING/TO STL=LENSTFOR I=L TO1STEP-1SUBSTRST,I,1ENDFOR9*
3.输入10个数，按输入的相反次序输出DIME A10FOR1=1TO10INPUT TO AI ENDFORFOR1=10TO1STEP-1AIENDFORINPUT“N=”TO NSUM=1P=1FOR1=1TON-lP=P*IT=X1/PSUM=SUM+TENDFOR SUM=，SUM
9.2+4-2+7-2+10001=1S=0N=0DO WHILES=1000S=S+P21=1+3N=N+1ENDDONS
10.求1-100之间所有奇数之和SUM=0FOR1=1TO100STEP2SUM=SUM+IENDFOR SUM=，SUM
10.输出100到200之间所有能被5或7整除的整数，并输出他们的和SUM=0FOR1=100TO200IF MOD1,10=5AND MODI,7=0SUM=SUM+I.IENDIFENDFOR“SUM二”，SUM
11.编程输出100500之间能被7整除的奇数的个数N=0〜FOR1=100TO500N=0IF I%7=0AND I%2=1N=N+1FOR1=101TO500STEP2ENDIF ENDFOR“N=，N
12.IF MODI,7=0求1/1*2+1/3*4+1/5*6N=N+1一SUM=O FOR1=1TO99STEP2ENDIFSUM=SUM+1/I*I+1ENDFORENDFOR〃SUM=〃,SUM
14.输出3-100之间的所有素数，并求其和SUM=OFOR J=3TO100FLAG=.T.FOR1=2TO SQRTJIFMODJ,1=0FLAG=F.EXIT ENDIF♦ENDFOR IFFLAG=.T.JSUM.SUM+J ENDIFENDFOR〃奇数之和是:〃,SUM
②方程类
1.完成下面分段函数的计算，程序运行时用户从键盘输入一个数值X,在屏幕上输出丫值x2if x0Y=10if x=0—x2if x0IINPUT〃请输入X值〃TO XIFX0Y=X*XELSEIF X=0Y=0ELSE.Y=-X*XENDIFENDIFY
2.现有一元2次方程AT2+BX+OO其中ABC是整数且A不等于0若存在实根，则输出“在实数范围内有解”若不存在实根则输出“在实数范围内无解”/求解INPUT TO AINPUT TO BINPUT TOCD=B*B-4*A*CIF D=0”在实数范围内有解ELSE”在实数范围内无解”ENDIF/INPUT TOAINPUT TOBINPUT TOCD=B*B-4*A*CIF D0X1=-B+SQRTD/2*AX2=-B-SQRTD/2*A X1X2ELSEIF D0X=-B/2*A”X1=X2=，XELSE无解ENDIFENDIF
3.输入一个X的值，求丫的值Y=INPUT TOXDOCASECASE X1Y=XCASE X10Y=2*X-1CASEX=10Y=3*X-11ENDCASEY
③数组类
1.输入10个数，输出其中小于平均值S的数DIME A10S=0FOR1=1TO10INPUT TOAIS=S+AIENDFORS=S/10FOR1=1TO10IF AISAIENDIFENDFOR
2.输入10个数,求其中最大数和最小数DIME A10FOR1=1TO10INPUT“ENTERANUMBER:TO AIENDFORBIG=A1SMALL=A1FOR1=2TO10IF AIBIGBIG=AIENDIFIF AISMALLSMALL=AIENDIFENDFOR“THE SMALLEST NUMBER IS”，SMALL“THE BIGGEST NUMBER IS”，BIG
3.输入10个数,求其中最大数和最小数，并确定它们的位置DIME A10FOR1=1TO10INPUT“ENTERANUMBER:TO AIENDFORBIG=A1BP=1SMALL=A1SP=1FOR1=2TO10IF AIBIGBIG=AI BP=IENDIFIF AISMALLSMALL=AI SP=IENDIFENDFOR“THE PLACEOF THE SMALLESTNUMBER IS”，SP“THESMALLESTNUMBER IS”，SMALL“THE PLACEOF THE BIGGESTNUMBERIS”，BP“THEBIGGESTNUMBERIS”，BIG
4.从键盘输入10个整数，现从中查找某个数，若查到，输出“YES”，否则输出“NO”oDIMENSION A10FOR1=1TO10INPUT”输入10个整数TO AIENDFORINPUT”输入待查找的整数〃TO XFOR1=1TO10IFX=AIYES”EXITENDIFENDFORIF I10〃N0ENDIF
5.已有按从小到大的顺序排列的10个数，现输入一个数，要求插入到数列中插入后数列仍然按从小到大顺序排列DIMENSION AllFOR1=1TO10INPUT“递增输入10个整数”TOAIENDFORINPUT“任意输入一个整数”TO XFOR1=10TO1STEP-1IF XAI.IF1=1AI+1=AIAI=XELSEAI+1=AI.ENDIFELSE.AI+1=XEXITENDIFENDFORFOR1=1TO11AIENDFOR9■
6.数组A中已存放了10个由小到大排列的数现从键盘输入一个数X,要求删除数组中与其相同的数，并将后续的数依次前移，最后输出剩余的数7分考虑到有重复数的程序如下DIME A10FOR1=1TO10INPUT“按递增输入10个数”TOAIENDFORINPUT输入待删除的数TOX1=1J=1N=0DO WHILEI=10IF AIX1=1+1尸J+lELSE.IF AI=X1=1+1N=N+
1.ELSEEXIT.ENDIFENDIFENDDOFOR K=I TO10AJ=AK尸J+lENDFORFOR K=1TO10-NAKENDFOR
1.A2,2A⑵3二维数组的元素赋初值及其处理通常要用二重循环，外循环代表行，内循环代表列如FOR1=1TO2FOR J=1TO3INPUT TOAI,JENDFORENDFOR二维数组特别适合用来解决矩阵问题矩阵中有如下几个术语要掌握行列相等的矩阵叫方阵；方阵中有主对角线、辅对角线、下三角元素、外围元素等建立一个六行六列的方阵，求出两条对角线上所有元素之和ZF=OSF=OFOR1=1TO6FOR J=1TO6IF I=JSZ=SZ+AI,JENDIFIF I+J=7SF=SF+AI,JENDIFENDFORENDFOR“两条对角线上所有元素之和为，SZ+SF一个四行五列的矩阵，求出其中最大元素的值，以及所在的行号与列号DIME A4,5FOR1=1TO4FOR J=1TO5INPUTTOAI,JENDFORENDFORBIG=A1,1ROW=1COL=1FOR1=1TO4FOR J=1TO5IF AI,JBIGBIG=AI,JROW=ICOL=JENDIFENDFORENDFORBIG,ROW,COL求两个矩阵之和,即C3,4=A⑶4+B⑶4DIME A3,4,B3,4,C3,4DIME A3,4,B3,4,C3,4FOR1=1TO3FOR1=1TO3FOR J=1TO4FOR1TO4INPUTTOAI,JENDFOR INPUTTOAI,JENDFOR INPUTTOBI,JFOR1=1TO3CI,J=AI,J+BI,JFOR J=1TO4ENDFORINPUT TOBI,JENDFORENDFORFOR1=1TO3ENDFORFOR J=1TO4FOR1=1TO3STRCI,J,6FOR J=1TO4ENDFORCI,J=AI,J+BI,JENDFORENDFORFOR1=1TO3FOR J=1TO4STRCI,J,6。
个人认证
优秀文档
获得点赞 0
