Algorítimo Pascal - Equação Quadrática



Crie um programa que resolva equações quadráticas e que tenha as seguintes funcionalidades:
  1. Verifique se a equação é quadrática (A<>0);
  2. Verifique se existe solução real (Δ>=0);
  3. 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.

Nenhum comentário:

Postar um comentário

Dúvidas? Sugestões? Fale com o Professor Carlão!

Leia também...

"Mais um dia se passou e não usei isso pra nada". Será mesmo!?

A imagem abaixo vem circulando nas redes sociais com a [despretensiosa] conclusão de que vivemos sem a necessidade da fórmula que calcula o...

Cadastro

Cadastre-se para receber postagens atualizadas:

Digite seu Email

EnviarFeedBurner