用筛法求出100以内的全部素数.docVIP

例6、用筛法求出100以内的全部素数，并按每行五个数显示。 【问题分析】 ⑴ 把2到100的自然数放入a[2]到a[100]中（所放入的数与下标号相同）； ⑵ 在数组元素中，以下标为序，按顺序找到未曾找过的最小素数minp,和它的位置p（即下标号）； ⑶ 从p+1开始，把凡是能被minp整除的各元素值从a数组中划去（筛掉），也就是给该元素值置 0； ⑷ 让p p+1，重复执行第②、③步骤，直到minp Trunc sqrt N 为止； ⑸ 打印输出a数组中留下来、未被筛掉的各元素值，并按每行五个数显示。 用筛法求素数的过程示意如下（图中用下划线作删去标志）： ① 2 3 4 5 6 7 8 9 10 11 12 13 14 15…98 99 100 ｛置数｝ ② 2 3 4 5 6 7 8 9 10 11 12 13 14 15…98 99 100 筛去被2整除的数 ③ 2 3 4 5 6 7 8 9 10 11 12 13 14 15…98 99 100 筛去被3整除的数 …… 2 3 4 5 6 7 8 9 10 11 12 13 14 15…98 99 100 筛去被整除的数 Program Exam53; const N 100; type xx 1 .. N; 自定义子界类型xx（类型名） Var a: array[xx] of boolean; i,j: integer; Begin Fillchar a,sizeof a ,true ; a[1] : False; for i: 2 to Trunc sqrt N do if a[I] then for j : 2 to N div I do a[I*j]: False; t: 0; for i: 2 to N do if a[i] then Begin write a[ i ]:5 ; inc t ; if t mod 5 0 then writeln end; End.  【例3】输入十个正整数，把这十个数按由大到小的顺序排列（将数据按一定顺序排列称为排序，排序的算法有很多，其中选择排序中的“简单选择排序”是一种较简单的方法）　分析： 要把十个数按从大到小顺序排列，则排完后，第一个数最大，第二个数次大，……；因此，我们第一步可将第一个数与其后的各个数依次比较，若发现，比它大的， 则与之交换，比较结束后，则第一个数已是最大的数。同理，第二步，将第二个数与其后各个数再依次比较，又可得出次大的数。如此方法进行比较，最后一次，将 第九个数与第十个数比较，以决定次小的数。于是十个数的顺序排列结束。 例如下面对5个进行排序，这个五个数分别为8　2　9　10　5。按选择排序方法，过程如下： 初始数据　：8　2　9　10　5 第一轮排序：8　2　9　10　5 9　2　8　10　5 10　2　8　9　5 10　2　8　9　5 第二轮排序：10　8　2　9　5 10　9　2　8　5 10　9　2　8　5 第三轮排序：10　9　8　2　5 10　9　8　2　5 第四轮排序：10　9　8　5　2 对于十个数，则排序要进行9次。源程序如下： program ex5_2; var a:array[1..10]of integer; i,j,t:integer; begin writeln Input 10 integers: ; for i: 1 to 10 do read a[i] ;｛读入10个初始数据｝ readln; for i: 1 to 9 do｛进行9次排序｝ begin for j: i+1 to 10 do｛将第i个数与其后所有数比较｝ if a[i] a[j] then ｛若有比a[i]大,则与之交换｝ begin t: a[i];a[i]: a[j];a[j]: t; end; write a[i]:5 ; end; end.  例5、编程输入十个正整数，然后自动按从大到小的顺序输出。（冒泡排序）【问题分析】 ①用循环把十个数输入到A数组中；②从A[1]到A[10]，相邻的两个数两两相比较，即：A[1]与A[2]比，A[2]与A[3]比，……A[9]与A[10]比。只需知道两个数中的前面那元素的标号，就能进行与后一个序号元素（相邻数）比较，可写成通用形式A[ i ]与A[ i +1]比较，那么，比较的次数又可用1～ n - i 循环进行控制 即循环次数与两两相比较时前面那个元素序号有关 ；③在每次的比较中，若较大的数在后面，就把前后两个对换，把较大的数调到前面，否则不需调换位置