Algoritmo calcular as raizes

Prévia do material em texto

Algoritmo; equação (calcular as raízes da equação)
Var
 
x1, x2, delta, a, b, c: real;
Início
 Escrever ( “Entre com os valores dos coef. A, b e c” ) ;
 Leia ( a );
 Leia ( b );
 Leia ( c );
 Delta <--- b^2 - 4 *a*c;
 Se ( delta > 0 );
 Então
 Início
 X1 <-- ( -b * sqrt (delta)) / 2 * a ;
 X2 <-- ( -b * sqrt (delta)) / 2 * a;
 Escreva ( “ raiz 1 = “, x1, “ raiz 2=”, x2 );
 Fim
 Senão
 Escreva ( “ Não existe raízes reais ! “);
 Fim-se;
Fim.