Question

How to use a set of characters in Pascal

Answer 1

program Example;
     
type
  charSet = set of Char;
var
  st: charSet;
  ch: Char;

  function printSet(st: charSet): integer;
  var
  ch: Char;

  begin
    for ch in st do
    begin
        write(ch + ' ');
    end;
    printSet := 0;
  end;

begin
  st := ['a', 'b', 'c', 'd', 'e'];

  printSet(st);
end.




(*
run:

a b c d e 

*)

 

70+ SQL courses for beginners and professionals