Maestro html, creo que ya puede proseguir con la siguiente lección.
@echo off
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: ::
::Este proyecto está completamente hecho por Maestro Html y se distribuye con la siguiente licencia: ::
::[url]http://creativecommons.org/licenses/by-nc-sa/2.5/es/[/url] ::
::Cualquier incumplimiento de ese copyright contribuirá al uso ilegal de el programa entero o una porción del programa ::
:: ::
::[url]http://destellosolutions.com[/url] ::
::ELIMINAR ESTA CABECERA TAMBIÉN SE CONSIDERARÁ UN INCUMPLIMIENTO DEL COPYRIGHT ::
:: ::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::
title Calcular raices cuadradas
:init
cls
set /p i=Numero a calcular su raiz ^>^>
if %i% GTR 999999999999999999999999999999999999999999 (goto letra)
if not defined i (goto init)
goto calcular
:letra
cls
echo Pusiste una letra
pause
goto init
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:calcular
cls
call:potencias
echo La raiz de %i% es igual a %raiz%.
if %exact%==false (
echo Resto: %resto%
)
pause > nul
goto init
:potencias
set j=0
set y=0
set x=0
:_bp
set /a j=j+1
set /a y=j*j
if %y% LSS %i% (goto _pr)
if %y% GTR %i% (goto _a)
if %y%==%i% (goto _exact)
:_pr
set x=%y%
set x2=%j%
goto _bp
:_a
set raiz=%x2%
set exact=false
set /a resto1=%x2%*%x2%
set /a resto=i-resto1
goto:eof
:_exact
set raiz=%j%
set exact=true
goto:eof
Saludos.