| 网站首页 | 绿色软件 | 绿色数码 | 安全中心 | 屏保中心 | 源码中心 | 电子书库 | 教程库 | 图片库 | 资料库 | 算命 | 笑话 | 广告 | 绿站旧版 | 返回总部 | 
您现在的位置: 绿色软件站 >> 源码中心 >> BAT源码 >> 数值计算 >> 源码信息
热点推荐
最新更新
本类热门
· 去最大最小值后求剩余数组平均值
· 网络配置备份恢复
· 计算2的N次方
· 乘法,加法,计算器
· 九九乘法表
· 求最大公约数和最小公倍数
· 开平方
· 求一列数所有不同组合的和
· 九宫格图案
· 对数字进行排序
推荐软件
其他更新
开平方
运行环境: Win9x/NT/2000/XP/2003 (载入中...)
文件大小: 1 K
软件类别: BAT源码
软件语言: 简体中文
软件属性:       
授权方式: 免费版
添加时间: 2008-3-29 7:11:00
软件等级: ★★★
软件绿化: 佚名
相关链接: 源码演示地址  源码注册地址
下载次数: 日: 周: 月: 总:
软件添加: 审核:lodge 录入:lodge
::软件简介::  

警告:运行BAT源码是一种危险的动作,如果你不熟悉,请不要尝试!
@echo off
setlocal enabledelayedexpansion
title 开平方
echo 请输入需要开平方的数字:
set a=2
set comp=99999
set /p k=
for /l %%i in (1,1,9) do (
if "!k:~%%i,1!" == "" (
set len=%%i
goto begin
))
:begin
set /a t=len%%2
if not %t% equ 0 set /a len+=1
set /a len=len/2
:acr
set /a a=(k/a+a)/2
set /a m=a*a
set /a t=a-!comp:~0,%len%!
if %m% gtr %k% goto acr
if %m:-=% neq %m% goto acr
if %t% gtr 0 goto acr
set /a r=(k-m)*5000/a
set r=0000%r%
echo 结果:%a%.%r:~-4,-1%
pause>nul

@echo off
setlocal enabledelayedexpansion
title 开平方
echo 请输入需要开平方的数字:
set a=2
set comp=99999
set /p k=
for /l %%i in (1,1,9) do (
if "!k:~%%i,1!" == "" (
set len=%%i
goto begin
))
:begin
set /a t=len%%2
if not %t% equ 0 set /a len+=1
set /a len=len/2
:acr
set /a a=(k/a+a)/2
set /a m=a*a
set /a t=a-!comp:~0,%len%!
if %m% gtr %k% goto acr
if %m:-=% neq %m% goto acr
if %t% gtr 0 goto acr
set /a r=(k-m)*5000/a
set r=0000%r%
echo 结果:%a%.%r:~-4,-1%
pause>nul
::下载地址::  
·电信服务器一  ·电信服务器二  ·网通服务器二  ·网通服务器一  
::相关软件::  
酷我音盒(自带100万首歌曲的播放器)
没有相关源码
(载入中...)
::相关教程::
::下载说明::
为了达到最快的下载速度,推荐使用网际快车下载本站软件。
如果您发现该软件不能下载,请通知管理员或点击【此处报错】,谢谢!
未经本站明确许可,任何网站不得非法盗链及抄袭本站资源;如引用页面,请注明来自本站,谢谢您的支持!
      网友评论:(评论内容只代表网友观点,与本站立场无关!) 发表评论