SCL编程实例100例-024-金蝉素数

>

1 | 题目

由1、3、5、7、9 这5个奇数排列组成的5位素数，同时去掉它的最高位与最低位数后剩下的三位数还是素数，然后再同时去掉它的高二位与低二位数后剩下的一位数还是素数。这个过程类似金蝉脱壳，因此人们把这些神秘的素数称为金蝉素数。编写程序求金蝉素数。

2 | 设计分析

假设有一个5位数n，首先n是素数，其次，n去掉首尾后的三位数m也是素数，且m的中间位的数是素数，说明中间的那个数不是1或9。同样，n的每一位的值都不相同，且都不是偶数。

所以，金蝉素数判断步骤如下：

1)判断n是不是素数；

2)判断m是不是素数；

3)判断m的中间一位数是不是1或9；

4)判断n的每一位都不是偶数；

只要任意一个条件不满足金蝉素数的条件，都不是金蝉素数。

3 | 创建功能或功能块

创建功能块FB，命名为“GoldenCicadaPrimes”。

4 | 定义接口变量

具体接口变量定义见下图：

预定义含有10个元素的一维数组来保存结果，为了方便监控数值，大部分变量被定义成Static变量。另外定义了含有5个元素的一维数组来临时保存5位奇数。

5 | 程序代码

编写程序代码。如下图：

本例的关键是进行素数判断和数位截取与组合。

6 | 代码测试

在循环OB中调用FB- “GoldenCicadaPrimes”，调用时会自动创建背景数据块，命名为“InstGoldenCicadaPrimes”，该背景数据块可以用来监视和修改数据。转至在线并监控程序。如下图：

得到13597、53791、79531、91573、95713共5个金蝉素数。其中13597 与79531 是互逆的金蝉素数。

7 | 总结

学习使用FOR循环语句；

学习使用IF…ELSE语句；

学习一维数组的使用；

学习EXIT语句的作用。

-