fun��es mat�maticas

Question

ol� pessoal tudo beleza !!  ae  !Bem eu queria saber como fazer uma equa��o do segundo  grau no delphi, eu at� vi em algum site mas n�a lembro mas, e eu queria uma ajuda de vcs ! Ah aproveitando aonde...

Marcelo Saviski · Answer

Para usar algumas fun��es matem�ticas, declare no [b:7da60fcbf5]uses[/b:7da60fcbf5] a unit[color=blue:7da60fcbf5]Math[/color:7da60fcbf5]�...

Cebikyn · Answer

Em //delphi-jedi.org/ tem diversas fun��es matem�ticas, de todo o tipo. Aqui no f�rum tamb�m tem algums t�picos com fun��es matem�ticas, tem at� um c�digo para c�lculo de integrais em algum lugar.E abra a unit Math, indicada pelo Marcelo e vc ver� as fun��es matem�ticas que v�m com o Delphi.---------------------------------------------------O que exatamente vc quer fazer com a equa��o  de segundo grau? Resolver, mostrar o gr�fico ou simplesmente calcular valores de y em fun��o de x? Vc quer usar apenas uma equa��o ou quer que o usu�rio digite-a?---------------------------------------------------Se tiver alguma fun��o que vc n�o achou nem na unit Math, nem no site que eu indiquei, nem no f�rum, deixe uma msg....

Raizen · Answer

Marcelo e cebikyn vlw pelo toke, eu consegui o que eu pretendia,ah cebikyn eu quero apenas calcular y em fun�ao de x, e quero q o usuario digite os valores, Vlw pela aten��o !!!...

Cebikyn · Answer

Como vc j� conseguiu o que precisava, vou por o c�digo aqui caso mais algu�m queira:

Y em fun��o de X:

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c,y,x: Extended;
  // y = a*x^2 + b*x + c
begin
  a:=StrToFloat(edtA.Text);
  b:=StrToFloat(edtB.Text);
  c:=StrToFloat(edtC.Text);
  x:=strToFloat(edtX.text);
  edtY.Text:=FloatToStr(a*Power(x,2)+b*x+c);
end;

Resolver a equa��o (achar x para que y seja 0):

procedure TForm1.Button2Click(Sender: TObject);
var
  a,b,c,x1,x2: Extended;
  // a*x^2 + b*x + c = 0
  // x1 = [-b + &8730;(b^2-4*a*c)] / 2
  // x2 = [+b + &8730;(b^2-4*a*c)] / 2
begin
  a:=StrToFloat(edtA.Text);
  b:=StrToFloat(edtB.Text);
  c:=StrToFloat(edtC.Text);
  edtX1.Text:=FloatToStr((-b+sqr(Power(b,2)-4*a*c))/(2*a));
  edtX2.Text:=FloatToStr((-b-sqr(Power(b,2)-4*a*c))/(2*a));
end;

Marcelo Saviski · Answer

Estava �fu�ando� por ai, e acabei descobrindo que no pr�prio site da Clube Delphi tem uma mat�ria muito boa sobre fun��es matem�ticas no Delphi,
o link � esse: http://www.clubedelphi.com.br/artigos/fmatematic.html

flw

F�rum fun��es mat�maticas #182416