raizes equação de segundo grau final

Prévia do material em texto

programa
{
	inclua biblioteca Matematica --> mat
	
	
	funcao inicio()
	{
	
	real A, B, B2, C, X1, X2, X, delta, raiz
 escreva ("digite o valor de A:")
 leia(A)
	escreva ("digite o valor de B:")
	leia(B)
	escreva ("digite o valor de C:")
	leia(C)
	delta=(mat.potencia(B,2.0))-4*A*C
		
		se(delta>0)
		{
			X1=(-B+(mat.raiz(delta,2.0)))/2*A
			X2=(-B-(mat.raiz(delta,2.0)))/2*A
			escreva("a equação possui duas raizes reais, X1=",X1)
			escreva(" e X2=",X2)
		}
		
		se(delta<0)
		{
			
			escreva ("a equação não possui raiz real")
		}
		se(delta==0)
		{
			X=(-B+(mat.raiz(delta,2.0)))/2*A
	 		
			escreva("a equação possui uma unica raiz real:",X)
		}
	}
}
		
/* $$$ Portugol Studio $$$ 
 * 
 * Esta seção do arquivo guarda informações do Portugol Studio.
 * Você pode apagá-la se estiver utilizando outro editor.
 * 
 * @POSICAO-CURSOR = 670; 
 * @PONTOS-DE-PARADA = ;
 * @SIMBOLOS-INSPECIONADOS = ;
 * @FILTRO-ARVORE-TIPOS-DE-DADO = inteiro, real, logico, cadeia, caracter, vazio;
 * @FILTRO-ARVORE-TIPOS-DE-SIMBOLO = variavel, vetor, matriz, funcao;
 */