数据库中如何求1-100以内的素数

数据库视频第八章关于表值函数的讲解中有一个例子,求100以内的素数。

VB中程序可以这样写:

Private Sub Form_Click()

Dim i As Integer, j As Integer, x As Integer

For i = 1 To 100

x = 0     ‘i是素数的标记

For j = 2 To i - 1      如在此范围内都不能整除,i就是素数

If i Mod j = 0 Then x = 1      ‘如整除了,就不是素数

Next j                                    ‘对1和i本身之外的所有数进行取余运算

If x = 0 Then Print i      如是素数,就输出i

Next i

End Sub

在SQL数据库中视频中的方法如下,可是这一小段代码在看视频时却不理解,后来找同学讨论和请教明白了循环的过程。

 

declare @i int

 declare @j int                            --声明变量及类型

 set @i=1                                   

 WHILE @i<=100

 begin

   declare @bol int     --声明变量作为标记

   set @bol=1           --为1是素数,0不是素数

   set @j=2               

while@j<=SQRT(@i)       ’j每一次循环都是从2开始,i的平方根,所以只有当i=1、 2、3时不满足条件直接跳过begin……end循环,输出i

   begin

     if @i%@j=0                   --如果可以整除,执行下面第一个begin……end语句,@bol=0,i不是素数

         begin

            set @bol=0

         break

         end

     set @j=@j+1                   --对每一个不能整除的i都要执行除了1和i本身的之间的每一个数取余

  end

         if @bol=1 print @i

         set @i=@i+1

end                                                       ————100以内的素数


对上面的运算进行修改,可以完善结果显示的方式

DECLARE @t TABLE ( 结果 INT )  

DECLARE @i INT 

SET @i = 1  

WHILE ( @i <= 100 )   

   BEGIN  

      DECLARE @j INT

      SET @j = SQRT(@i)                            --对j每一次赋值为i的平方根

        WHILE ( @j >= 2 )   

              BEGIN  

                 IF (@i % @j = 0 )

      BREAK

 SET @j = @j - 1  

             END  

     IF ( @j = 1 ) INSERT  INTO @t 

     SELECT  @i  

      SET @i = @i + 1  

   END  

 

SELECT * FROM @t     

%在数据库中意思表示两种情况,一种是 取余数,一种是 模糊比较 LIKE里面的 通配符, 匹配 一个或者多个字符。

数据库中如何求1-100以内的素数_第1张图片


你可能感兴趣的:(——【机房收费系统VB版】)