主题：[讨论]用QBASIC设计程序，判断一正整数奇偶
jwp498099186
[专家分：0] 发布于 2009-08-30 11:38:00
已知N为一正整数，要用QBASIC设计程序，判断N的奇偶，要怎么设计??
注意： 我已经知道一种方法
IF N MOD 2 = 0 THEN
PRINT "偶“
ELSE
PRINT "奇”
END
请告诉我其他方法
谢谢了
回复列表 （共8个回复）
沙发
phile [专家分：2310] 发布于 2009-08-30 13:26:00
CLS
INPUT S$
T=VAL(RIGHT$(S$,1)
IF T MOD 2=0 THEN PRINT "偶“ ELSE PRINT "奇"
END
这时用于大数的！
板凳
天天和和 [专家分：1420] 发布于 2009-09-04 22:05:00
CLS
INPUT A$
Q=VAL(RIGHT$(A$,1)
IF Q MOD 2<>0 THEN PRINT " JI SHU " ELSE PRINT " OU SHU "
END
3 楼
phile [专家分：2310] 发布于 2009-09-05 11:56:00
楼上抄袭思路
4 楼
小小DAVID [专家分：300] 发布于 2009-11-21 20:08:00
input n
if n mod 2 = 0 then print ji else ? ou
end
5 楼
593170024 [专家分：500] 发布于 2009-12-06 14:44:00
张子健，n=10000000000000000000000
怎么办呢?
用字符串吧
再说了，用别的方法
6 楼
qbv7.1 [专家分：0] 发布于 2009-12-11 19:41:00
input a$
s=val(right$(a$,1))
if s mod 2=0 then print"奇" else print "偶"
7 楼
小小DAVID [专家分：300] 发布于 2009-12-15 20:59:00
吴一迪也别得意
8 楼
userlist [专家分：10] 发布于 2009-12-28 20:39:00
可以仅判断个位
input s$
a=val(right$(s$,1))
if a mod 2=0 print "偶" else print "奇"
end
我来回复
您所在位置：