Procedimiento Val en Pascal

Este procedimiento convierte una cadena en variable numérica. Para que esta conversión sea efectiva, el contenido de la cadena de caracteres debe corresponderse a las reglas de escritura de números: no debe de existir ningún blanco en la primera o última posición.

Formato:

S cadena Variable variable de tipo entero o real código si la conversión ha podido ser efectuada toma el valor cero; en caso contrario contiene la primera posición del primer carácter de la cadena S que impide la conversión y en ese caso variable no queda definida

Ejemplo:

Var  cad        :  string[10];
  num1,codigo:  integer;
  num2       :  real;
begin cad:='22.25';
 Val(cad,num2,codigo);
 if codigo=0 then WriteLn(num2:2:2)          {Produce 22.25} else WriteLn(codigo);
 cad:='12x45';
 Val(cad,num1,codigo);
 if codigo=0 then  WriteLn(num1)        
 else WriteLn(codigo)
   {Produce 3}end.