Practica 4 Lorenzo Gómez Y Antonio Guadix

Practica 4 de T.I.C hecho por Lorenzo Y Antonio,

cls

Print "Ecuación de 2º Grado"

Print "ax^2+bx+c=0"

Input "pon el valorcito de a", a

Input "pon el valorcito de b", b

Input "pon el valorcito de c", c

d=b^2-4*a*c

If d>=0 then

gosub solucion

else

gosub sinsolucion

End if

solucion:

x1=(-b+SQR(d))/(2*a)

x2=(-b-sqr(d))/(2*a)

Print "x1,x2"

End

sinsolucion:

Cls

Este es una serie de codigos que son capaces de calcularte un 2 soluciones como si fuera una calculadora,es muy util para corregir los ejercicios de matematicas,pero siempre haciendolos uno primero un saludito LorenzoGomez69