В массиве А оставить только элементы со значениями, которые имеются в массиве В

@Rapala · Регистрация: 10.05.2010

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

У меня есть динамический массив а: целочисленный

Delphi

и массив b, такого же типа:

Delphi

1
2
3

1
3
5

как сделать так чтобы по нажатию кнопки в массиве а остатлись только элементы со значениями, которые имеются в массиве b, то есть 1 3 5?

@R45H · 11.11.2011, 22:23

Проверяешь каждый элемент первого массива с каждым элементом второго (2 цикла, один в другом), и удаляешь те элементы первого массива, на которые нет совпадений.
Чтобы выявить такие элементы, нужна переменная. Во втором цикле если совпало, то переменная = 1, затем ниже в первом if переменная <> 1, then удаляешь строку.
Для удаления пишешь процедуру, по принципу смещения. Все строки ниже указанной смещаешь на 1 строку вверх, потом последнюю убираешь.

@NIch · 12.11.2011, 21:01

Сообщение от R45H

Для удаления пишешь процедуру, по принципу смещения

Или создай временный массив в который занесешь только повторяющиеся данные, потом перенесешь данные из временного в постоянный.

Delphi

var
  i, j, k : integer;//для циклов
  exists : boolean;//для проверки наличия элемента в временном массиве
  Temp : array of integer;//временный массив
begin
//проходим по двум массивам
for i := 0 to Length(a)-1 do
  for j := 0 to Length(b)-1 do
    //если элементы совпадают
    if a[i] = b[j] then
    begin
      // проверяем наличие данного элемента в временном массиве
      exists := false;
      for k := 0 to Length(Temp)-1 do
        if Temp[k] = a[i] then
        begin
          exists := true;
          break;
        end;
        // если элемента нет
        if exists = false then
        begin
          //добавляем его
          SetLength(Temp, Length(Temp)+1);
          Temp[Length(Temp)-1] := a[i];
        end;
    end;
    // переносим временный массив в постоянный
    SetLength(b, Length(temp));
    for i := 0 to Length(Temp)-1 do
      b[i] := Temp[i];
end;

Как то так, писал на коленке)))

@digim0n · 12.11.2011, 21:14

а тупо...

Delphi

for i:=0 to a.count-1 do begin
 if pos(a[i],b)<>0 then c.add(a[i]);
end;
a:=c;

религия не позволяет?

@R45H 7 / 7 / 5 Регистрация: 08.11.2011 Сообщений: 59
	11.11.2011, 22:23	2
	Проверяешь каждый элемент первого массива с каждым элементом второго (2 цикла, один в другом), и удаляешь те элементы первого массива, на которые нет совпадений. Чтобы выявить такие элементы, нужна переменная. Во втором цикле если совпало, то переменная = 1, затем ниже в первом if переменная <> 1, then удаляешь строку. Для удаления пишешь процедуру, по принципу смещения. Все строки ниже указанной смещаешь на 1 строку вверх, потом последнюю убираешь. 0

	12.11.2011, 21:14

Опции темы

В массиве А оставить только элементы со значениями, которые имеются в массиве В

Решение