【批处理】计算最简二次根式

Tao0Lu

批处理计算最简二次根式
虽说是计算 也不过就是一个循环罢了

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. title 最简二次根式计算器
   
4. :start
   
5. set /p num=请输入被开方数:
   
6. set a=1
   
7. set /a n=num+0
   
8. if %num% lss 0 (
   
9. echo 负数没有平方根
   
10. pause
    
11. cls
    
12. goto start)
    
13. if not %num%==%n% (
    
14. echo %num%不是个数字
    
15. pause
    
16. cls
    
17. goto start)
    
18. if %num% leq 3 goto sosu
    
19. 
    
20. set /a u=1
    
21. :check
    
22. set /a u+=1
    
23. set /a i=u*u
    
24. if %i%==%num% goto ove
    
25. if %i% gtr %num% goto chso
    
26. goto check
    
27. 
    
28. :chso
    
29. set /a cl=num%%2
    
30. if %cl%==0 goto no
    
31. set count=3
    
32. :loop
    
33. set /a mod=num%%count
    
34. if %mod%==0 goto no
    
35. set /a count+=2
    
36. if %count%==%num% goto sosu
    
37. goto loop
    
38. 
    
39. :no
    
40. set /a a+=1
    
41. set /a b=a*a
    
42. if %b% gtr %num% goto sosu
    
43. set /a c=num%%b
    
44. set /a d=num/b
    
45. if %c%==0 (
    
46. set /a w=a
    
47. set q=1
    
48. goto no2)
    
49. goto no
    
50. 
    
51. :no2
    
52. set /a s=1
    
53. :check2
    
54. set /a s+=1
    
55. set /a i=s*s
    
56. if %i%==%d% goto loop3
    
57. if %i% gtr %d% goto chso2
    
58. goto check2
    
59. 
    
60. :chso2
    
61. set /a cl=d%%2
    
62. if %cl%==0 goto loop3
    
63. set count=3
    
64. :loop2
    
65. set /a mod=d%%count
    
66. if %mod%==0 goto loop3
    
67. set /a count+=2
    
68. if %count%==%d% goto nom
    
69. goto loop2
    
70. 
    
71. :loop3
    
72. set /a q+=1
    
73. set /a p=q*q
    
74. if %p% gtr %d% goto nom
    
75. set /a r=d%%p
    
76. set /a t=d/p
    
77. if %r%==0 (
    
78. set /a w*=q
    
79. set q=1
    
80. set d=%t%)
    
81. goto loop3
    
82. 
    
83. :ove
    
84. echo 最简二次根式为%u%
    
85. pause
    
86. cls
    
87. goto start
    
88. :sosu
    
89. echo 最简二次根式为√%num%
    
90. pause
    
91. cls
    
92. goto start
    
93. :nom
    
94. echo 最简二次根式为%w%√%d%
    
95. pause
    
96. cls
    
97. goto start
    

复制代码

首先这段代码判断用户输入的被开方数，如果不是正数或不是数字就让用户重新输入

1. 
   
2. (中略)
   
3. set /a n=num+0
   
4. if %num% lss 0 (
   
5. echo 负数没有平方根
   
6. pause
   
7. cls
   
8. goto start)
   
9. if not %num%==%n% (
   
10. echo %num%不是个数字
    
11. pause
    
12. cls
    
13. goto start)
    
14. if %num% leq 3 goto sosu
    
15. (中略)

复制代码

批处理中，如果一个字符加上0结果就是0，所以与原本字符不相等。这样就可以判断输入值是不是数字。



然后判断被开方数是不是完全平方数，如果是，就直接输出整数平方根
这里使用了一个循环来实现的

1. 
   
2. (中略)
   
3. set /a u=1
   
4. :check
   
5. set /a u+=1
   
6. set /a i=u*u
   
7. if %i%==%num% goto ove
   
8. if %i% gtr %num% goto chso
   
9. goto check
   
10. (中略)

复制代码

为了防止不是完全平方数，一旦i的值大于被开方数就放弃



素数的最简二次根式就是√素数，根据这一点就可以加快计算的速度

1. 
   
2. (中略)
   
3. :chso
   
4. set /a cl=num%%2
   
5. if %cl%==0 goto no
   
6. set count=3
   
7. :loop
   
8. set /a mod=num%%count
   
9. if %mod%==0 goto no
   
10. set /a count+=2
    
11. if %count%==%num% goto sosu
    
12. goto loop
    
13. (中略)

复制代码

因为素数肯定不能被2和奇数整除，也就是被2和奇数除后余数为0
批处理中，表示变量两边的"%"与除余的符号"%"是一样的，cmd为了分辨，将"%%"设定为除余。
最后一个if和判断是否为完全平方数用的最后一个if是一样的，为了防止死循环

1. 
   
2. set a=1
   
3. (中略)
   
4. :no
   
5. set /a a+=1
   
6. set /a b=a*a
   
7. set /a c=num%%b
   
8. set /a d=num/b
   
9. if %c%==0 (goto next)
   
10. if %b% gtr %num% goto sosu
    
11. goto no
    
12. (中略)
    

复制代码

这是判断被开方数是否可以被完全平方数整除，如果是，将可以整除的完全平方数开平方后放在√被开方数被这个完全平方数除后的结果前面（这个完全平方数的平方根√被开方数被这个完全平方数除后的结果）。但一次循环不能完成此操作，之后进行无限循环，直至无法被完全平方数整除，再输出结果。

优点：容易懂计算方法（笑）
缺点：大值计算较慢

Si515

如图强算SIN值一般，emmm