Algoritmo para resolver ax²+bx+c=0
enimarix
Mensajes publicados
48
Fecha de registro
Estado
Miembro
Última intervención
-
Usuario anónimo -
Usuario anónimo -
Hola,
Nuestro profesor nos ha dado un trabajo para hacer en casa, por eso les envío mi algoritmo para que alguien lo revise por si tengo algún error.
¡Muchas gracias!
algoritmo resolver ax²+bx+c=0
variables a,b,c,x,Δ,x1,x2 : Entero
Comienzo
Escribir ("para resolver la ecuación ax²+bx+c, por favor ingrese a")
Leer (a)
Escribir ("ingresar b")
Leer (b)
Escribir ("ingresar c")
Leer (c)
si (a=0) entonces
x recibe -a/b
Escribir ("X" es el resultado de la ecuación")
sino
Δ recibe b*b-4*a*c
Fin_si
si (Δ=0) entonces
x recibe -b/2a
Escribir ("X" es el resultado de la ecuación")
sino
si (Δ<0) entonces
Escribir ("La ecuación no se puede resolver")
sino
si (Δ>0) entonces
x1 recibe (-b+√Δ)/2a
x2 recibe (-b-√Δ)/2a
Escribir ("el resultado de la ecuación es x1=",x1,"x2=",x2)
Fin_si
Fin
Configuración: Windows / Chrome 62.0.3202.62
Nuestro profesor nos ha dado un trabajo para hacer en casa, por eso les envío mi algoritmo para que alguien lo revise por si tengo algún error.
¡Muchas gracias!
algoritmo resolver ax²+bx+c=0
variables a,b,c,x,Δ,x1,x2 : Entero
Comienzo
Escribir ("para resolver la ecuación ax²+bx+c, por favor ingrese a")
Leer (a)
Escribir ("ingresar b")
Leer (b)
Escribir ("ingresar c")
Leer (c)
si (a=0) entonces
x recibe -a/b
Escribir ("X" es el resultado de la ecuación")
sino
Δ recibe b*b-4*a*c
Fin_si
si (Δ=0) entonces
x recibe -b/2a
Escribir ("X" es el resultado de la ecuación")
sino
si (Δ<0) entonces
Escribir ("La ecuación no se puede resolver")
sino
si (Δ>0) entonces
x1 recibe (-b+√Δ)/2a
x2 recibe (-b-√Δ)/2a
Escribir ("el resultado de la ecuación es x1=",x1,"x2=",x2)
Fin_si
Fin
Configuración: Windows / Chrome 62.0.3202.62