@echo off
title Lista de Raices cuadradas que dan resultados enteros del 100 al 100.000.000 [black_hack]
color a
cls
if exist sqrt.txt del /q /f sqrt.txt
echo By Black_hack>>sqrt.txt
:X_x_sqrt_x_x
set sqrtfuncion=0
cls
echo.
echo                       ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo                       º          -Seleccione lo que desea hacer-          º
echo                       ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹
echo                       º 1. Calcular raices enteras del 100 al 100.000.000 º
echo                       º 2. Ayuda y documentacion                          º
echo                       º 3. Salir                                          º
echo                       ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
set /p sqrtfuncion= Que desea hacer?
if %sqrtfuncion%==1 goto sqrt
if %sqrtfuncion%==2 goto help_e_info
if %sqrtfuncion%==3 exit
if %sqrtfuncion%==0 goto X_x_sqrt_x_x
goto X_x_sqrt_x_x
:sqrt
::crea variables y comienza la parte que calcula
set sqrt=1
set sqrtnum=1
set diferencia=3
:funcion_principal_sqrt_
set rd20v3=Raiz de %sqrt%=%sqrtnum%
echo %rd20v3%>>sqrt.txt
set /a sqrt=%sqrt% +%diferencia%
set /a sqrtnum=%sqrtnum% +1
set /a diferencia=%diferencia% +2
find /i \"100000000\" sqrt.txt>nul&& if ERRORLEVEL==0 start sqrt.txt & exit
goto funcion_principal_sqrt_
::fin de lo importante

:help_e_info
echo.
echo  _________________
echo.
echo     Ayuda
echo  _________________
echo.
echo Este programa solamente calcula raices hasta el 100.000.000 cuya raiz es 10.000 pero tu puedes
echo quitar ese limite abriendo este bat con el Block de Notas [NOTEPAD] y borrarle la sgte. linea:
echo find /i \"100000000\" sqrt.txt && if ERRORLEVEL==0 start sqrt.txt & exit
echo Eso producira [obviamente] que no exista limite y pueda calcular infinitud de raices enteras
echo Este codigo se basa en la diferencia [resto] que hay en una raiz que da resultado entero de otra
echo [Yo descubri eso cuando hacia graficos de raices enteras].Todas las raices tienen esa propiedad ,
echo ya sean Cubicas,cuadradas,etc.La de la Raiz cuadrada es la mas simple ya que la diferencia entre
echo la de 0 y 1 es 1 ,1 y 4 es 3 ,la de 4 y 9 es 5,la de 9 y 16 es 7 ,la de 16 y 25 es 9.
echo Si se dan cuenta la diferencia entre esos valores aumenta 2 y sus raices en orden son 1,2,3,4 y 5
echo Por eso la variable sqrtnum aumenta 1 ,la variable diferencia aumenta 2 y la variable sqrt es 1 mas
echo la variable diferencia.
echo Al final del calculo se le abrira una ventana del Block de Notas con titulo sqrt
echo.
echo Espero que te sirva.
pause>nul
goto X_x_sqrt_x_x

@echo off
if NOT "%~1"=="vv" (cmd /v /c %~nx0 vv^&exit&goto:EOF)
set /P x=Valor:
FOR /L %%i IN (%x%,-2,1) DO (
set /A y=%x%/%%i
IF /I !y! EQU %%i (
echo %%i
goto:EOF
)
)