Pascal/Turbo Pascal - funcion exponente hecho en c para pascal

 
Vista:

funcion exponente hecho en c para pascal

Publicado por carlos eduardo orrego (3 intervenciones) el 31/10/2009 04:58:59
bueno he tratado de hacer una funcion para exponentes de cualquier tipo inckuso negativos.

la funcion en c ha sido grabado como expone.c y compilada para crear el archivo expone.obj.
a continuacion el cidgo en c:

#include <math.h>
int pascal exponente(int n,int e)
{
return n^e;
}

A continuacion el codigo en pascal que llama a esta funcion.

program ejemplo;
uses crt;
{$f-}
function exponente(n,e:integer):integer;external;
{$L c:\expone.obj}
var x,z,y:integer;
begin
clrscr;
write('ingrese el numero: ');readln(x);
write('ingrese el exponente: ');readln(y);
z:=exponente(x,y);
writeln('resultado =',z);
readln;
end.

* al compilar no da error ni al ejecutar el programa ejemplo.pas
pero da resultados extraños.
hay alguna otra forma, quizas hay que usar pow(x,y),. etc.
la funcion ha sido creada en c y llamada en pascal, habria una forma de crear una funcion en c++ para llamarla de pascal, y cualquier otra forma?
al usar pow al llamr de pascal no reconoce el pow.
gracias por su ayuda de antemano.
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