内容发布更新时间 : 2024/5/12 22:44:57星期一 下面是文章的全部内容请认真阅读。
..
第六章 程序设计
程序设计1
*---------------------------------- 从键盘输入三角形的边长，输入边长满足两边之和大于第三边，且为正值。计算并输出三角形的面积S；若不满足以上条件，FUNCTION FUN(X,Y,Z)
**********Program**********
显示输出\不能构成三角形\。其中面积公式请参看(图1)。将面积值存入变量AREA中。请按照题目要求，在下面编写程序代码。
*---------------------------------- INPUT TO A INPUT TO B INPUT TO C
? \三角形面积为\RETURN
FUNCTION FUN(a,b,c) AREA=-1
**********Program**********
********** End ********** RETURN AREA 程序设计2
*---------------------------------- 从键盘任意输入的三个数按从大到小排序。排序后存入变量A，B，C中请按照题目要求，在下面编写程序代码。
*---------------------------------- A=-1 B=-1 C=-1
input \input \input \FUN(X,Y,Z) RETURN
;.
********** End ********** RETURN
DO YZJ10 WITH OUT 程序设计3
*---------------------------------- 从键盘输入一个数，如果该数字大于0，通过子程序输出该数字作为半径的圆面积；如果该数字小于等于0，则输出\不能作为圆的半径\。(PI=3.14)将结果存入变量OUT中，请按照题目要求，在下面编写程序代码。
*---------------------------------- INPUT TO A ?FUN(A)
FUNCTION FUN(R) OUT=-1
**********Program**********
********** End ********** RETURN OUT 程序设计4
*---------------------------------- 从键盘输入3个数，然后找出其中最大值和最小值。最大值存入ＭＡ中，最小值存入ＭＩ中。本题使用IF...EndIf 语句完成。*---------------------------------- INPUT \请输入一个数：\INPUT \请输入一个数：\INPUT \请输入一个数：\Ma=-1 Mi=-1
FUN(A,B,C) ?MA,MI
FUNC FUN(A,B,C)
..
**********Program**********
********** End ********** RETURN 程序设计5
*---------------------------------- 计算下列分段函数：如下图当输入任意X值时，显示输出Y值，要求用Do Case语句实现。
*---------------------------------- INPUT TO X ?FUN(X) RETURN
FUNCTION FUN(X) Y=-1
**********Program**********
********** End ********** RETURN Y 程序设计6
*---------------------------------- 判断一个三位数是否为\水仙花数\，并输出判断结果，是为1，否为0。所谓\水仙花数\是指一个3位数，其各位数字立方和等于该数本身。将结果存入变量OUT中。*---------------------------------- OUT=-1 n=153
**********Program**********
********** End ********** 程序设计7
;.
*---------------------------------- 编程求对某一正数的值保留2位小数，并对第三位进行四舍五入。将结果存入变量OUT中。
*---------------------------------- h=234.5367 OUT=-1
**********Program**********
********** End ********** 程序设计8
*----------------------------------编程求对某一正数的值保留3位小数，并对第4位进行四舍五入。将结果存入变量OUT中。
*---------------------------------- h=234.5367 OUT=-1
**********Program**********
********** End ********** 11程序设计9
*---------------------------------- 输出10到50之间所有能被7整除的数。(用do while ……enddo语句实现)并将这些数的和存入所给变量OUT中。请按照题目要求，在下面编写程序代码。
*---------------------------------- OUT=-1
**********Program**********
********** End ********** DO YZJ4 WITH OUT 程序设计10
*---------------------------------- 求1--200间的所有偶数的和，结果输入变量OUT中，要求用For循环语句实现。
..
*---------------------------------- OUT=-1
**********Program**********
********** End ********** 程序设计11
*----------------------------------------
编程求P=1+1/(2x2)+1/(3x3)+ …1/(10x10)。将结果存入变量OUT中，要求用Do While语句实现。
*---------------------------------------- OUT=-1
**********Program********** P=0 M=1
DO WHILE M<=10 P=P+1/(M*M) M=M+1 ENDDO ? \OUT=P
********** End ********** 程序设计12
*---------------------------------- 编程计算如下表达式的值：
y=1-1/3＋1/5-1/7＋1/9，要求使用for...endfor语句来完成。将结果存入变量OUT中。 OUT=-1
*---------------------------------- **********Program********** s=1
for i=1 to 4
s=s+(-1)^i/(2*i+1) endfor out=s ? out
********** End ********** 程序设计13
;.
*---------------------------------- 编程计算如下表达式的值：
y=1-1/2+1/4-1/6+1/8-1/10，要求使用for...endfor语句来完成。将结果存入变量OUT中。
*---------------------------------- OUT=-1
**********Program********** s=1
for i=1 to 5
s=s+(-1)^i/(2*i) endfor out=s ? out
******** End ********** 程序设计14
*---------------------------------- 编程求P=1-1/(2×2)+1/(3×3)-1/(4×4)+1/(5×5)。将结果存入变量OUT中，要求用Do While语句实现。
*---------------------------------- OUT=-1
**********Program********** P=0 M=1 I=0
DO WHILE M<=5
P=P+((-1)^(M+1))/(M*M) M=M+1 ENDDO ? \OUT=P
********** End ********** 程序设计15
*---------------------------------- 从键盘输入一个整数，输出所有能整除该数，并且本身也能被3整除的数的和。（例如：输入6，则输出3，6）结果存于变量x中，要求用For循环语句实现。
*---------------------------------- INPUT TO N ?FUN(N)
FUNCTI FUN(A) X=0
**********Program**********