跪求好心的朋友帮我解答下几个题目！！！！

主题：跪求好心的朋友帮我解答下几个题目！！！！

linba [专家分：0] 发布于 2007-07-07 15:24:00

用qbasic编程：1.输入8个整数，按升序排列。
2.求4-100所有素数的和。
3.用递归的方法求N！的和。 [em8][em8]

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

回复列表（共4个回复）

沙发

Matodied [专家分：7560] 发布于 2007-07-07 17:13:00

1、
CLS
DIM a(8)
FOR i=1 TO 8:INPUT a(i):NEXT i
FOR i=1 TO 7:FOR j=i+1 TO 8
IF a(i)>a(j) THEN SWAP a(i),a(j)
NEXT j,i
FOR i=1 TO 8:PRINT a(i):NEXT i
END

板凳

Matodied [专家分：7560] 发布于 2007-07-07 17:19:00

2、
CLS
s=0
FOR i=4 TO 100
    f=1
    FOR j=2 TO SQR(i)
        IF i MOD j=0 THEN f=0:EXIT FOR
    NEXT j
    IF f=1 THEN s=s+i
NEXT i
PRINT s
END

3 楼

Matodied [专家分：7560] 发布于 2007-07-07 17:21:00

3、
CLS
INPUT s
PRINT a(s)
END

FUNCTION a(i)
         IF i=1 THEN
            a=1
         ELSE
            a=a*a(i-1)
         END IF
END FUNCTION

4 楼

happybasic [专家分：80] 发布于 2007-07-10 15:27:00

Matodied，好热心！

我来回复

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

主题：跪求好心的朋友帮我解答下几个题目！！！！

回复列表（共4个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：跪求好心的朋友帮我解答下几个题目！！！！

回复列表 （共4个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共4个回复）