能不能用vf帮我做一下这两道题呀~请帮我把注释也写一下,有很多不懂的,帮我写详细一点,1、计算1到100的立方根,将结果存于外存,文件名为ROOT.C2、编写程序,实现计算并输出3到n之间(含3和n)
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/23 08:25:55
能不能用vf帮我做一下这两道题呀~请帮我把注释也写一下,有很多不懂的,帮我写详细一点,1、计算1到100的立方根,将结果存于外存,文件名为ROOT.C2、编写程序,实现计算并输出3到n之间(含3和n)
能不能用vf帮我做一下这两道题呀~请帮我把注释也写一下,有很多不懂的,帮我写详细一点,
1、计算1到100的立方根,将结果存于外存,文件名为ROOT.C
2、编写程序,实现计算并输出3到n之间(含3和n)所有素数的平方根之和.例如,n=100,则输出s=148.874270,注意:要求n的值大于2但不大于100.
能不能用vf帮我做一下这两道题呀~请帮我把注释也写一下,有很多不懂的,帮我写详细一点,1、计算1到100的立方根,将结果存于外存,文件名为ROOT.C2、编写程序,实现计算并输出3到n之间(含3和n)
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