急求!!!谢谢各位帮忙解答 — 编程爱好者社区

主题：急求!!!谢谢各位帮忙解答

whssuj [专家分：0] 发布于 2006-08-14 15:57:00

用QBASIC编程
1.求1² + 2² +3² +4² +…… +10²的值
2.求y的值,x由键盘输入

                       {-1  x<0
                   y = {0   x=0
                       {1   x>0
3.打印出1到100中能被3或5整除的数,并求出他们的和.

本帖地址： http://bbs.pfan.cn/post/186947.html

回复列表（共3个回复）

沙发

609802597 [专家分：20] 发布于 2006-08-14 20:25:00

第三题应该这么做:
CLS
S=0
FOR I=1 TO 100
IF I MOD 3=0 OR I MOD 5=0 THEN S=S+I:PRINT I
NEXT I
PRINT
PRINT S
END

板凳

609802597 [专家分：20] 发布于 2006-08-14 21:28:00

第二题应该这样做:
CLS
INPUT X
PRINT SGN(X)
END

3 楼

zhengjink [专家分：0] 发布于 2006-08-18 17:43:00

第二题应该这样
input "x=";x
if x<0 then
    print "y=";"-1"
elseif x=0 then
   print "y=";"0"
else
   print "y=";"1"
end if
end

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：急求!!!谢谢各位帮忙解答

回复列表（共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：急求!!!谢谢各位帮忙解答

回复列表 （共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共3个回复）