新凉似水
春芽
共回答了20个问题采纳率:95% 举报
1.
LOCAL i
DIMENSION X3(100) && 定义100行的数组
FOR i = 1 TO 100
X3[i] = i^(1/3) && i 的 1/3 次方
ENDFOR
DISPLAY MEMORY LIKE X3 TO FILE "ROOT.C" && 输出到文件
2.
CLEAR
LOCAL a,i,j,k,m,n,s
k = 0
DIMENSION Z(1) && 预定义 Z 数组,储存 100 以内的质数
FOR i = 2 TO 100 && i (2 到 100) 查找质数
m = 1 && 预置质数检查标志
FOR j = 2 TO i-1 && 将 i 试除 j (2 到 i-1)
IF MOD(i,j) = 0 && 如果整除
m = 0 && 非质数
EXIT && 退出 j 循环
ENDIF
ENDFOR
IF m = 1 && 如果质数
k = k + 1 && 刷新 Z 行数
DIMENSION Z(k) && 重定义 Z 大小
Z[k] = i && 将 质数 存入 Z
ENDIF
ENDFOR
INPUT "输入 n (2
1年前
6