A equação do segundo grau

Program EquacaoSegundoGrau ;

var a, b, c : integer ;

delta, x1, x2 : real ;

Begin

writeln('Raizes da equacao ax^2 + bx + c = 0');

// Solicita os valores de a, b e c

write('Entre com o valor de a : ');

read( a );

write('Entre com o valor de b : ');

read( b );

write('Entre com o valor de c : ');

read( c );

// Calcula o valor de delta

delta := sqr(b) - 4*a*c ;

writeln('Delta = b^2 - 4ac') ;

writeln('O valor de delta = ', delta );

// Verifica se existem raizes reais

if( delta < 0 ) then writeln('Porque delta e menor do que zero, nao existem raizes reais.')

// Verifica se só tem uma raiz

else if( delta = 0 ) then

Begin

writeln('Para delta = 0 so existe uma raiz real, x1') ;

writeln('Nesse caso x1 = -b/2a ');

x1 := -b / (2*a) ;

writeln('O valor de x1 = ', x1 );

End

// Verifica se existem duas raizes

else if( delta > 0 ) then

Begin

writeln('Para delta > 0 existem duas raizes reais, x1 e x2') ;

writeln('Nesse caso x1 = (-b + raiz(delta)) / 2a ');

writeln('Nesse caso x1 = (-b - raiz(delta)) / 2a ');

x1 := (-b + sqrt(delta)) / (2*a) ;

x2 := (-b - sqrt(delta)) / (2*a) ;

writeln('O valor de x1 = ', x1 );

writeln('O valor de x2 = ', x2 );

End ;

End.

Taxa Comentário