Essa eu quero ver!

[No Suffer]

Kros Amigos,

Gostaria de saber como se calcula a raiz cubica em delphi.

Se alguem souber alguma funcao ou procedimento ....

Valeu Desde já.

No Suffer

[email protected]

[Visitante]

Ola no Suffer,

Bom, não sei lhe informar se tem alguma função especifica para isso, pois eu não sei quase nada de delphi, ou melhor não sei absolutamente nada... huahua

O que você poderia fazer é colocar o número com expoente 1/3. Veja o exemplo abaixo:

Queremos saber a raiz cúbica de 125:

125 ^ 1/3  = 5

[]s e boa sorte

[Acará]

Dá uma olhada neste exemplo

procedure TForm1.Button1Click(Sender: TObject);

var texto:String;

Num,Radical,Radicando:Real;

begin

texto:=Edit1.Text;//Recebe o conteúdo do edit

Radical:=2;//Recebe o valor do radical 2 P/Quadrada e 3 P/Cúbica

Radicando:=StrtoFloat(texto);//Recebe o valor de texto convertido para real

Num:=Exp((1/Radical)*LN(ABS(Radicando))); // Realiza o cálculo

Edit1.Text:=FloatToStr(Num); //Converte para String e Manda o resultado de volta para o Edit

end;

[sledgehammer]

Não precisa complicar. É só usar Power(125,1/3);