Algorítimo Pascal - Equação Quadrática
Crie um programa que resolva equações quadráticas e que tenha as seguintes funcionalidades: Verifique se a equação é quadrática (A<>0); Verifique se existe solução real (Δ>=0); Mostre a raiz (Δ=0) ou as raízes (Δ<>0); program RESPOSTA_1; {$APPTYPE CONSOLE} VAR A, B, C, X1, X2: REAL; DELTA: REAL; BEGIN WRITELN ('DIGITE A'); READLN (A); WRITELN ('DIGITE B'); READLN (B); WRITELN ('DIGITE C'); READLN (C); IF A <> 0 THEN BEGIN DELTA:= B * B - 4 * A * C; IF DELTA >=0 THEN BEGIN X1:=(- B + SQRT(DELTA)) / (2 * A); X2:=(- B - SQRT(DELTA)) / (2 * A); IF DELTA=0 THEN WRITELN('RAIZ:',X1:10:5) ELSE BEGIN WRITELN ('RAIZ',X1:10:5); WRITELN ('RAIZ',X2:10:5); END; END ELSE WRITELN('NAO TEM SOLUCAO REAL'); END ELSE WRITELN('NAO E QUADRATICA!'); READLN; END.