Поиск элементов

@LadyStrong · Регистрация: 15.04.2010

Author24 — интернет-сервис помощи студентам

даны два массива. надо найти их общие элементы.

Добавлено через 14 часов 3 минуты
вот кусок

Код

  k1:=0; l1:=0; n:=0;
  {инвариант: 0<=k1<=k; 0<=l1<=l; искомый ответ = n + количество
   общих элементов в x[k1+1]...x[k] и y[l1+1]..y[l]}
  while (k1 <> k) and (l1 <> l) do begin
  | if x[k1+1] < y[l1+1] then begin
  | | k1 := k1 + 1;
  | end else if x[k1+1] > y[l1+1] then begin
  | | l1 := l1 + 1;
  | end else begin {x[k1+1] = y[l1+1]}
  | | k1 := k1 + 1;
  | | l1 := l1 + 1;
  | | n := n + 1;
  | end;
  end;
  {k1 = k или l1 = l, поэтому одно из множеств, упомянутых в
   инварианте, пусто, а n равно искомому ответу}

мне бы целую программу(((

@Puporev · 21.06.2010, 12:52

Pascal

uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
{процедура создания массивов, чтоб не писать 2 раза}
procedure vvod(var v:mas;var x:byte;c:char);
var i:byte;
begin
repeat
write('Размер массива ',c,'=');
readln(x);
until x in [1..nmax];
for i:=1 to x do
 begin
  v[i]:=random(20);
  write(v[i]:4);
 end;
writeln;
writeln;;
end;
var n,m,i,j,k,p,f:byte;
    a,b:mas;
begin
clrscr;
randomize;
Vvod(a,n,'A');
Vvod(b,m,'B');
writeln('Общие элементы массивов:');
i:=1;f:=0;
while i<=n do
 begin
  j:=1;p:=0;
  while j<=m do
   begin
    if b[j]=a[i] then{нашли общий элемент}
     begin
      p:=1;{фиксируем для данного числа}
      f:=1;{фиксипуем что есть вообще}
      write(a[i]:4);{выводим его}
      for k:=i to n-1 do
      a[k]:=a[k+1];{удаляем его левым чдвигом из первого массива}
      n:=n-1;{уменьшаем размер}
      for k:=j to m-1 do
      b[k]:=b[k+1];{из второго}
      m:=m-1;
      break;{больше это число не ищем}
     end
    else j:=j+1;{если не такое, вперед по второму массиву}
   end;
  if p=0 then i:=i+1;{если для данного элемента первого массива нет совпадений
                       смотрим следующий}
 end;
if f=0 then write('Общих элементов нет!');
readln
end.

@LadyStrong · 21.06.2010, 12:53 **[ТС]**

СПАСИБО БОЛЬШОЕ!!!

@LadyStrong 6 / 8 / 0 Регистрация: 15.04.2010 Сообщений: 80
	21.06.2010, 12:53 [ТС]	3
	СПАСИБО БОЛЬШОЕ!!! 0

Поиск элементов

Решение