Resolver Equação de Segundo Grau

[tekitos123 3]

Esse programa calcula as raízes de uma equação de segundo grau utilizando a formula de baskara.

 

Vamos lá

Insira 5 edits ao seu form , e 1 um botão.

 

no on click desse botão insira o codigo :

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

edit1 = Valor de A

edit2 = Valor de B

edit3 = Valor de C

edit4 = recebe o vlaor de x1

edit5 = recebe o valor de x2

[bidoow 0]

qui massa manu, eu vo formata o pc aaqui e denoite testa :D

 

vlww

[matheusguerra 3]

o codigo possoi erros:

 

o codigo serto ficaria assim:

var

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

 

begin

a := StrToFloat(Edit1.Text);

b := StrToFloat(Edit2.Text);

c := StrToFloat(Edit3.Text);

 

delta := b*b-4*a*c;

 

if (delta < 0) then begin

ShowMessage('Delta Negativo Sem Raízes');

exit;

end;

 

x1 := (-b+sqrt(delta))/2*a;

x2 := (-b-sqrt(delta))/2*a;

Edit4.Text := FloatToStr(x1);

Edit5.Text := FloatToStr(x2);

 

end;

 

:D ^^

[tekitos123 3]

o codigo possoi erros:

 

o codigo serto ficaria assim:

 

:D ^^

 

opa vlw , já esta corrigido

[bidoow 0]

vamo so tenho a agradecer os 2, meu professor de matematica passo umas equação lá, era assim:

 

x² - 14x + 48 = 0

 

deu x¹ = 8 e x² = 6

 

no programa so botei os valores e deu mo facil muito obrigado mesmo

 

[DragonBoss 8]

legal mesmo cara, mto bom ^^

recebeu tanks xD

 

flw, abraços

[kameo2008 0]

Como Eu Uso coloca a onde o x² - 14x + 48 = 0 ???

[bidoow 0]

x² - 14x + 48 = 0 é a equação a ser resolvida.

 

no Edit destinado para o A coloque o valor de x², como não tem, coloque 1.

no Edit destinado para o B coloque o valor de 14, pois é o B.

no Edit destinado para o C coloque 48, que é o C.

 

ele calcula o X¹ e X² automaticamente,

 

abraços