Pascal/Turbo Pascal - Como crear un conjunto pascal con estos caracteres ??

   
Vista:
Imágen de perfil de Max

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Como crear un conjunto pascal con estos caracteres ??

Publicado por David (139 intervenciones) el 09/09/2015 18:29:51
Te dejo un pequeño ejemplo con una frase leída por teclado. No creo que te cueste mucho adaptarlo para obtener los datos de un archivo de texto:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
const
  num = ['1','2','3','4','5','6','7','8','9','0'];
  let = ['a'..'z'];
  car = [' ','(',')','.',';',':'];
 
var
  numeros:integer;
  contletras : integer;
  especiales:integer;
  cad:string;
  i : integer;
 
begin
  writeln('Introduzca una cadena: ');
  readln(cad);
  for i :=1 to length(cad) do
     begin
       if cad[i] in num then
         inc(numeros)
       else
         if cad[i] in let then
           inc(contletras)
         else
           if cad[i] in car then
           inc(especiales);
     end;
  Writeln('La frase tiene: ',contletras,' letras',', ',numeros,' n£meros y ',especiales, ' caracteres especiales');
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
Imágen de perfil de Max

Como crear un conjunto pascal con estos caracteres ??

Publicado por Max (4 intervenciones) el 09/09/2015 19:40:51
graciaas !
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar