Вопрос по условию. (паскаль)

[aslanbek999]

Составить процедуру исходными данными которой являются два массива B1,B2,..,Bn, C1,C2,..,Cm.
Результат. Множество всех значений элементов массивов {B},{C} без повторения этих значений.


Я не до конца понял условие, но из того что я понял выходит, что сначала я объединяю два массива в один, а потом изымаю из него повторяющиеся значения. Процедура выходит очень громоздкая. Если кто-то знает как сделать попроще, подскажите. А может я неправильно понял условие, и нужно из самих массивов по отдельности изъять повторяющиеся значения.

[Utkin]

Чем являются элементы массива?
Вообще-то это сильно смахивает на операции над множествами.

[Stilet]

а потом изымаю из него повторяющиеся значения.

Верно, но почему громоздкая? Всего лишь два цикла...
Или попробуй это множествами делать.

[aslanbek999]

просто числа в диапозоне от -100 до 100

Препод просто гонит

ок, попробую множествами. А еще отдельно напишу процедуру изымающую повторяющиеся эл-ты из любого массива, на всякий противопожарный

[Stilet]

просто числа в диапозоне от -100 до 100

Главное не вес чисел а их кол-во

[aslanbek999]

Прога рабочая.

Трудов много, а проку от нее...

Я же говорил большевато получится.


PROGRAM v12_4_2_4;
label 13;
const nn=50;
type mas=array[1..nn] of real;
var n,m,k,i,j:integer;
F1,F2:text;
B:mas;
L:mas;
C:mas;
procedure MaxMatrix(var C,B,L:mas);
label 13;
var i,j: integer;
begin
for i:=1 to n do
read(f1,B[i]);
readln(f1);
for j:=1 to m do
read(f1,C[j]);
k:=1;
for i:=1 to n do
begin
L[k]:=B[i];
k:=k+1;
end;
for j:=1 to m do
begin
L[k]:=C[j];
k:=k+1;
end;
k:=1;
i:=0;
13:
i:=i+1;
k:=i+1;
While L[i]<>L[k] do
k:=k+1;
if k>n+m then
writeln(f2,L[i]);
if i<n+m then
goto 13;
end;
Begin
assign(F1,'isdan.pas');
assign(F2,'vdan.pas');
reset(f1);
rewrite(f2);
read(f1,n,m);
readln(f1);
Maxmatrix(C,B,L);
close(f1);
Close(f2);
end.