批处理杨辉三角效果实现代码
来源:易贤网 阅读:1000 次 日期:2014-05-13 12:12:40
温馨提示:易贤网小编为您整理了“批处理杨辉三角效果实现代码”,方便广大网友查阅!

这篇文章主要介绍了批处理打印彩色的杨辉三角效果实现代码,喜欢的朋友可以测试下

效果图:

1.jpg

代码如下:

@echo off&color 0e

setlocal enabledelayedexpansion

mode con: cols=130 lines=130

:top

cls

::set /p in=请输入行数:

set in=23&set ab=1&set var=64

if "%in%"=="" goto top

if %in% geq 35 goto top

if %in% leq 0 goto top

echo %in%|findstr /r "^[0-9][0-9]*$">nul 2>nul||goto top

set str=1

for /l %%i in (1,1,%in%) do (

set num=

set num2=0

for %%a in (!str!) do (

set /a num2+=1

if !num2!==1 set "str1="

set /a num1=%%a+num

set "str1=!str1! !num1!"

set num=%%a

)

call :lis "!str1:~1!"

set "str=!str1! 0"

)

rem 再输出个倒 金字塔 玩玩。

for /l %%a in (22 -1 1) do echo !nam%%a!

for /l %%i in (1 1 3) do (

for %%a in (a b c d e f) do (

color 0%%a

ping/n 2 127.1>nul

))

exit

:lis

set max=%~1

for /l %%a in (0 1 300) do (

if not "!max:~%%a,1!"=="" set /a ci+=1

)

set /a ki=var-ci/2

for /l %%a in (1 1 !ki!) do set kg= !kg!

echo !kg!!max!

set nam!ab!=!kg!!max!

set /a ab+=1

set ci=0&set kg=

goto :eof

更多信息请查看IT技术专栏

更多信息请查看脚本栏目
易贤网手机网站地址:批处理杨辉三角效果实现代码
由于各方面情况的不断调整与变化,易贤网提供的所有考试信息和咨询回复仅供参考,敬请考生以权威部门公布的正式信息和咨询为准!
关于我们 | 联系我们 | 人才招聘 | 网站声明 | 网站帮助 | 非正式的简要咨询 | 简要咨询须知 | 加入群交流 | 手机站点 | 投诉建议
工业和信息化部备案号:滇ICP备2023014141号-1 云南省教育厅备案号:云教ICP备0901021 滇公网安备53010202001879号 人力资源服务许可证:(云)人服证字(2023)第0102001523号
云南网警备案专用图标
联系电话:0871-65317125(9:00—18:00) 获取招聘考试信息及咨询关注公众号:hfpxwx
咨询QQ:526150442(9:00—18:00)版权所有:易贤网
云南网警报警专用图标