易语言实现 求平方根() 计算数值平方根 (解决核心库不支持负数计算,返回双精度小数型)

CNWTEPRG

1. .版本 2
   
2. .程序集 程序集1
   
3. 
   
4. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
5. 
   
6. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
7. 返回 (0)  ' 可以根据您的需要返回任意数值
   
8. 
   
9. .子程序 _临时子程序
   
10. 
    
11. 输出调试文本 (求平方根2 (-256), 求平方根 (-256))
    
12. 输出调试文本 (求平方根2 (-12345), 求平方根 (-12345))
    
13. 
    
14. .子程序 求平方根2, 双精度小数型, 公开, 返回指定参数的平方根，支持负数运算。
    
15. .参数 欲求其平方根的数值, 双精度小数型
    
16. .局部变量 返回值, 双精度小数型
    
17. 
    
18. 返回值 ＝ 求平方根 (取绝对值 (欲求其平方根的数值))
    
19. 返回 (选择 (欲求其平方根的数值 ＜ 0, －返回值, 返回值))
    

复制代码

朵朵

负数有平方根吗???