• 10 pasos para plantear una duda informática
• FAQ : Como hacer preguntas "inteligentes"

@echo off
title Resolucion de segundo grado
color 0B
cls
set/p a=Agregue el valor a "a"
pause
cls
set/p b=Agregue el valor a "b"
pause
cls
set/p c=agregue el valor a "c"
cls 
pause
set ric=4
set/a roc=%a%*%ric%
set/a ruc=%b%*%b%
set/a rac=%ruc%+%roc%
cls
rem **aqui empieza lo complicado porfavor checale bien morro!**
:ra2
 
 
call:ra2u %rac%
 
 
:ra2u
rem ** aqui es la parte de el calculo de la raiz**
cls
title Calculadora - Raizes cuadradas
setlocal enabledelayedexpansion
echo Raiz cuadrada
set count=0
set dend=%1
set num=%rac%
IF %rac% LEQ 0 (
CLS
echo SOLO NUMEROS MAYORES A 0
PAUSE > NUL
GOTO raizes
)
if %rac% GTR 46341 (
cls
echo el maximo numero que este batch le puede sacar raiz cuadrada a un numero es 46341
pause > nul
goto raizes
)
 
for /l %%a in (%rac%, -2, 1) do (
   set /a sqr=%%a*%%a
   if !sqr! leq %rac% (
      set digit=%%a.
     set root=%%a
      goto out2
   )
)
 
:out2
   call set /a count=%%count%%+1
   if %count% GTR 8 goto next2
   set /a rac=(%rac%-%sqr%)*100
   set /a div=%root%*2
   for /l %%i in (9,-1,0) do (
      set /a sqr=%div%%%i*%%i
      if !sqr! leq %rac% (
         set root=%root%%%i
         goto out2
      )
   )
 
:next2   
   set root=%root:~-10%
   if %rac% neq 0 set digit=%digit%%root%
   echo La raiz cuadrada de %num% es %digit%
rem ** aqui termina la parte de el calculo de raiz**
rem **aqui empieza la otra parte del programa la parte 7**
set/a rebe=%b%+%digit%
set rebeca=2
set/a teamo=%a%*%rebeca%
echo el primer resultado es %teamo%
pause
set/a popo=%b%-%digit%
set/a *****=%popo%/%rebeca%
echo el segundo resultado es %*****%
echo.
pause
echo el primer resultado es %teamo% y el segundo %*****%
echo.
pause
cls
echo este programa fue hecho por2 Ricardo_c para resolver ecuaciones de sendo grado
echo con la colavoracion del profe 
pause
cls
exit