asd821089612

第一到第六题。

@echo off
set /p no=请输入想要操作的数  (1-9) :
set /a no1=%no%*%no%
set /a no2=%no%*%no%*%no%
for /l %%i in (1 1 %no%) do (set /a no3+=%%i)
set no4=1
for /l %%i in (1 1 %no%) do (set /a no4*=%%i)
for /l %%i in (1 1 %no%) do (set /a no5+=%%i*%%i)
for /l %%i in (1 1 %no%) do (set /a no6+=%%i*%%i*%%i)
echo %no%的平方为：%no1%
echo %no%的立方为：%no2%
echo 1到%no%的和为：%no3%
echo 1到%no%的积为：%no4%
echo 1到%no%的平方和为：%no5%
echo 1到%no%的立方和为：%no6%
pause>nul
复制代码

437153

求点评~~~
1-6：

@echo off&setlocal enabledelayedexpansion
set /p "p=请输入要操作的数（1-9）："
set j=1
for /l %%a in (1,1,%p%) do (
	set /a p2=%%a*%%a
	set /a p3=%%a*%%a*%%a
	set /a h=!h!+%%a
	set /a j=%%a*!j!
	set /a ph=!ph!+!p2!
	set /a lh=!lh!+!p3!
)
echo %p%的平方：%p2%
echo %p%的立方：%p3%
echo 从1到%p%的和：%h%
echo 从1到%p%的积：%j%
echo 从1到%p%的平方和：%ph%
echo 从1到%p%的立方和：%lh%
复制代码

数列：

@echo off&setlocal enabledelayedexpansion
set /p "p=请输入要操作的数（1-9）："
for /l %%a in (1,1,%p%) do (
	for /l %%i in (1,1,%p%) do (
		set /a n+=1
		set /p=!n!	<nul
	)
	echo;
)
复制代码

螺纹:

@echo off&setlocal enabledelayedexpansion
set /p p=输入：
set /a x=1,num=%p%,sum=%p%*%p%
set yuns=--
for /l %%y in (1,1,%num%) do (set/a n+=1,y+=1&set _%x%_%%y=!n!)
:lp
set /a num-=1
for /l %%a in (1,1,%num%) do (set/a n+=1,x=!x!%yuns%1&set _!x!_!y!=!n!)
set yuns=-%yuns%
for /l %%a in (1,1,%num%) do (set/a n+=1,y=!y!%yuns%1,ys+=1&set _!x!_!y!=!n!)
if not %n% equ %sum% goto :lp
for /l %%a in (1,1,%p%) do (
	for /l %%b in (1,1,%p%) do (
		set /p=!_%%a_%%b!	<nul
	)
	echo;
)
复制代码

lengmoke

@echo off
setlocal EnableDelayedExpansion
set /a length=20 & set /a width=23
set /a max=length*width
call :len %max% maxlength
set /a i=1 & set /a j=1 & set /a idelta=0 & set /a jdelta=1 & set /a imax=length & set /a jmax=width & set /a count=0 & set /a imin=2 & set /a jmin=1
:setvalue
    set /a count+=1
    call :loop temp %count% %maxlength%
    set matrix[%i%][%j%]=%temp%
    if "%idelta%,%jdelta%"=="0,1" ( if %j%==%jmax% ( set /a idelta=1 & set /a jdelta=0 & set /a jmax-=1 ))
    if "%idelta%,%jdelta%"=="1,0" ( if %i%==%imax% ( set /a idelta=0 & set /a jdelta=-1 & set /a imax-=1))
    if "%idelta%,%jdelta%"=="0,-1" ( if %j%==%jmin% ( set /a idelta=-1 & set /a jdelta=0 & set /a jmin+=1))
    if "%idelta%,%jdelta%"=="-1,0" ( if %i%==%imin% ( set /a idelta=0 & set /a jdelta=1 & set /a imin+=1))
    set /a i+=idelta & set /a j+=jdelta
    if %count% lss %max% ( 
        goto:setvalue
    )
for /l %%i in (1,1,%length%) do (
    set str=!matrix[%%i][1]!
    for /l %%j in (2,1,%width%) do ( set "str=!str! !matrix[%%i][%%j]!" )
    echo !str!
)
exit

:loop
   set number=         %2
   set %1=!number:~-%3!
goto :eof

:len
   set Tempstrs=%~1 & Set Tempnum=0
   :下一位
      set Tempstr=!Tempstrs:~%Tempnum%,1!
      if defined Tempstr ( set /a Tempnum+=1 & goto :下一位 )
      set /a %~2=%Tempnum%-1
goto :eof
复制代码