declare @F int,@C float
set @F=0while @F<=300
begin
set @C=5.0/9.0*(@F-32)print('华氏温度='+cast(@F as nchar(3))+'时:摄氏温度='+cast(@C as char(10)))
set @F=@F+10
end
declare @i int,@money float
set @money =0.0
set @i=0while @i<5
begin
set @money=(@money+1000)/(1+12*0.01875)
set @i=@i+1
end
print('第1年年底初时他应存入'+cast(@money as nchar(8))+'元钱')
3、鸡兔同笼,共有98个头,386只脚,请用穷举法编程计算鸡、兔各有多少只。
declare @x int, @y int
set @x=1
set @y=97while @x<=98
begin
if(@x+@y=98 and 2*@x+4*@y=386)
begin
print('鸡有'+cast(@x as nchar(3))+'只')print('鸭有'+cast(@y as nchar(3))+'只')break
end
else
begin
set @x=@x+1
set @y=@y-1
end
end
declare @x int,@y int,@z int
set @x=0print('公鸡 母鸡 小鸡')while(@x<100)
begin
set @y=0while(@y<100)
begin
set @z=0while(@z<100)
begin
if(@x+@y+@z=100 and 5*@x+3*@y+(1/3)*@z=100)
begin
print(cast(@x as nchar(5))+cast(@y as nchar(5))+cast(@z as nchar(3)))break
end
set @z=@z+1
end
set @y=@y+1
end
set @x=@x+1
end
declare @x int,@y int,@z int,@n int
set @x=0
set @n=0while(@x<50)
begin
set @y=0while(@y<50)
begin
set @z=0while(@z<50)
begin
if(@x+@y+@z=50 and 10*@x+5*@y+@z=100)
begin
print('10元有'+cast(@x as nchar(1))+'张')print('5元有'+cast(@y as nchar(1))+'张')print('1元有'+cast(@z as nchar(2))+'张')
set @n=@n+1break
end
set @z=@z+1
end
set @y=@y+1
end
set @x=@x+1
end
print('共有'+cast(@n as nchar(1))+'种方案')
declare @f float,@q float,@i int
set @f=100000
set @q=0.01
set @i=1while(@i<30)
begin
set @f=@f+100000
set @q=@q+@q*2
set @i=@i+1
end
print('30天后,富人得到:'+cast(@f as nchar(8))+'元')print('30天后,穷人得到:'+cast(@q as nchar(13))+'元')
declare @i int,@j int,@k int,@m int
set @i=0while(@i<=9)
begin
set @j=0while(@j<=9)
begin
if(@i!=@j)
begin
set @k=@i*1000+@i*100+@j*10+@j
set @m=3while(@m*@m<=@k)
begin
if(@m*@m=@k)
begin
print('车牌号为:'+cast(@k as nchar(8)))
end
set @m=@m+1
end
end
set @j=@j+1
end
set @i=@i+1
end