объединение массивов

[любаша]

помогите пожалуйста.нужно найти объединение массивов...
ничего не получается, у меня задумка такая,но ничего не работает...
for i:=1 to x1 do
begin
for j:=1 to x2 do
if (A[i]<=B[j]) and (A[i]>=B[j]) then
C[p]:=A[i]+B[j];
p:=p+1;
writeln(C[p]);
end;
завтра задачу сдавать....поможет кто знает как((((((

[Serge_Bliznykov]

что такое "объединение массивов" ?
что за код: if (A[i]<=B[j]) and (A[i]>=B[j])
что Вы этой проверкой пытались сделать ?! (на самом деле условие будет True только в случае, если A[i] равно B[j]
если нужно просуммировать массивы, то это делается не так.
если массивы одинаковой длины, тогда просто так:

for i:=1 to N do
  C[i] := A[i] + B[i];

если разной - то тоже несложно сделать...

[любаша]

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

[Serge_Bliznykov]

множества завела через массив

ЗАЧЕМ?!!!!
Для Вас Никлаус Вирт старался, придумывал механизмы обработки множеств в Pascal, а Вы взяли и отбросили это в сторону...

посмотрите, примерно так можно решить Вашу задачу:

type 
  Int100 = 1..100;
  MySet = set of Int100;

procedure PrintSet(SetName : string; SS : MySet);
var i: Int100;
begin
  Writeln;
  WriteLn('Set : '+SetName+' ------------ ');
  for i:=Low(Int100) to High(Int100) do
    if i in SS then Write(i:1,' ');
  WriteLn;
end;

var a, b, c : MySet;
  {кстати, множество c введено просто для наглядности!}
begin
  a := [1,2,10,20];
  b := [21,11,2,30];

  PrintSet('A',a);
  PrintSet('B',b);

  {пересечение множеств}
  c := a * b;
  PrintSet('Пересечение',c);

  {Разность множеств}
  c := a - b;
  PrintSet('Разность A - B',c);
  c := b - a;
  PrintSet('Разность B - A',c);

  {Объединение множеств}
  c := a + b;
  PrintSet('Объединение',c);

end.

p.s. если уж Вам ОЧЕНЬ хочется решить задачу через массивы, пишите, помогу...

[любаша]

наверное мой способ довольно не рациональный,но уже не хочется ничего менять(((вообщем мой код такой

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

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


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


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


writeln('peresechenie');
begin
for i:=1 to x1-1 do
for j:=1 to x2-1 do
  if A[i]=B[j] then
    begin
    k:=k+1;
    C[k]:=A[i];
    end;
  writeln(C[k]);
  end;

writeln('raznost');
  p:=1;
  for i:=1 to x1 do
    begin
  k:=0;
  for j:=1 to x2 do
     if A[i]=B[j] then
     k:=k+1;
     if  k=0 then
     begin
     C[p]:=A[i];
     p:=p+1;
     end;
     end;
  for i:=1 to p-1 do writeln(C[i]);

осталось вот добавить объединение множеств и симметрическую разность.....