应用实例-机器视觉算法与应用01
五、应用实例例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
文件大小：1.48MB
评论区