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.
