Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Villios
1 / 1 / 0
Регистрация: 21.09.2010
Сообщений: 25
1

Определение совпадений

23.09.2010, 10:48. Просмотров 591. Ответов 6
Метки нет (Все метки)

Дан однонаправленный список L1 (массив L1). Определить, есть ли в нем подряд идущие элементы, совпадающие с элементами списка L2 (массива L2).
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.09.2010, 10:48
Ответы с готовыми решениями:

Сравнить два бинарных файла и вывести в label количество не совпадений, или что нет не совпадений
Добрый день ! Прошу помощи в реализации задачи. В программе нужно сравнить...

Проверка совпадений в списках
Описать процедуру или функцию которая проверяет есть ли в списке L хотя бы 2...

Поиск совпадений в TImage
Есть на форме компонент TImage с картинкой разноцветной небольшой. Нужно...

Эдит и стринггрид проверка совпадений
Здравствуйте, как проверить на совпадения текст эдита и ячейки стрингрида,...

Поиск с выпадающим списком совпадений
Доброе время суток! Помогите реализовать поиск из БД с выпадающим списком...

6
Mad_Dog
Фрилансер
449 / 430 / 117
Регистрация: 01.06.2010
Сообщений: 1,315
23.09.2010, 10:52 2
Villios, однонаправленный список и массив - это совершенно разные структуры данных...
0
Башир
207 / 207 / 20
Регистрация: 18.05.2010
Сообщений: 846
23.09.2010, 11:16 3
Villios, покажите пример, лично мне до конца не понятно суть вашей задачи
0
Puporev
Модератор
54677 / 42099 / 29068
Регистрация: 18.05.2008
Сообщений: 99,341
23.09.2010, 13:07 4
Так наши преподы пишут когда программу нужно написать в двух вариантах, в данном случае для списка и для массива.
0
Villios
1 / 1 / 0
Регистрация: 21.09.2010
Сообщений: 25
23.09.2010, 16:50  [ТС] 5
Нет, здесь надо рассмотреть список как одномерный массив.
Например:
Список L1: Список L2:
1 2
2 6
3 12
4 5
5 7
0
Puporev
Модератор
54677 / 42099 / 29068
Регистрация: 18.05.2008
Сообщений: 99,341
23.09.2010, 16:59 6
Цитата Сообщение от Villios Посмотреть сообщение
надо рассмотреть список как одномерный массив.
Список и массив по сути одно и тоже, а именно структура, включающая пронумерованные однотипные элементы. Но принцип их организации и работы с ними совсем разный, так что вы пишете ерунду.
0
Mawrat
12827 / 5735 / 1700
Регистрация: 19.09.2009
Сообщений: 8,807
23.09.2010, 22:34 7
Для случая с динамическими списками:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
type
  //Типы для описания списка.
 
  //Тип, описывающий элемент списка.
  TPElem = ^TElem;
  TElem = record
    Data : Integer;
    PNext : TPElem;
  end;
  //Тип, описывающий список.
  TList = record
    PFirst : TPElem;
    PLast : TPElem;
  end;
 
//Процедуры для работы со списком.
 
//Добавление элемента в конец списка.
procedure ListAdd(var aList : TList; const aPElem : TPElem);
begin
  if aPElem = nil then Exit;
 
  aPElem^.PNext := nil;
  if aList.PFirst = nil then begin
    aList.PFirst := aPElem;
    aList.PLast := aPElem;
  end else begin
    aList.PLast^.PNext := aPElem;
    aList.PLast := aPElem;
  end;
end;
 
//Удаление всего списка из памяти и инициализация.
procedure ListFree(var aList : TList);
var
  PNext, PDel : TPElem;
begin
  if aList.PFirst = nil then Exit;
 
  PNext := aList.PFirst;
  while PNext <> nil do begin
    PDel := PNext;
    PNext := PNext^.PNext;
    Dispose(PDel);
  end;
 
  aList.PFirst := nil;
  aList.PLast := nil;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  List1, List2 : TList;
  PElem, PElem1, PElem2 : TPElem;
  i : Integer;
  IsFound : Boolean;
begin
  //Инициализация списков.
 
  List1.PFirst := nil;
  for i := 1 to 10 do begin
    New(PElem);
    PElem^.Data := i;
    ListAdd(List1, PElem);
  end;
 
  List2.PFirst := nil;
  for i := 3 to 7 do begin
    New(PElem);
    PElem^.Data := i;
    ListAdd(List2, PElem);
  end;
 
  //Поиск вхождения списка List2 в список List1.
 
  IsFound := False;
  i := 0;
  PElem := List1.PFirst;
  //Перебор элементов списка List1.
  while PElem <> nil do begin
    //Отслеживаем порядковые номера элементов списка List1.
    Inc(i);
    PElem1 := PElem;
    PElem2 := List2.PFirst;
    //Перебор элементов списка List2.
    while (PElem1 <> nil) and (PElem2 <> nil) do begin
      if PElem1^.Data <> PElem2^.Data then Break;
      if PElem2^.PNext = nil then begin
        IsFound := True;
        Break;
      end;
      PElem1 := PElem1^.PNext;
      PElem2 := PElem2^.PNext;
    end;
    if IsFound then Break;
    PElem := PElem^.PNext;
  end;
 
  if PElem <> nil then begin
    ShowMessage(
      'В списке List1 найдена часть, совпадающая по данным со списком List2.' + #10
      + 'Порядковый номер первого элемента совпадающей части: ' + IntToStr(i)
    );
  end else begin
    ShowMessage(
      'В списке List1 нет частей, совпадающих по данным со списком List2.'
    );
  end;
 
  //Уничтожение списков.
  ListFree(List1);
  ListFree(List2);
end;
На форму надо полжить кнопку (TButton) и создать для неё обработчик события OnClick. В модуль добавить представленный код.
1
23.09.2010, 22:34
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.09.2010, 22:34

Поиск и отображения нескольких совпадений ListBox
Доброго времени суток! Помогите с кодом поиска текста в ListBox, так, чтобы...

Счетчики совпадений значений строк в ListBox
Скажу сразу, что я в программировании почти &quot;0&quot;, поэтому и пишу здесь в...

Поиск совпадений слов в двух файлах (Delphi 7)
Всем доброго дня! Впервые пытаюсь писать программу на Delphi и ни как не...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru