TyttoSoft

DICAS | SOFTWARE | PROGRAMAÇÃO | OPORTUNIDADE



Como obter raiz quadrada de um numero utilizando Função Sqrt.



  

O código é bem sim, vamos utilizar 

2 Edit e 1 Button

em nosso button

vamos dar um clique duplo ou 

no evento OnClick

vamos escrever o codigo:

edit2.Text:=FloatToStr(Sqrt(StrToFloat(Edit1.Text)));

O Edit2 recebe o resultado

como o texto do Edit2 é do tipo String

e a função Sqrt retorna um valor do tipo real

vamos converter de real para String FloatToStr() 

e como o Sqrt é do tipo real e nosso Edit1 é do tipo String

vamos converter de String para real StrToFloat() 

FloatToStr(Sqrt(StrToFloat(Edit1.Text)));

Pronto! 

Nossa Unit ficou conforme exemplo:

unit Unit1;


interface


uses

  Winapi.Windows, Winapi.Messages, System.SysUtils,

System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;


type

  TForm1 = class(TForm)

    Button1: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;


var

  Form1: TForm1;


implementation


{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);

begin

edit2.Text:=FloatToStr(Sqrt(StrToFloat(Edit1.Text)));

end;


end.

Bons estudos deixe suas dicas,
Sugestões e duvidas.





15/12/2018 12:36 Delphi 2839


loading...

Copyright © TyttoSoft 2018 | Desenvolvido por www.TyttoSoft.com.br