Equaçao Do 2º Grau

[Edimar]

ai to precisando criar uma biblioteca para calcular uma equaçao do 2º grau.

se alguém tiver funçoes, algoritmos ou alguma ideia para me enviar....

Valeu!!!

[Arlon]

você quer criar componentes pra fazer isso? Bem, sem necessitar de componentes adicionais eu pensei no seguinte:

3 Edits e em cada um você informa um número, assim como na equação do segundo grau. Por exemplo:

4X2 + 2X - 2 (nem sei se dá pra tirar raízes disso), mas no primeiro edit seria informado A (4), no segundo edit B (2) e no terceiro edit C (2), o resto você já sabe né, Delta e Báskhara.

É uma coisa meio sem noção, mas foi o que veio à cabeça do Joselito aqui agora.

[Paulo Nobre]

Olá, Edimar.

O que voce está querendo dizer com biblioteca?

Paulo Nobre

[Edimar]

Olá Paulo,

seria uma nova Classe.

onde no meu form principal, ao clicar(por exemplo) em calcular ele chamaria esta classe pra dar a resoluçao da equaçao....

Orlan

o que eu pensei foi justamente isso, inclusive foi o que fiz. Dentro do evento do botao eu já crie toda a rotina pra calcular as raizes. Se quiser posso ate postar aqui depois a minha resoluçao.

So que o que eu precisa fazer agora é criar uma classe com a resoluçao pra depois criar um objeto no meu form principal chamando essa classe...

Valeu a todos pela atençao....

[Edimar]

desculpe-me, é Arlon

[Arlon]

So que o que eu precisa fazer agora é criar uma classe com a resoluçao pra depois criar um objeto no meu form principal chamando essa classe...

Mas porque você precisa fazer isso, se calculando da forma como eu falei você mesmo já havia feito e deu certo?

[Edimar]

Trabalho da Faculdade..... sab come é...

Eu consegui fazer, fiz das duas formas.

se quizer posso postar os codigos para você dar uma olhada...

[Arlon]

se quizer posso postar os codigos para você dar uma olhada...

Posta aí então.

[Edimar]

1º modo:

Aqui foi a minha biblioteca (Classe)

unit UFormula;

interface

Type

  Formula = Class

  Private

    TermoA, TermoB, TermoC: Real;

  Public

    Constructor CriaInstancia(x, y, z: Real);

    Function CalculaDelta: Real;

    Function FormulaX1: Real;

    Function FormulaX2: Real;

    Destructor Destrua;

  end;

implementation

  Constructor Formula.CriaInstancia(X, Y, Z: Real);

  Begin

    TermoA:=X;

    TermoB:=Y;

    TermoC:=Z;

  end;

  Function Formula.CalculaDelta: Real;

  Begin

    Result:= TermoB*TermoB - 4*TermoA*TermoC;

  end;

  Function Formula.FormulaX1: Real;

  Begin

    Result:=(-Termob - Sqrt(CalculaDelta))/(2*TermoA);

  End;

  Function Formula.FormulaX2: Real;

  Begin

    Result:=(-Termob + Sqrt(CalculaDelta))/(2*TermoA);

  End;

  Destructor Formula.Destrua;

  Begin

  end;

end.

Aqui o evento do Botao:

  If (EdtTermoA.text = '') or (EdtTermoB.text = '') or  (EdtTermoC.text = '') Then

    Begin

      Showmessage('Favor Informar os valores dos termos A, B e C da Equação.');

      EdtTermoA.setfocus;

    end

  else

    If EdtTermoA.text = '0' then

      Begin

        Showmessage('Termo A igual a "0", portanto não é uma equação do 2º grau');

        EdtTermoA.setfocus;

      end

    else

      Begin

        ObjFormula:= Formula.CriaInstancia(StrToFloat(EdtTermoA.text), StrToFloat(EdtTermoB.text),

                            StrToFloat(EdtTermoC.text));

        If (ObjFormula.CalculaDelta) < 0 then

          Showmessage(' Raiz Menor que zero.')

        else

          begin

            EdtRaiz01.text:=FloatToStr(ObjFormula.FormulaX1);

            EdtRaiz02.text:=FloatToStr(ObjFormula.FormulaX2);

          end;

      end;

end;

2º Modo - o algoritmo para calcular já no evento do botao:

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

If (EdtTermoA.text = '') or (EdtTermoB.text = '') or  (EdtTermoC.text = '') Then

  Begin

    Showmessage('Favor Informar os valores dos termos A, B e C da Equação.');

    EdtTermoA.setfocus;

  end

else

  Begin

    TermoA:= StrToFloat(EdtTermoA.text);

    TermoB:= StrToFloat(EdtTermoB.text);

    TermoC:= StrToFloat(EdtTermoC.text);

    Delta:= (TermoB*TermoB) - 4*TermoA*TermoC;

    If Delta < 0 then

      Showmessage('Delta Negativo. A Equação não tem Raizes.')

    else

      Begin

        X1:=(-TermoB - SQRT(Delta))/(2*TermoA);

        EdtRaiz01.text:=FloatToStr(X1);

        X2:=(-TermoB + SQRT(Delta))/(2*TermoA);

        EdtRaiz02.text:=FloatToStr(X2);

      end

  end;

end;

CERTO!!!!