Suscripción al boletín mensual de elhacker.net
Autor
en una cadena yo tengo 4e^5
el numero puede cambiar el del 5 en este caso...
lo que yo quiero es arrojar el resultado de esta manera 4x10^5 pero no quiero escribirlo... si no que quiero que el mismo pascal me lo lea como ese tipo de funcion como le podria a hacer
....y que elevado a la 5. se pueda cambiar... y que siga aceptandolo :S y me regrese el resultado en flotante.Código
function CientoFloat(s:string): real;
var
v: real;
i: integer;
d: integer;
Numero: integer;
Num1: integer;
c: integer;
Extra: integer;
begin
v:=0; d:=0; c:=1; Extra:=0;
while length(s) in ['0'..'9'] and c<2 do
begin
for i:=1 to length (s) do
begin
if s[i] in ['0'..'9'] then
d:= ord(s[i])-48;
end;
Num1:=d;
v:=exp( Num1 * ln( Extra ) );
c:=c+1;
Extra:=Num1;
end;
CientoFloat := v;
end;
Saludos he creado esta funcion para eso intentando dividir... mi cadena para poder identificar el numero de la izquierda en mi ejemplo el 4.... y luego dividirlo y usar el numero de la derecha en mi caso el 5...
pero no me sale correctamente... :/
alguien podria ayudarme :/ ¿?
En línea
