1. Crie um programa em PASCAL para resolver uma equação do segundo grau.

// Josivan Sousa

// www.facebook.com/josivan.sousabj

Program Equacao;

USES CRT;

var a, b, c, delta, x1, x2: real;

Begin

Writeln ('Digite o valor de A');

Readln (A);

Writeln ('Digite o valor de B');

Readln (B);

Writeln('Digite o valor de C');

Readln (C);

Delta:= ((B*B) - 4*A*C);

Writeln ('Delta e ', delta:5:2);

If (Delta<0) then

Writeln ('Nao existem raizes reais')

Else

begin

X1:=(-B + sqrt(Delta))/(2*A);

X2:=(-B - sqrt(Delta))/(2*A);

Writeln('x1=',X1:5:2);

Writeln('x2=',X2:5:2);

end;

readkey; // Espera o usuário aperta alguma tecla para finalizar o aplicativo

end.

Comentários