Pascal/Turbo Pascal - raices

 
Vista:

raices

Publicado por Lucrecia (1 intervención) el 11/03/2003 00:47:14
Hola

Soy nueva en la programacion y me gustaria saber como se colocan raices con indice mayor que 2 (cubicas, quintuples,etc).

Saludos
Lucrecia
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:raices

Publicado por adrian15 (8 intervenciones) el 11/03/2003 12:16:39
Raiz n-esima de x:

x^(1/n)

^ en pascal no es una potencia de por sí. Así que tendrás que currarte la potencia enesima... um... de un numero real... demasiado complicado.

En resumen, no sé contestarte, pero por ahí van los tiros.

adrian15.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:raices

Publicado por elespa (40 intervenciones) el 11/03/2003 13:27:41
mas o menos ya t han dado la pista ahora solo tienes que currarte la potencia de esa x elevada a cualquier numero que aki tienes el codigo:

Function Potencia (Numero, Exponente: Real) : Real;
Begin
If Exponente = 0.0 Then Potencia:= 1.0 Else
If Numero = 0.0 Then Potencia:= 0.0 Else
If Abs(Exponente*Ln(Abs(Numero))) > 87.498 Then
Begin Writeln (\'Error fatal: Desbordamiento interno en la expresión.\'); Halt; End
Else
If Numero > 0.0 Then
Potencia := Exp(Exponente*Ln(Numero))
Else
If (Numero < 0.0) And (Frac(Exponente) = 0.0) Then
If Odd(Round(Exponente)) Then
Potencia:= -Potencia (-Numero, Exponente)
Else
Potencia := Potencia (-Numero, Exponente)
Else
Begin
Writeln (\'Error fatal: La expresión dada no es válida.\'); Halt;
End;
End; {Función}
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar