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.

17/04/2026 05:04 Delphi 4649
Topo