Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
crdepa

[Resolvido] Raiz n em delphi...

Recommended Posts

Olá Pessoal, estou precisando de uma ajuda... como faço para extrair a raiz de um número... mas não a raiz quadrada, pois sei que para isso posso usar a função SQR, eu quero uma raiz qualquer, por exemplo, a raiz trigésima de 1,05... eu sei que o resultado é 1,001628 porque fiz na calculadora mas não consigo obter este resultado por uma fórmula no Delphi.

Por favor, me ajudem !!!!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Esta função Power é para qual linguagem ? Eu preciso de uma solução para Delphi...

Obrigado !

Compartilhar este post


Link para o post
Compartilhar em outros sites
Guest Thiago

aí, uma dica,

Podemos resolver a raiz utilizando lógica, sem precisar de uma função específica. Isto vai valer pra qualquer linguagem.

Por exemplo a raiz quadrada de 9 é a mesma coisa que 9^1/2 ou seja, nove elevado a 1/2. Se voce fizer a potencia vai chegar a 3.

Para usar expoente n (2, 3, 4, 5 ... n) é a mesma coisa, ficaria assim:

X ^ 1/n

onde:

X -> é o numero que queremos saber a raiz enésima

^ -> potência (exemplo: x elevado a 2, x ao quadrado)

n -> especifica qual raiz... quadrada 2, trigésima 3, etc...

não sei se consegui passar direito a lógica disso, mas qualquer dúvida, só mandar um e-mail...

[]'s

 ;)

Compartilhar este post


Link para o post
Compartilhar em outros sites

tá ae como faz para calcular raíz quadrada em delphi 7:

Eu fiz assim, a variavel "d" recebe o número que deseja achar a raíz quadrada no edt1.text, a variavel "p" e "s" serão os números que serão multiplicados até o resultado da multiplicação dos 2 seja igual a variavel "d",

quando for igual, o edt2.text vai receber o número que foi usado para fazer as multiplicações o "p" ou o "s".

adicione um button e dê dois clikes nele e ponha este codigo.

var
d: Integer;
p: Integer;
s: Integer;
t: Integer;

begin
d:= StrToInt(edt1.text);
p:= 1;
s:= 1;
repeat
p:= p + 1;
S:= s + 1;
t:= p * s;
until
t = d;
edt2.Text := IntToStr(p);

Só que há um probleminha, se o número informado não houver raíz vai travar seu projeto :D

Editado por Mog.Lucas
Utilize tags [code] para separar texto de código. Cuidado ao postar em tópicos antigos. Obrigado!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×