Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

Pascal/Turbo Pascal - funcion val

Vista:
Me gusta: Está pregunta es útil y esta clara
0
No me gusta: Está pregunta no esta clara o no es útil
 
Asunto:

funcion val

Autor:pablo (18 intervenciones)
Fecha:18/01/2003 17:34:20
Mirad estoy utilizando la funcion "val" en un programa que me compila en Turbo Pascal, pero no en GNU debido a esta razón. Como me podría construir yo mismo es funcion??
BEGIN
assign (Ffich_inicial, 'C:\entrada.txt');
reset(Ffich_inicial);
readln(Ffich_inicial,strNumero);
Assign(Ffich_salida, 'salida.txt'); (* fichero de salida *)
rewrite(Ffich_salida);
writeln(Ffich_salida, strNumero);

LeerEntero (Ffich_inicial, intNumero, blnERR);

Val(StrNumero, intNumero, bytCodigo); (* siendo intNumero de tipo longint y bytCodigo de tipo integer *)

END;
Responder
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:funcion val

Autor:César Augusto Navarro Gómez (182 intervenciones)
Fecha:27/01/2003 17:30:11
Es fácil, lo que debes de hacer es verificar primero que todos los elementos de la cadena sean números, en caso de que exista uno que no lo sea regresas de la función y almacenas en bytCodigo el número de posicion donde hay un caracter no numérico. Para hacer la conversiónsi tienes la cadena cad='5624', la posición cad[4] la multiplicas por 1, la cad[3] por 10, la cad[2] por 100 y así hasta llegar a cero.
Suerte
Comentar