RE:Crear una funcion potencia
Yo creo que debe haber en turbo pascal alguna function parecida a exp o ^ que lo haga auto-
mático. Aunque tomando la definición de potencia me parece chupado.
Elevar el numero numero al exponente exponente. Y mostrar el resultado resultado.
function(f_numero,f_exponente,f_resultado:integer);
begin
resultado:=1;
If f_exponente < 1 then
begin (* Si el exponente es negativo *)
f_exponente:=-f_exponente; (* Quizas sea mejor con una funcion que saque siempre el valor positivo, hay en tpascal seguro*)
For 1 to f_exponente do
begin
f_resultado=f_resultado*f_numero;
end;
f_resultado := 1 / f_resultado;
end; (* si el exponente es negativo *)
else
begin (* no es negativo*)
if f_exponente = 0 then f_resultado:=1 else
begin (* Es mayor que 1 *)
begin (* Si el exponente es positivo *)
f_exponente:=-f_exponente; (* Quizas sea mejor con una funcion que saque siempre el valor positivo, hay en tpascal seguro*)
For 1 to f_exponente do
begin
f_resultado=f_resultado*f_numero;
end;
f_resultado := 1 / f_resultado;
end; (* si el exponente es positivo *)
end; end; end; (* y si falta algun end lo pones tu *)
Espero haberte sido de ayuda. No he depurado el programa y así que igual
tiene muchos fallos, pero eso ya es fácil