程序设计基础78899.docVIP

第六章上机 程序设计基础(一) [实验目的] 熟悉顺序结构、分支结构和循环结构程序控制。 [实验内容] 1．编写程序计算下列表达式。由键盘输入x，y，z（y≠0，z≠0）的值，求p。 input “x=” to x input “y=” to y input “z=” to z p= 自己填充 ？p (参考答案：X=1,y=1,z=1时,p=14.778；X=-1,y=1,z=1时,p=4) 2．有一函数 输入x，求y的值。 方法一. Input “x=” to x If x1 Y=x Endif If x=1 .and.x10 Y=2*x-1 Endif If x=10 Y=3*x-11 Endif ?y 方法二. Input “x=” to x If x1 Y=x Else If x=1 .and.x10 Y=2*x-1 Else Y=3*x-11 Endif Endif ?y 方法三. Input “x=” to x Do case Case x1 Y=x case x=1 .and.x10 Y=2*x-1 otherwise Y=3*x-11 Endcase ?y 3．判断输入的年份是否是闰年。 input “输入一个年份” to year if (year%4==0 and year%100!=0 or year%400==0) ?year,”是闰年” else ?year,”不是闰年” endif 4．从键盘输入一个数，输出其数据类型的汉字说明。 clear input A= to A ? A,--------- m=TYPE(A) DO CASE case m=C ?? 字符型数据 case m=N ?? 数值型数据 case m=D ?? 日期型数据 case m=L ?? 逻辑型数据 endcase return 5．教材P136页 例6.12 6．根据一元二次方程的系数a,b,c,判断方程根的情况 D=b*b-4*a*c DO CASE CASE D0 ?“方程有两个不等的实数根：” ??(-b+sqrt(D))/(2*a) ?? (-b-sqrt(D))/(2*a) CASE D=0 ?“方程有两个相等的实数根：” ?? –b/(2*a) CASE D0 ?“方程无实根！” ENDCASE 7．从键盘输入一个正整数M，输出M内（包括M）所有偶数及偶数之和。 INPUT “M=” TO M S=0 FOR I=2 TO M STEP 2 ?? I S=S+I NEXT ?”S=”,S 8．从键盘输入N个无序数(个数N=9先由键盘输入)，输出其中的最大数和最小数。 DIME A(9) INPUT “N=” TO N FOR I=1 TO N INPUT “A(”+STR(I,1)+”)=” TO A(I) NEXT MAX=A(1) MIN=A(1) FOR I=2 TO N IF MAXA(I) MAX=A(I) ENDIF IF MINA(I) MIN=A(I) ENDIF NEXT ?”MAX=”,MAX ?”MIN=”,MIN 9．从键盘输入N个无序数(个数N=9先由键盘输入)，去掉一个最大数和一个最小数，然后求平均值。 DIME A(9) INPUT “N=” TO N S=0 FOR I=1 TO N INPUT “A(”+STR(I,1)+”)=” TO A(I) S=S+A(I) NEXT MAX=A(1) MIN=A(1) FOR I=2 TO N IF MAXA(I) MAX=A(I) ENDIF IF MINA(I) MIN=A(I) ENDIF NEXT S=S-MAX-MIN ?”AVER=”,S/(N-2) 10．编程计算 S=1!+2!+3!+……+10! 方法一. S=0 FOR I=1 TO 10 P=1 FOR J=1 TO I P=P*J NEXT J S=S+P NEXT I （可以用单循环） ?S 方法二. S=0 P=1 FOR I=1 TO 10 P=P*I S=S+P NEXT I ?S 11. 从键盘输入一个大于1的数X，计算S的值，直到某一项的值小于1E-6为止。 clear input