批处理 输出方框

plp626

网上找来的一个练习题， 有些人的代码走了弯路，发来看看大家的结果；

1. -->test 1
   
2. x
   
3. 
   
4. -->test 2
   
5. x x x
   
6. x y x
   
7. x x x
   
8. 
   
9. -->test 3
   
10. x x x x x
    
11. x y y y x
    
12. x y z y x
    
13. x y y y x
    
14. x x x x x
    
15. 
    
16. -->test 4
    
17. x x x x x x x
    
18. x y y y y y x
    
19. x y z z z y x
    
20. x y z 1 z y x
    
21. x y z z z y x
    
22. x y y y y y x
    
23. x x x x x x x
    
24. 
    
25. -->test 5
    
26. x x x x x x x x x
    
27. x y y y y y y y x
    
28. x y z z z z z y x
    
29. x y z 0 0 0 z y x
    
30. x y z 0 1 0 z y x
    
31. x y z 0 0 0 z y x
    
32. x y z z z z z y x
    
33. x y y y y y y y x
    
34. x x x x x x x x x
    
35. 
    
36. -->test 6
    
37. x x x x x x x x x x x
    
38. x y y y y y y y y y x
    
39. x y z z z z z z z y x
    
40. x y z 0 0 0 0 0 z y x
    
41. x y z 0 0 0 0 0 z y x
    
42. x y z 0 0 1 0 0 z y x
    
43. x y z 0 0 0 0 0 z y x
    
44. x y z 0 0 0 0 0 z y x
    
45. x y z z z z z z z y x
    
46. x y y y y y y y y y x
    
47. x x x x x x x x x x x
    
48. 
    
49. -->test 7
    
50. x x x x x x x x x x x x x
    
51. x y y y y y y y y y y y x
    
52. x y z z z z z z z z z y x
    
53. x y z 0 0 0 0 0 0 0 z y x
    
54. x y z 0 0 0 0 0 0 0 z y x
    
55. x y z 0 0 0 0 0 0 0 z y x
    
56. x y z 0 0 0 1 0 0 0 z y x
    
57. x y z 0 0 0 0 0 0 0 z y x
    
58. x y z 0 0 0 0 0 0 0 z y x
    
59. x y z 0 0 0 0 0 0 0 z y x
    
60. x y z z z z z z z z z y x
    
61. x y y y y y y y y y y y x
    
62. x x x x x x x x x x x x x
    

复制代码

规律就是如此（test后面的参数 小于100），请编写一个批处理程序，实现以上输出

CrLf

set /a 一族表示无压力
^_^

plp626

不准骄傲， 赛代码。。。

neorobin

想到 3 种思路:
外扩, 内填, 拟出规则直接生成
其实是若干个同心 " 圆 ",  根据与 圆心 的距离, 可以很简单的确定 字符

neorobin

抢先发一个同心圆算法的

1. @echo off & setlocal enabledelayedexpansion
   
2. set "CS=zyx"
   
3. for /l %%p in (1 1 99) do (
   
4.   set /a "rMax=%%p-1"
   
5.   for /l %%l in (-!rMax! 1 !rMax!) do (
   
6.     set "L="
   
7.     set /a "a=%%l, t=a>>31, a=(a+t)^t"
   
8.     for /l %%c in (-!rMax! 1 !rMax!) do (
   
9.       set /a "b=%%c, t=b>>31, b=(b+t)^t"
   
10.       set /a "t=(a-b)>>31, r=(t&b)|(~t&a), rd=r-rMax-1"
    
11. 
    
12.       if !r!==0 (
    
13.         if !rMax! geq 3 (set "L=!L!1") else set "L=!L!!CS:~-%%p,1!"
    
14.       ) else (
    
15.         if !rd! lss -3 (
    
16.           set "L=!L!0"
    
17.         ) else for %%i in (!rd!) do set "L=!L!!CS:~%%i,1!"
    
18.       )
    
19.     )
    
20.     echo,!L!
    
21.   )
    
22.   pause & cls
    
23. )

复制代码

neorobin

将 半径 大于或等于 4 时, 调整为 高效算法

1. @echo off & setlocal enabledelayedexpansion
   
