TestSuite/CompilationSamples/Sets.pas - master - n-dimens/pascalabcnet

TestSuite/CompilationSamples/Sets.pas

15 строк702 B

Artem Pelenitsyn

change encoding for all *.pas and *.cs files: cp1251 -> utf-8

28 дек 2015, 14:25

28 дек 2015, 14:2549378a6

// Работа с множествами
// Базовый тип для множества может быть произвольным
var 
  s1: set of string := ['Иванов','Попов','Сидорова','Петров'];
  s2: set of string := ['Козлов','Петров','Иванов'];
begin
  writeln('Множество s1: ',s1);
  writeln('Множество s2: ',s2);
  writeln('Объединение множеств s1 и s2: ',s1+s2);
  writeln('Пересечение множеств s1 и s2: ',s1*s2);
  writeln('Разность множеств s1 и s2: ',s1-s2);
  Include(s1,'Умнов');
  Exclude(s1,'Иванов');
  writeln('Множество s1: ',s1);
end.