[pascal]对“求1-100之间的所有素数”的三种不同循环结构算法的分析

最新推荐文章于 2024-04-14 10:41:10 发布

原创

最新推荐文章于 2024-04-14 10:41:10 发布 · 1.5w 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#算法 #pascal #integer #output #input #作业

本文分析了使用REPEAT UNTIL、WHILE和FOR三种循环结构在Pascal中求解1-100之间素数的算法。FOR循环算法遵循常规，利用2到数的平方根进行判断，提高效率。REPEAT循环虽然可人为控制循环次数，但会误判2为非素数。WHILE循环在保持效率的同时避免了REPEAT的副作用，且代码更简洁。根据代码可读性和执行效率，WHILE循环算法最优，其次是REPEAT，再次是FOR。

　　在做第四章（循环结构程序设计）的作业时，有一道“求1-100之间的所有素数”的题目，有意思的是最后出现了三种不同的写法，这三种写法的基本思想都差不多但其核心算法不同，做过求素数算法的人都知道，所谓素数就是除了1和它本身外没有其他数可以整除它的数，固然其核心算法就是检验这个数是否可以被其他数整除。毋庸置疑这个核心算法应当由循环结构来完成。明确了这些之后我们回来再说说这三种写法：

　　第一种写法是我最初尝试写这个题目时设计的算法（由于其核心算法采用REPEAT UNTIL型循环，故我们以下简称为REPEAT循环），它的代码是这样的：

REPEAT.PAS

PROGRAM prime(input,output);
  {求100以内质数}
  VAR
    {flagnum用来标示当前数是否为质数}
    i,num:integer;
    flagnum:boolean;
  BEGIN
    {输出2为质数，下面将不再考虑2}
    writeln( ' 2 is a prime number ... ' );
    {下面开始判断3到100中的数那些是质数}
    FOR num: = 3 TO 100 DO
      BEGIN
        {置初值}
        flagnum: = true ;
        i: = 2 ;
        REPEAT
          {用当前数num去除i，如果可以被整除则标记其为非质数}
          IF num MOD i = 0
            THEN flagnum: