primenumber.plx

来自「一个PLX教学编译器IDE」· PLX 代码 · 共 52 行

//                 Author  :  Tuwei                                               //
//                 Copyright All Reserved                                         //
//                                                                                //
//                 Function:  get all prime numbers between 1 with 100.           //
////////////////////////////////////////////////////////////////////////////////////


program
   const limit = 100;

   /* 获取素数的函数 */
   procedure cc;
     integer a,b,c,d,e;

     /* 实现数字函数 */
     procedure dd;
         begin
            if e = 0 
            then
              write a;
            end;  
         end;
     
     begin
         a := 1; 
         while a <= limit  do
           b := 2;
           e := 0;
           while b <= a/2 do     
              c := 2;
              while c<= a/2 do         
                 d := c*b;         
                 if d = a 
                 then 
                     e := 1; 
                 end;          
                 c := c+1;
             end;
             b := b+1;
          end;        
  
          call dd;        // 显示素数

        a := a+1;
      end;
    end;

// 主程序
begin

  call cc;
end.