下列程序是计算100以内素数之和,素数是大于1且只能被1和自己整除的自然数.要求:1、项目中有一个程序文件Pcode,件T盘中VFP01.TXT中的程序代码复制到其中并进行修改;2、在修改程序时,不允
题目
下列程序是计算100以内素数之和,素数是大于1且只能被1和自己整除的自然数.要求:1、项目中有一个程序文件Pcode,件T盘中VFP01.TXT中的程序代码复制到其中并进行修改;2、在修改程序时,不允许修改程序的总体框架和算法,不允许增加或减少语句数目
SET TALK OFF
CLEAR
sum1=0
FOR i=2 TO 100
prime=.T.
FOR j=2 TO i-1
x05x05IF MOD(i,j)0
x05x05Prime=.F.
x05x05EXIT
x05x05ENDIF
x05ENDFOR
x05IF prime
x05x05?i
x05sum1=sum1+i
x05ENDIF
ENDFOR
"100以内素数之和为:"+sum1
SET TALK ON
RETU
答案
SET TALK OFF
CLEAR
sum1=0
FOR i=2 TO 100
prime=.T.
FOR j=2 TO i-1
IF MOD(i,j)=0 && 修改1
Prime=.F.
EXIT
ENDIF
ENDFOR
IF prime
?i
sum1=sum1+i
ENDIF
ENDFOR
?"100以内素数之和为:",sum1 && 修改2
SET TALK ON
RETU
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 把3:4的前项加上9,要使比值不变,后项应扩大到原来的( ).
- 什么字偏旁有山有玉石的含义
- 科学探究第一环节
- 有一列数:1,2,3,2,1,2,3,4,3,2,3,4,5,4,3,4,5,6,5,4,5,6,……这列数中,前200个数的和是多少?
- 已知平行四边形的面积是144cm2,相邻两边上的高分别为8cm和9cm,则这个平行四边形的周长为_cm.
- 管道中DN与dn表示什么?
- 有32面彩旗,要求每行彩旗的面数同样多.有几种插法?若73面呢?
- 学校阅览室有科技书400本,故事书有1600本.故事书是科技书的( )% 科技书是故事书的
- 7年级上册语文《理想》的导入语
- 如图1,在平面直角坐标系中,以坐标原点O为圆心的⊙O的半径为2-1,直线l:y=-x-2与坐标轴分别交于A、C两点,点B的坐标为(4,1),⊙B与x轴相切于点M. (1)求点A的坐标及∠CAO的度数;
热门考点