Здравствуйте. Помогите пожалуйста, вывести на печать все элементы множества А, которых нет во множестве B. С помощью модулей. (пусть заданы множества целых чисел)
вот мои заготовки. интересует, что надо написать для вывода(какая функция)
| Код |
{основная прорамма}
uses
op, obrabotka;
var
A: mn;
B: mn;
begin
sozdanie (A);
sozdanie (B);
print (B);
end.
|
| Код |
{модуль 1.}
unit op;
interface
type mn= set of byte;
implementation
end.
|
| Код |
{модуль 2. }
unit obrabotka;
interface
uses op;
procedure sozdanie1 (var AA:mn);
procedure sozdanie (var BB : mn);
procedure print (var BB : mn);
implementation
procedure sozdanie;
var i : byte;
AA: mn;
begin
AA:=[1..10];
BB:=[5..10];
for i:=1 to 10 do
if (AA>=BB)then {(что тут написать??)};
end;
procedure print;
var i : byte;
begin
for i:=1 to 10 do
if (i in BB) then write(i, ‘ ‘);
end;
end.
|
|