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.

Resumo - A Quinta Disciplina - As Cinco Disciplinas

AS CINCO DISCIPLINAS

Domínio Pessoal: Focar seus esforços diretamente nos seus objetivos, praticando constantemente um aprofundamento de suas qualidades aprendendo com os próprios erros a desenvolver o aprendizado.

Modelos Mentais: Identificar qualidades e defeitos podem influenciar no desenvolvimento do aprendizado. Conhecendo-se melhor, o foco nos defeitos que podem ser melhorados torna-se cada vez mais integrante do seu interior.

Visão Partilhada: Transformar a visão individual em visão compartilhada. Aprendendo a pensar como Organização, quando o organismo (individual) passa a influir no todo.

Aprendendo em Equipe: Para Peter Senge, as equipes e não os indivíduos,
são a unidade fundamental de aprendizagem nas organizações modernas. Ou seja, a aplicação da visão compartilhada.

Pensamento Sistêmico: Trata de reconhecer que as empresas e os outros feitos humanos são sistemas, e como tal, seus componentes estão conectados por fios invisíveis de ações, que muitas vezes levam anos para manifestar seus efeitos umas sobre as outras. Considerada por Senger como a Quinta Disciplina, a visão do Pensamento Sistêmico é que pode ajudar-nos a reconhecer e aceitar a existência das outras Disciplinas.