查人人中国名人网绵阳2017医保缴费标准:有没有好心人用QBASIC帮我解答一下呀 谢谢了
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/05 04:34:27
调用系统标准函数，随机产生30个两位正整数，并从小到大排序输出．
利用function函数，编程求1到10所有数阶乘之和．
利用function函数，编程求1到10所有数阶乘之和．
第一个可以这样做：
DIM ARRAY(30)
FOR I=0 TO 29 REM 获得三十个正整数
ARRAY(I)=INT(RND(1)*100)
NEXT I
FOR I=0 TO 29 REM 排列大小
FOR J=I+1 TO 29
IF ARRAY(I)>ARRAY(J) THEN REM 交换两个数的值
ARRAY(I)=ARRAY(I)+ARRAY(J)
ARRAY(J)=ARRAY(I)-ARRAY(J)
ARRAY(I)=ARRAY(I)-ARRAY(J)
END IF
NEXT J
NEXT I
FOR I=0 TO 29 REM 打印输出
PRINT ARRAY(I);SPACE(2);
NEXT I
第二人可以这样做：
DIM SUM
FOR I=1 TO 10
SUM=SUM+JC(I)
NEXT I
PRINT SUM;
REM 以下是FUNCTION过程
FUNCTION JC(X)
DIM JI
FOR I=1 TO X
JI=JI*X
NEXT I
JC=JI REM 把X的阶乘的值赋给函数过程
END FUNCTION
以上的程序我还没有调试，很久没有用QBASIC了。
如有问题可以加我QQ:403232283（新编上网教程）