Calculo do delta

[tadeu.henrique.da.costa]

Galera como faço para fazer o calculo do delta no delphi 7, de modo que ele exiba o valor  no edit?

 

Eu tentei fazer o código aqui mais não esta dando certo.

 

procedure TForm1.BtnCalculoClick(Sender: TObject);varb,a,c,process:real;beginb:= strtofloat(Edt_b.Text);a:= strtofloat(EdtValora.Text);c:= strtofloat(EdtValorC.Text);process := b^2-4*a*c;EdtResultado.text:=floattostr(process);end;

[New Nerd]

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Math;  //<< Acrescente Math ao Uses!type  TForm1 = class(TForm)    Button1: TButton;    edtResultado: TEdit;    Edtvalora: TEdit;    edtvalorc: TEdit;    Edt_b: TEdit;    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);varb,a,c,process:real;beginb:= strtofloat(Edt_b.Text);a:= strtofloat(EdtValora.Text);c:= strtofloat(EdtValorC.Text);process := Power(b,2)-4*a*c; //Use power(b,2) e não b^2EdtResultado.text:=floattostr(process);end;end.

Fiz umas mudanças no código que devem ser suficientes para você prosseguir.

 

Até +

 

Boa Sorte!

[tadeu.henrique.da.costa]

Obrigado amigo New Nerd deu certo o código

 

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Math;  //<< Acrescente Math ao Uses!type  TForm1 = class(TForm)    Button1: TButton;    edtResultado: TEdit;    Edtvalora: TEdit;    edtvalorc: TEdit;    Edt_b: TEdit;    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);varb,a,c,process:real;beginb:= strtofloat(Edt_b.Text);a:= strtofloat(EdtValora.Text);c:= strtofloat(EdtValorC.Text);process := Power(b,2)-4*a*c; //Use power(b,2) e não b^2EdtResultado.text:=floattostr(process);end;end.

Fiz umas mudanças no código que devem ser suficientes para você prosseguir.

 

Até +

 

Boa Sorte!

 

Obrigado caro amigo New nerd deu certo o código.