Conjuntos

Sintaxe:
Type
<identificador>= set of <tipo>;
Operações sobre conjuntos:

A+B União entre
conjuntos
A*B Intersecção
de conjuntos
A-B Diferença
de conjuntos
A<=B Testa se A está
no conjunto B
A<>B Testa a desigualdade
entre conjuntos
1 in A Testa a presença de um
elemento no conjunto A


Exemplo: Programa para testar se uma letra é vogal ou consoante:


program testa_letra;
type
letras = set of 'a'..'z';
var
vogais:letras;
letra:char;
begin
vogais:=['a','e','i','o','u'];
writeln('Digite uma letra');
readln(letra);
if letra in vogais
then writeln('A letra ',letra,' eh uma vogal')
else writeln('A letra ',letra,' eh uma consoante');
end.