La Web de DIOH

Hace poco estuve trabajando con este arcaico lenguaje de programacion que sigue sin gustarme, estuve lidiando con una validacion de una variable  tipo numerico que hacia dejar de funcionar el programa, despues de dar muchas vueltas en internet casi nadie tiene un ejemplo claro de como hacer la validacion de que el valor ingresado sea una variable tipo numerico,  asi que les voy a poner el ejemplo sencillo y practico.

program validacion;
uses crt;
 
var
  tmpstr: string;
  numero, error:  integer;
 
begin
  clrscr;
  repeat
    writeln('Escriba un numero: ');
    readln(tmpstr);
    val(tmpstr, numero, error);
  until error=0 ;
  writeln('El numero ' ,numero, ' es un tipo numerico valido');
  readkey;
end.

Tags: pascal, Programacion, validacion