vf 计算机二级求俩个数之间的是素数并且为回文数的个数

发布时间:2014-10-23 23:31:06
来源:分享查询网

clear      &&清理屏幕 count1=0     &&用来保存回文数的个数 for i=100 to 999  &&判断范围  就是  100~999 a=i%10        &&找出个位的数字 c=int(i/100)   && 找出百位数字 if a=c and su(i) && 对比 个位数字和百位数字是否相同 如果相同就是回文 并且为这个数是不是为素数 count1 = count1+1   &&计数器 加一 endif      endfor ? count1,i  &&下面的程序为 判断是否为 素数 retu function su(x)  && 定义一个函数名为 su的函数执行这个函数 传入 x 是个参数 for j=2 to sqrt(x) &&循环2到 x的平方根 之间的范围 if x%j=0   &&如果传入的参数 x能被2整除   return(.f.)  &&返回 false 不是素数 endif    &&如果 不能被2整除 endfor    && 如果 继续循环 知道x的平方根小于 2的时候 跳出函数 if j>sqrt(x)  && 返回值为 true的时候 这个数为素数,因为素数只能被一或者本身整除 return(.t.) endif

返回顶部
查看电脑版