En Pascal

Uso de Case of en Pascal

Veamos la sintaxis de CASE OF, que nos permite tomar diferentes acciones:

PROGRAM uso_case;
var
   nombre : string[40];
BEGIN
   writeln('Ingrese su nombre');
   readln(nombre);
   case nombre[1] of
     '0'..'9': writeln('Primer caracter de nombre es númerico');
     'a'..'z': writeln('Primer caracter en minúsculas');
     'A'..'Z': writeln('Primer caracter en mayúsculas');
   else 
  writeln('Primer caracter es desconocido');
   end; { case }
END.

Se toma desde el teclado un STRING y se guarda en la variable nombre, luego se evalua el contenido del primer carácter de la variable y según cual sea se tomaran diferentes acciones, aquí usamos los dos puntos (..) para que se rellenen los rangos, es decir '0'..'9' se expande a '0' '1' '2' '3' '4' '5' '6' '7' '8' '9', lo mismo ocurre con 'a'..'z'. .

La instrucción debajo de la palabra reservada else, sólo se ejecutará si el primer carácter no se encuentra en ninguno de los rangos anteriores.

Compilar

Para compilar haces lo siguiente:

fpc uso_case.pascal