2. if "%1"=="" (
   
3.   for %%a in (  FontSize:00080008
   
4.                 FontFamily:00000030
   
5.                 WindowSize:00c700c7
   
6.                 ScreenColors:0000000f
   
7.                 CodePage:000001b5
   
8.                 ScreenBufferSize:00c700c7
   
9.   ) do for /f "tokens=1,2 delims=:" %%b in ("%%a") do (
   
10.     >nul reg add HKCU\Console\CharBox /v %%b /t reg_dword /d 0x%%c /f
    
11.   )
    
12.   start "CharBox" /max "%ComSpec%" /c "%~f0" 1&goto:eof
    
13. ) else ( >nul reg delete HKCU\Console\CharBox /f )
    
14. 
    
15. 
    
16. set "CS=zyx" & set "CSR=xyz"
    
17. for /l %%p in (1 1 200) do set "_0=0!_0!"
    
18. set "_1=!_0:0=x!"
    
19. set "_2=!_0:0=y!"
    
20. set "_3=!_0:0=z!"
    
21. set NL=^
    
22. 
    
23. 
    
24. 
    
25. for /l %%p in (1 1 99) do (
    
26.   title %%p
    
27.   set /a "rMax=%%p-1"
    
28. 
    
29.   if !rMax! lss 4 ( rem 同心圆算法, 效率太低, 故仅在半径小于 4 时处理
    
30.     for /l %%l in (-!rMax! 1 !rMax!) do (
    
31.       set "L="
    
32.       set /a "a=%%l, t=a>>31, a=(a+t)^t"
    
33.       for /l %%c in (-!rMax! 1 !rMax!) do (
    
34.         set /a "b=%%c, t=b>>31, b=(b+t)^t"
    
35.         set /a "t=(a-b)>>31, r=(t&b)|(~t&a), rd=r-rMax-1"
    
36. 
    
37.         if !r!==0 (
    
38.           if !rMax! geq 3 (set "L=!L!1") else set "L=!L!!CS:~-%%p,1!"
    
39.         ) else (
    
40.           if !rd! lss -3 (
    
41.             set "L=!L!0"
    
42.           ) else (
    
43.             for %%i in (!rd!) do set "L=!L!!CS:~%%i,1!"
    
44.           )
    
45.         )
    
46.       )
    
47.       echo,!L!
    
48.     )
    
49.   ) else ( rem 在半径不小于 4 时, 切换为高效率算法
    
50. 
    
51.     set "S3=" & set "E3="
    
52.     for %%i in (1 2 3) do (
    
53.       set /a "s=2*(rMax-%%i)+1"
    
54.       for %%s in (!s!) do (
    
55.         set "S3=!S3!!NL!!CSR:~0,%%i!!_%%i:~-%%s!!CS:~-%%i!"
    
56.         set "E3=!CSR:~0,%%i!!_%%i:~-%%s!!CS:~-%%i!!NL!!E3!"
    
57.       )
    
58.     )
    
59. 
    
60.     set /a "s=rMax-3"
    
61.     for %%s in (!s!) do set "LC=xyz!_0:~-%%s!1!_0:~-%%s!zyx"
    
62.     set "Ln=!LC:1=0!"
    
63. 
    
64.     echo,!S3:~1!
    
65.     for /l %%i in (1 1 !s!) do echo,!Ln!
    
66.     echo,!LC!
    
67.     for /l %%i in (1 1 !s!) do echo,!Ln!
    
68.     echo,!E3:~0,-1!
    
69. 
    
70.   )
    
71.   pause & cls
    
72. )

复制代码

plp626

我是用C写的

1. ，#include <stdio.h>
   
2. #define  ABS(X)  ((X)>=0 ? (X) : (-(X)))
   
3. 
   
4. int main(int argc, char **argv)
   
5. {
   
6.         argc != 2 ? printf("Usage: %s", "Missing!"),exit(1) : 0;
   
7.         int c,n=0;
   
8.         while(c=*argv[1]++)
   
9.                 n = n * 10 + c - '0';
   
10. 
    
11.         int i, j, ii, jj, map[100]={'x','y','z'};
    
12. 
    
13.         for (i=3; i<n-1; i++)
    
14.                 map[i]='0';
    
15.         n>3 ? map[n-1]='1': 0;
    
16. 
    
17.         for (i=0; i<2*n-1; i++){
    
18.                 for (j=0; j<2*n-1; j++){
    
19.                         ii = ABS(n-i-1),jj = ABS(n-j-1);
    
20.                         printf("%c ",map[n-1-(ii>jj ? ii:jj)]);
    
21.                 }
    
22.                 printf("\n");
    
23.         }
    
24.        
    
25.         return 0;
    
26. }

复制代码