Паскаль АВС множества., Выполнить операции объединения, разности, пересечения с разными типами Опции

[swe-4a]

Не могу составить программу вариантов ни каких!!! Все что пробовала написать компилирует с кучей ошибок о несовместимости типов. Помогите составить программу, пожайлуста!
Множества букв заполнены следующим образом: множество 1-цифрами; множество 2 – знаками препинания; множество D3 – буквами. Выполнить операции объединения, разности, пересечения.

Сообщение отредактировано: swe-4a - 8.02.2011 21:18

[swe-4a]

program prim;

type d=set of char;
var
dr,d1, d2, d3:d;
Begin
d:=[ ];// первая ошибка здесь, пишет "ожидалась переменная"
d1 := ['0' .. '9'];
d2 := ['.', ',', '''', '"', ';'];
d3 := ['A' .. 'Z', 'a' .. 'z'];
dr:=d1+d2;
dr:=dr+d3;
dr:=dr-d2;
dr:=dr*d1;
Writeln ('obedinenie');
readln(dr);
Writeln ('raznost');
readln(dr);
Writeln ('peresechenie');
readln(dr);
end.



Вывести? По одному элементу (от char(0) до char (255)) проверяй на вхождение, сразу множества не выводятся... А как выводятся? в единственном примере учебного материала вообще вывод не показан((( может есть где в инете рассмотренный подобный пример. Но я не нашла.


Сообщение отредактировано: swe-4a - 8.02.2011 20:32