задача на множества

[любаша]

нужно решить задачу,в которой нужно реализовать ввод двух множеств и найти их пересечение,обьединение,разность и т.д. множества состоят из 10 элементов,в диапозоне от 1 до 100 и вводятся с клавиатуры.никак не могу сделать функцию пересечения(((как оно происходит понимаю,но в программу никак не могу записать((((помогите пожалуйста....


ввод я делала вот так:

uses
  SysUtils;

var A: array[1..100] of integer;
    B: array[1..100] of integer;
    C: array[1..100] of integer;
  x,i,g,j,y,k:integer;

begin
 write('vvedite kol-vo eelmentov: ');
readln(g);


     write('vvedite mnog A:');
x:=1;
for y:=1 to g do
begin
read(i);
if (i>=1) and (i<=100)   then
   begin
    A[x]:=i;
    x:=x+1;
    writeln(i);
   end
 else
 writeln('oshibka');
end;


   write('vvedite mnog B:');
x:=1;
for y:=1 to g do
begin
read(j);
if (j>=1) and (j<=100)   then
   begin
    B[x]:=j;
    x:=x+1;
    writeln(j);
   end
 else
 writeln('oshibka');
      end;

[XeruH]

Хм... Вообщето множества это set of.

A, B, C: set of Byte;
//пересечение множеств
C := A*B;
//объединение множеств
C := A+B;
//разность множеств
C := A-B;

Или я тебя не правильно понял?

[любаша]

нам сказали,что можно и через массив элементы вводить-фактически это тоже множество. я никак не могу ввести правильно условие,
фактически смысл в том,что если элемент первого равен элементу вторго множества,то мы его кладем во множество,которое и будет их пересечением...или я не правильно думаю(((((достала эта задача уже..

[vlad_light]

Объединение:
1. Создаём массив С, размерностью m+n(m - размерность А, n - размерность B), как копию массива А.
2. Фиксируем первый элемент из В, проверяем его на равенство с каждым из А. Если данный элемент не равен ни одному из предыдущих - заносим его в массив.
3. Повторяем пункт (2) для второго, третьего, ... , n-ого элемента.
Пересечение:
1. Создаём пустой массив С, размерностью max(m,n).
2. Фиксируем первый элемент из А. Проверям его на равенство с каждым из В до тех пор, пока не найдём такой элемент. Если нашли - заносим его в массив С.
3. Повторям пункт (2) для всех элементов из множества В.
Разность:

count:=0; k:=0;
for i:=0 to m-1 do 
 begin
  for j:=0 to n-1 do if A[i]=B[j] then count:=1; 
  if count=0 then 
    begin C[k]:=A[i]; inc(k) end;
  count:=0;
 end;

[XeruH]

Результатом пересечения множеств будет множество, которое содержит элементы присутствующие в обоих множествах.
т.е. если любой элемент массива А содержится в массиве В, то он попадет в результирующее множество.

for i:=1 to 10 do
  for j:=1 to 10 do
    if A[i] = B[j] then
    begin
      len := Length(C);
      SetLength(C, len+1);
      C[len]:=A[i];
    end;

Вот как-то так наверно. C - динамический массив

[vlad_light]

Кстати, ф-ция ввода по-короче:

n:=0; m:=0;
while m<=1 or m>=100 do read(m);
for i:=1 to m do read(A[i]);
while n<=1 or n>=100 do read(n);
for i:=1 to n do read(B[i]);

[vlad_light]

А разве так

SetLength(C, len+1);

можно писать?