
Como crear un conjunto pascal con estos caracteres ??
Publicado por Max (4 intervenciones) el 09/09/2015 17:24:22
Necesito crear un conjunto con todas las letras (de la a a la z), con numeros (del 0 al 1) y con los siguientes caracteres:
) ( : ; , .
Como se hace, yo tengo que trabajar con un texto y luego ir preguntando caracter por caracter si pertenece o no a ese conjunto.
Lo intente pero no me sale
PROGRAM eaf;
CONST
fichero='C:\Users\alumno\Desktop\TEXTO.TXT';
TYPE
letr=('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z');
num=(,'0','1','2','3','4','5','6','7','8','9',);
sig=(' ','(',')',',','.',';',':');
VAR
valido:(letr,num,sig)
archivo: text;
caracter: char;
band:boolean;
Gracias
) ( : ; , .
Como se hace, yo tengo que trabajar con un texto y luego ir preguntando caracter por caracter si pertenece o no a ese conjunto.
Lo intente pero no me sale
PROGRAM eaf;
CONST
fichero='C:\Users\alumno\Desktop\TEXTO.TXT';
TYPE
letr=('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z');
num=(,'0','1','2','3','4','5','6','7','8','9',);
sig=(' ','(',')',',','.',';',':');
VAR
valido:(letr,num,sig)
archivo: text;
caracter: char;
band:boolean;
Gracias
Valora esta pregunta


0