批处理测试你的身体质量指数

ieutk

1. @echo off
   
2. :: code by ieutk @ bbs.bathome.net
   
3. title 测试你的身体质量指数(BMI)
   
4. mode con: cols=60 lines=14
   
5. :: ***********************************************************
   
6. :main_w
   
7. cls&echo.
   
8. set weight=[]
   
9. set /p weight=  请输入体重(单位:kg):
   
10. call :ie weight %weight% main_w
    
11. :: 体重数据输入
    
12. :: ***********************************************************
    
13. :main_h
    
14. cls&echo.
    
15. set height=[]
    
16. set /p height=  请输入身高(单位:cm):
    
17. call :ie height %height% main_h
    
18. :: 身高数据输入
    
19. :: ***********************************************************
    
20. set /a bmi=^(%weight%*10000^)/^(%height%*%height%^)
    
21. :: 身体质量指数的运算公式是: 体重/(身高*身高)。注意此处的身高单位是M,而不是CM
    
22. call :out %bmi%
    
23. 
    
24. :out
    
25. set "yo=if %1 equ %%a msg /v /w %username%"
    
26. if %1 gtr 30 msg /v /w %username% " 不要再闹了!!!哪有这种身材~~ ">nul&goto main_w
    
27. for /l %%a in (28 1 30) do %yo% " 你再不减肥就完蛋了! ">nul&goto main_w
    
28. for /l %%a in (24 1 27) do %yo% " 你是不是胖了点? ">nul&goto main_w
    
29. for /l %%a in (21 1 23) do %yo% " 我敢打赌,你一定经常抢吃,不然不会偏胖! ">nul&goto main_w
    
30. for /l %%a in (19 1 20) do %yo% " 哇~!!棒极了，是标准身材! ">nul&goto main_w
    
31. for /l %%a in (17 1 18) do %yo% " 朋友，明显你营养不良(^_^)! ">nul&goto main_w
    
32. if %1 lss 17 msg /v /w %username% " 按照生物学来说这种生物是不能生存的~! ">nul&goto main_w
    
33. 
    
34. :ie
    
35. if "%1"=="[]" goto %3
    
36. echo %2|findstr "^[1-9][0-9]*$">nul||goto %3
    
37. if %2 geq 250 msg /v /w %username% "  你输入的数字让我头都大了,按确定重新输入!">nul&goto %3
    
38. goto :eof

复制代码

foxJL

有点意思呵...不过男女的算法不能统一吧?

ieutk

是的，这个算法是通用的，只是那个身体质量指数范围男女不同而己！

[ 本帖最后由 ieutk 于 2008-1-8 17:16 编辑 ]

lbl8029

哈全,真的很好玩,有意思,

sampeck

它不相信我?

easy2003

纯粹娱乐，不错，有想头。

czl1378

我50公斤，身高178cm，它居然说我不能生存？！靠，俺这身材都保持有10来年了。

netbenton

楼上真有如此魔鬼身才！

我的自认为是标准的，竟然说我常抢吃！

[ 本帖最后由 netbenton 于 2009-8-21 23:32 编辑 ]

czl1378

千真万确。我的体重一直在95-100之间浮动~

zcydez

我堂堂一个小孩不能生存？？？？？？？？？

kyseven

狱渊

我体重：54kg
我身高：169cm
他的消息为：哇~！！棒极了，是标准身材！
可是为啥都说我矮！！！！！！