home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TURBOTUT.ZIP / FINDCHRS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-08-16  |  1018 b   |  37 lines
  1. PROGRAM find_all_lower_case_characters;
  2.  
  3. CONST string_size = 30;
  4.  
  5. TYPE low_set = SET OF 'a'..'z';
  6.  
  7. VAR data_set    : low_set;
  8.     storage     : STRING[string_size];
  9.     index       : 1..string_size;
  10.     print_group : STRING[26];
  11.  
  12. BEGIN  (* main program *)
  13. data_set := [];
  14. print_group := '';
  15. storage := 'This is a SET test.';
  16.  
  17.   FOR index := 1 TO length(storage) DO
  18.   BEGIN
  19.     IF storage[index] IN ['a'..'z'] THEN
  20.     BEGIN
  21.       IF storage[index] IN data_set THEN
  22.         WRITELN(index:4,'   ',storage[index],
  23.                      ' is already in the set')
  24.       ELSE
  25.       BEGIN
  26.         data_set := data_set + [storage[index]];
  27.         print_group := print_group + storage[index];
  28.         WRITELN(index:4,'   ',storage[index],
  29.                      ' added to group, complete group = ',
  30.                      print_group);
  31.       END;
  32.     END
  33.     ELSE
  34.       WRITELN(index:4,'   ',storage[index],
  35.                     ' is not a lower case letter');
  36.   END;
  37. END.  (* of main program *)