中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [原创]********斐波那契数列********

s11ss
银牌会员

积分 2098
发帖 566
注册 2007-9-11
状态离线

『楼主』: [原创]********斐波那契数列********

@echo off

setlocal enabledelayedexpansion

::::::::::::::::::::::::::Fibonacci Series {s11ss 2007-10-1}::::::::::::::::::::::::::

echo Please input the total numbers:

set/p num=

for /l %%a in (1,1,%num%) do (

        set/a x=%%a-1

        set/a y=%%a-2

        set/a n%%a=n!x!+n!y!

        if !x! equ 0 set/a n%%a=1

        if !y! equ 0 set/a n%%a=1

)

set s=

for /l %%a in (1,1,%num%) do set s=!s! !n%%a!

echo.

echo !s!

echo.

echo Press Any Key To Exit...

pause>nul