文件名称：应用实例-机器视觉算法与应用01
文件大小：1.48MB
文件格式：PDF
更新时间：2024-06-28 04:31:10
PASCAL
五、应用实例 例 9 编制用筛法求 1-n(n≤200)以内素数的程序。 分析: 由希腊著名数学家埃拉托色尼提出的所谓"筛法"，步骤如下： ①将所有候选数放入筛中； ②找筛中最小数（必为素数）next，放入集合 primes 中； ③将 next 的所有倍数从筛中筛去； ④重复②～④直到筛空。 编程时，用集合变量 sieve 表示筛子，用集合 primes 存放所有素数。 源程序如下： program ex10_3; const n=200; var sieve,primes:set of 2..n; next,j:integer; begin sieve:=[2..n];{将所有候选数放入筛中} primes:=[];{素数集合置空} next:=2; repeat {找筛 sieve 中最小一个数} while not(next in sieve) and(next<=n)do next:=succ(next); primes:=primes+[next];{将最小数放入素数集合中}