Песни о Паскале

end;
      {----- Программа для проверки процедуры ввода -----}
var S1 : TSet;       F, D: text;
begin
      Assign(F, ''); Rewrite(F); { вывод на экран }
      Assign(D, ''); Reset(D); { ввод с клавиатуры }
      S1:= [];       { перед вводом опустошаем множество }
      ReadSet(D, S1);       { вводим множество из файла }
      WriteSet(F, S1); Readln; { распечатаем для проверки }
      Close(F); Close(D);
end.

Полагаю, что комментарии поясняют все. Обязательно проверьте работу этой программы. Учтите, что вводить данные вы будете с клавиатуры: напечатайте в одной строке несколько чисел, разделяя их пробелами, а затем нажмите клавишу Enter.

Директорская задача, первый вариант

Освоив ввод и вывод множеств, мы вплотную подошли к полному решению директорской задачи. Напомню, что суть решения заключается всего в одном операторе.

      R:= [1..250] – (S1 + S2 + S3);

Теперь добавим ввод и вывод множеств. Чтобы не занимать место повторами показанных ранее процедур, я представлю решение в целом.

{ P_37_3 – решение директорской задачи, вариант 1 }
const CMax = 20;       { мощность множества, реально 250 }
type TSet = set of 1..CMax; { объявление типа «множество» }
procedure WriteSet(var aFile: text; const aSet : TSet);
{ взять из P_37_2 }
procedure ReadSet(var aFile: text; var aSet : TSet);
{ взять из P_37_2 }
var R, S1, S2, S3 : TSet;
      FileIn, FileOut: text;
begin {----- Главная программа -----}
      { Открытие входного файла }
      Assign(FileIn, 'P_37_3.in'); Reset(FileIn);
      { Создание выходного файла }
      Assign(FileOut, 'P_37_3.out'); Rewrite(FileOut);
      { Ввод множеств из входного файла }
      S1:=[]; ReadSet(FileIn, S1);
      S2:=[]; ReadSet(FileIn, S2);
      S3:=[]; ReadSet(FileIn, S3);
      R:= [1..CMax] – (S1+S2+S3); { Решение }
      WriteSet(FileOut, R);       { Вывод решения в выходной файл }
      Close(FileIn); Close(FileOut);