Calculando Raiz Quadrada

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (1)

Neste artigo vou mostrar como calcular a raiz quadrada no Delphi, criando uma function, e utilizando uma nativa do Delphi.

Olá pessoal hoje vou mostrar como calcular a raiz quadrada usando o Delphi, vamos ver como é simples.

Crie um projeto em Delphi e insira os seguintes campos abaixo
 ______________________
|Component |Nome       |
 ----------------------
|Edit      |edValor    |
|Button    |Calcular   |
 ----------------------

Sua tela deverá ter mais ou menos a seguinte aparência.



agora adiciona as seguinte funções abaixo :

function TForm1.RaizQ(eValorBase, eValorExpoente: Extended): Extended;
begin
   // Nao esqueça de adicionar a uses Math
   Result := Power(eValorBase, 1/eValorExpoente);
end;

function TForm1.RaizQuandrada(numero: real): real;
// Essa função é parecida com a sqrt do delphi..
var
  rProx, rVal, rRes :real;
begin
  rProx:=0.0000001;
  rVal:=1.0;

  repeat
     rRes := rVal;
     rVal := (rVal + (numero/rVal)) / 2;
  until
     (abs(rVal - rRes) <= rProx);

  Result := rVal;
end;


Obs: A primeira função estou utilizando uma função nativa do Delphi para fazer o calculo, já na segunda estou imitando a função SQRT que também é nativa do Delphi.

No evento OnClick do botão utiliza o seguinte código :

  if (Trim(edValor.Text) = '') then
    Exit;

  if ((Trim(edValor.Text) = '0')) then
  begin
    ShowMessage('Numero nao pode ser 0');
    edValor.SetFocus;
    Exit;
  end;

  ShowMessage(FloatToStr(RaizQ(StrToFloat(edValor.Text), 2)));
  ShowMessage(FloatToStr(RaizQuandrada(StrToFloat(edValor.Text))));


Feito isso está pronto o nosso projeto, até a próxima, obrigado pela atenção.

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?