SQL例题：储存过程

第一题：马克思手稿中有一道趣味数学题：有30个人，其中有男人、女人和小孩，在一家饭馆里吃饭共花了50先令，每个男人各花3先令，每个女人各花2先令，每个小孩各花1先令，问男人、女人和小孩各有几人？

 1 CREATE PROCEDURE [dbo].[T1]
 2 AS
 3 BEGIN
 4 /*
 5 马克思手稿中有一道趣味数学题：有30个人，其中有男人、女人和小孩，在一家饭馆里吃饭
 6 共花了50先令，每个男人各花3先令，每个女人各花2先令，每个小孩各花1先令，问男人、女人和小孩各有几人？
 7 解方程组
 8 编写程序，采用穷举法求出结果。
 9 */
10     DECLARE @M INT = 0,@W INT = 0,@C INT = 0
11     CREATE TABLE #(M INT,W INT,C INT)
12     WHILE @M<=30
13         BEGIN
14             WHILE @W<=30
15                 BEGIN
16                     SET @C = 30 - @M - @W
17                     IF 3 * @M + 2 * @W + @C = 50
18                         BEGIN
19                             INSERT INTO # VALUES (@M,@W,@C)
20                         END
21                     SET @W = @W + 1
22                 END
23             SET @M = @M + 1
24         END
25     SELECT * FROM #
26     DROP TABLE #
27 END
28 GO

第二题：编写程序，根据以下公式求e的值。要求用两种方法计算： 
 1) for循环，计算前50项  
 2)while 循环，直至最后一项的值小于10-4

 1 CREATE FUNCTION [dbo].[求阶乘]
 2 ( @i AS BIGINT
 3 )
 4 RETURNS BIGINT
 5 AS
 6 BEGIN
 7     DECLARE @x BIGINT = 1,@y BIGINT = 1
 8     WHILE @x <= @i
 9         BEGIN
10             SET @y = @y * @x
11             SET @x = @x + 1
12         END
13   RETURN @y
14 END
15 GO

 1 CREATE PROCEDURE [dbo].[T002]
 2   @FF AS bit = 0
 3 AS
 4 BEGIN
 5 /*
 6  编写程序，根据以下公式求e的值。要求用两种方法计算：
 7  1) for循环，计算前50项
 8  2)while 循环，直至最后一项的值小于10-4
 9 PS:SQL SERVER中没有FOR循环，50!会超出BIGINT的范围，算个20意思一下
10 */
11     DECLARE @i tinyint = 1,@x FLOAT = 1.0,@f FLOAT = 1.0
12     IF @FF = 0
13         BEGIN
14             WHILE @i <= 20
15                 BEGIN
16                     SET @f = @f + 1.0 / dbo.[T002.求阶乘](@i)
17                     SET @i = @i + 1
18                 END
19             SELECT @f
20         END
21     ELSE
22         BEGIN
23             WHILE @x >= 0.0001
24                 BEGIN
25                     SET @x = 1.0 / dbo.求阶乘(@i)
26                     SET @f = @f + @x
27                     SET @i = @i + 1
28                 END
29             SELECT @f
30         END
31 END
32 GO

第三题：从键盘中输入一个数字（不限位数），用循环语句编程判断并输出这个数字的位数。

 1 CREATE PROCEDURE [dbo].[T3]
 2   @Num AS varchar (200)
 3 AS
 4 BEGIN
 5 /*
 6 从键盘中输入一个数字（不限位数），用循环语句编程判断并输出这个数字的位数。
 7 */
 8     DECLARE @S CHAR(1) = ‘1‘,@i INT = 1
 9     WHILE @S <> ‘‘
10         BEGIN
11             SET @S = SUBSTRING(@Num, @i, 1)
12             IF @S <> ‘‘
13                 BEGIN
14                     SET @i = @i + 1
15                 END
16         END
17     SELECT @i - 1,LEN(@Num)
18 END
19 GO