中国DOS联盟

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

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

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

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 简单加法浮点运算

ficn
初级用户

积分 30
发帖 15
注册 2008-6-23
状态离线

『楼主』: 简单加法浮点运算

可以输入1.1+0.5+101.85+...........
只能是正数，小数到30位，可以加小数
@echo off&setlocal ENABLEDELAYEDEXPANSION&set w=0&set qq=0&set ww=0
:str
set/p ks=%qq% ^>
if "%ks%" equ "*" set qq=0&set ww=0&goto str
for %%a in (%ks:+= %) do (set w=0&set qq=!qq!&set ww=%%a
for /f "tokens=1,2 delims=." %%i in ("!qq!") do (set st1=%%i&set qq=.%%j000000000000000000000000000000)
for /f "tokens=1,2 delims=." %%i in ("!ww!") do (set/a st=%%i+!st1!&set ww=.%%j000000000000000000000000000000)
set qq=!qq:~0,30!&set ww=!ww:~0,30!
for /l %%i in (1,1,30) do (set/a q=!qq:~-%%i,1!+!ww:~-%%i,1!+!w!
if !q! geq 10 (set w=1) else (set w=0)
if "!qq:~-%%i,1!" equ "." (set/a st=!st!+!q!&set sss=!st!.!e!&^
for /l %%i in (1,1,30) do (if "!sss:~-%%i,1!" neq "0" (set/a qq2+=1&^
if "!qq2!" equ "1" if "!qq1:~-1!" equ "." (set qq=!qq1:~0,-1!) else (set qq=!qq1!)) else (set qq1=!sss:~0,-%%i!))) else (set e=!q:~-1!!e!))
set qq2=0&set e=)
::echo 结果:%qq%
goto str

2009-8-14 12:55

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: