(急)vfp代码编写题目

来源:百度知道 编辑:UC知道 时间:2024/05/29 22:10:18
1.编写程序计算下列表达式的值,变量X,Y,Z的值由键盘输入,并要求在程序开始处加一个内容为“计算表达式的值”的注释。
(X+Y+Z)/3-X*Z^(1/2)

2.编写程序判断某一年是否是闰年,年份y由键盘输入,如y是闰年则能被4整除但不能被1 0 0整除,或能被4 0 0整除。

3.编写程序判断输入的数值是否为偶数,输入的数值用input语句送到变量X中,如果X是偶数,则输出字符串“X是偶数”,否则,则输出字符串“X是奇数”。

4.编写程序计算下列函数值,变量X的值由键盘输入,最后输出Y。
x (x<1)
y= 2*x-1 (1<=x<10)
3*x-11 (x>=10)

5.交互输入一个成绩(0-100),如果成绩在90分以上,显示“优秀”;如果成绩在75-89之间,显示“良好”;如果成绩在60-74之间,显示“及格”;如果成绩在0-59分,显示“不及格”;若成绩不在所有范围内,则显示“成绩无效”。

6.统计1-50间不能被7整除的数的个数。

这6个是我们作业题目 实在不会 哪位高人帮帮忙呀 谢谢拉
我是新人分不多 都送了
晕 空格不显示
4题是这样
y=x (x<1)
y= 2*x-1 (1<=x<10)
y=3*x-11 (x>=10)

1
note 计算表达式的值
set talk off
input "请输入x:"to x
input "请输入y:"to y
input "请输入z:"to z
?(x+y+z)/3-X*Z^(1/2)
set talk on
2.
CLEAR

INPUT "请输入年份" TO Y
IF MOD(Y,4)=0 AND MOD(Y,100)<>0 OR MOD(Y,400)=0
MSG="是闰年"
ELSE
MSG="不是闰年"
ENDIF
?STR(Y,4)+"年"+MSG
3.
SET TALK OFF
CLEAR
INPUT '请输入X的值:' TO X
IF X%2=0
?’这是一个偶数!’
ELSE
?’它是一个奇数’
ENDIF
SET TALK ON
RETURN

4.
input "输入一个数 "to x
do case
case x<1
y=x
case x<10
y=2*x-1
otherwise
y=3*x-11
endcase
?"y=",y
5.INPUT "请输入成绩(0-100): " TO I
DO CASE
CASE I<=59
?"不及格"
CASE I<=74
?"及格"
CASE I<=89
?"良好"
CASE I<=100 <