1、A=A*10+B数列之和为:,SN5. 求ex的台劳级数展开式的前n项之和(运行时输入x=2.0,n=4)INPUT “X=” TO XINPUT “N=” TO NSUM=1FOR I=1 TO N-1T=XI/PSUM=SUM+T6.求1*2+3*4+5*6+21*22 SUM=SUM+I*(I+1)和为=,SUM (1892)7.通过键盘输入n,求下列级数的和:1-1/2+1/3-1/4+1/nINPUT TO NF=1S=S+F*(-1)(I-1)/I8.计算连续自然数之和,并且显示和刚大于1000的最后一个自然数 Sn=1+2+3+4+NSTORE 0 TO S,NDO WHILE
2、S Y=X*XELSE IF X=0 Y=0 ELSE Y=-(X*X)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在实数范围内有解在实数范围内无解/ X1=(-B+SQRT(D)/(2*A)X2=(-B-SQRT(D)/(2*A)X1X2 IF D X=-B/(2*A)X1=X2=,X无解3.输入一个X的值,求Y的值。Y= DO CASE CASE X=10 Y=3*X-11E
3、NDCASE 数组类1. 输入10个数,输出其中小于平均值S的数。DIME A(10)FOR I=1 TO 10INPUT TO A(I)S=S+A(I)S=S/10IF A(I)bigbig=a(i)if a(i)NO5.已有按从小到大的顺序排列的10 个数,现输入一个数,要求插入到数列中。插入后数列仍然按从小到大顺序排列。DIMENSION A(11)INPUT “递增输入10个整数” TO A(I)INPUT “任意输入一个整数” TO XFOR I=10 TO 1 STEP -1 IF X IF I=1 A(I+1)=A(I) A(I)=X A(I+1)=XFOR I=1 TO 116
4、. 数组A中已存放了10个由小到大排列的数。现从键盘输入一个数X,要求删除数组中与其相同的数,并将后续的数依次前移,最后输出剩余的数。(7分)考虑到有重复数的程序如下: INPUT “按递增输入10个数” TO A(I)INPUT “输入待删除的数” TO XJ=1DO WHILE I IF A(I)big=a(i,j)row=icol=jbig, row, col3. 求两个矩阵之和,即C(3,4)=A(3,4)+B(3,4)DIME A(3,4),B(3,4),C(3,4)FOR I=1 TO 3FOR J=1 TO 4INPUT TO B(I,J)C(I,J)=A(I,J)+B(I,J)
5、STR(C(I,J),6)判断类1.键盘输入一个年份,判断是平年还是闰年?INPUT “Enter a year:” TO Y 、IF MOD(Y,100)0 AND MOD(Y,4)=0 OR MOD(Y,400)=0Y,“is a leap year.”Y,“is a common year”2.从键盘输入一个整数,判断是偶数还是奇数。整数IF MOD(X,2)=0这是个偶数这是个奇数 ENDIF 3.输入一个字符,判断是否为英文字母。ACCEPT 请输入一个字符: TO CHIF ASC(CH)=65 AND ASC(CH)=97 AND ASC(CH)=90 UPPER=UPPER+1
6、=48 AND ASC(CH)R=mod(n,8)oct= str(R,1)+octn=int(n/8)enddooct4.从键盘输入一个二进制数,将其转换成等值的十进制数。ACCEPT “Enter a binary number:” to ns=s+val(substr(n,i,1)*2*(L-i)“等值的十进制数为”,s从键盘输入一个十进制数,将其转换成等值的二进制数。Enter a decimal number:bin=“”bin=“0”R=mod(n,2)bin= str(R,1)+binn=int(n/2) “等值的二进制数为”,bin真实情况类1.输入乘车的公里数,输出乘车费(计
7、费标准:2.5公里之内是6元,2.5公里以外,每超过1公里增加1元2角)输入公里数2.5 PAY=(X-2.5)*1.2+6 PAY=6应付费,PAY,元2. 6) 设交纳所得税的规定如下: DO CASE 语句收入=1500元 免交所得税1500元 收入 =3000元 所得税为5%3000元 =6000元所得税为 8%6000元 =10000元所得税为 10%10000元 50000元所得税为 20%请编程,从键盘输入一个数,计算应交纳的所得税。INPUT “income=” to xdo case case x=95优秀=85很好=70好=60一般 OTHERWISE不及格4. 编写学生成
8、绩统计程序。设有三位同学,考数学、物理、化学三门课,统计每个同学的总分和平均分dime s(3,6)for i=1 to 3for j=1 to 4input STUDENT-NO AND SCORE: to s(i,j)s(i,5)=s(i,2)+s(i,3)+s(i,4)s(i,6)=round(s(i,5)/3,1)space(5),stuno,space(4),mathphy,space(5),che,space(4),totalaverfor j=1 to 6s(i,j)5.某班有45名参加考试的同学,现在要求从键盘输入全班一门课的成绩,输出该课程的平均分,以及及格人数和半分比。N=1FOR I= 1 TO 45INPUT全班一门课的成绩 SUM=SUM+X IF X平均分 ,SUM/45几个人数,N合格率,N/45*100,%矩阵类1.建立一个五行五列的矩阵,求出外围所有元素之和。DIMENSION A(5,5)
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1