求一VFP编程题,江湖救急,明天要交的作业,实在不太会做
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/07/11 19:52:54
求一VFP编程题,江湖救急,明天要交的作业,实在不太会做
A,B二个正整数,若均为偶数则1,若均为奇数则置-1,否则交换两数,A和B的奇偶性分四种,A奇B奇:A奇B偶,A偶B奇,A偶B偶,判断A,若A是奇再判断B是否奇,是则置1,否则交换,若A是偶再判断B是否偶,是则消零,否则交换
A,B二个正整数,若均为偶数则1,若均为奇数则置-1,否则交换两数,A和B的奇偶性分四种,A奇B奇:A奇B偶,A偶B奇,A偶B偶,判断A,若A是奇再判断B是否奇,是则置1,否则交换,若A是偶再判断B是否偶,是则消零,否则交换
![求一VFP编程题,江湖救急,明天要交的作业,实在不太会做](/uploads/image/z/17117827-43-7.jpg?t=%E6%B1%82%E4%B8%80VFP%E7%BC%96%E7%A8%8B%E9%A2%98%2C%E6%B1%9F%E6%B9%96%E6%95%91%E6%80%A5%2C%E6%98%8E%E5%A4%A9%E8%A6%81%E4%BA%A4%E7%9A%84%E4%BD%9C%E4%B8%9A%2C%E5%AE%9E%E5%9C%A8%E4%B8%8D%E5%A4%AA%E4%BC%9A%E5%81%9A)
CLEAR
input "请输入A值:" to a
input "请输入B值:" to b
IF MOD(a,2)=0 AND MOD(b,2)=0 then
c=1
?c
ELSE
IF MOD(a,2)=1 AND MOD(b,2)=1 then
c=-1
?c
ELSE
tmp=b
b=a
a=tmp
?a
?b
ENDIF
ENDIF
input "请输入A值:" to a
input "请输入B值:" to b
IF MOD(a,2)=0 AND MOD(b,2)=0 then
c=1
?c
ELSE
IF MOD(a,2)=1 AND MOD(b,2)=1 then
c=-1
?c
ELSE
tmp=b
b=a
a=tmp
?a
?b
ENDIF
ENDIF