0 / 0 / 0
Регистрация: 22.03.2011
Сообщений: 40
1

Определить, есть ли в списке хотя бы два одинаковых элемента

12.09.2012, 09:36. Показов 2493. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите решить или решите если не сложно задачу..

Составить программу, которая проверяет, есть ли в списке L
хотя бы два одинаковых элемента.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.09.2012, 09:36
Ответы с готовыми решениями:

Проверить, есть ли в списке хотя бы два одинаковых элемента
Дан список А, состоящий из записей: первое поле – символ, второе – адрес следующего элемента....

Проверить, есть ли в списке L хотя бы два одинаковых элемента
1)Составить программу, которая проверяет, есть ли в списке L хотя бы два одинаковых элемента. 2)...

Проверить, есть ли в списке хотя бы два одинаковых элемента
Написать логическую функцию, которая проверяет, есть ли в списке хотя бы два одинаковых элемента....

Определить, есть ли в списке хотя бы два одинаковых элемента
Создать файл символов.Разместить элементы файла в динамической памяти.Написать программу которая...

5
4311 / 1422 / 463
Регистрация: 16.12.2010
Сообщений: 2,939
Записей в блоге: 3
12.09.2012, 17:46 2
Pascal
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
uses crt;
 
type alist=^l;
 l = record
  data: integer;
  next: alist;
 end;
 
 var first: alist;
     b,i,n: integer;
 
 procedure add(var first: alist; x: integer);
 var cur: alist;
 begin
  if first=nil then
  begin
   new(first);
   cur:=first;
  end
  else
  begin
   cur:=first;
    while cur^.next<>nil do
     cur:=cur^.next;
    new(cur^.next);
    cur:=cur^.next;
  end;
  cur^.next:=nil;
  cur^.data:=x;
 end;
 
 procedure list(first: alist);
 begin
  while first<>nil do
   begin
    write(first^.data,' ');
    first:=first^.next;
   end;
  writeln;
 end;
 
 procedure same(first: alist);
 var cur,f: alist;
 begin
  f:=first;
  while first<>nil do
   begin
     cur:=f;
     while cur<>nil do
      begin
       if (cur^.data=first^.data) and (cur<>first) then
        begin
         writeln('Есть');
         exit;
        end;
       cur:=cur^.next;
      end;
     first:=first^.next;
   end;
   writeln('Нет');
 end;
 
 begin
  clrscr;
  first:=nil;
  write('Количество элементов: ');
  readln(n);
  for i:=1 to n do
   begin
    readln(b);
    add(first,b)
   end;
  writeln('Исходные элементы: ');
  list(first);
  same(first);
  readln;
 end.
1
0 / 0 / 0
Регистрация: 22.03.2011
Сообщений: 40
13.09.2012, 12:23  [ТС] 3
У меня не работает.... Запускаю, ввожу любую цифру, нажимаю Enter и ничего не происходил..Я пробовал запускать в TP и в PABC, пробовал ждать минут 10-15, вдруг она высчитывала, но ничего не происходило

Добавлено через 19 минут
Извяюсь...Не разобрался в программе... ПРограмма ОТЛИЧНО работает))))) Это я дурак)) Большое спасибо))
0
0 / 0 / 0
Регистрация: 09.06.2014
Сообщений: 5
09.06.2014, 17:05 4
А можно ли ее переделать под это условие
"Описать логическую функцию, проверяющую, есть ли в непустом дереве хотя бы два одинаковых элемента." методом «Деревья» (Динамические структуры данных)
0
4311 / 1422 / 463
Регистрация: 16.12.2010
Сообщений: 2,939
Записей в блоге: 3
09.06.2014, 18:15 5
Тут скорее заново писать. Деревья и списки - разные вещи.
0
0 / 0 / 0
Регистрация: 09.06.2014
Сообщений: 5
09.06.2014, 18:56 6
Эх,а кто тогда сможет ее сделать?)
0
09.06.2014, 18:56
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.06.2014, 18:56
Помогаю со студенческими работами здесь

Есть ли в списке хотя бы два одинаковых элемента
Доброго времени суток. Костыльно написал? Замечания. Задание: проверить, есть ли в списке хотя...

Проверить, есть ли в списке хотя бы два одинаковых элемента
1. Проверить, есть ли в списке хотя бы два одинаковых элемента Помогите, пожалуйста, разобраться в...

Проверить, есть ли в списке хотя бы два одинаковых элемента
Прошу проверить правильность кода и помочь написать его дальше. Написать программу, обеспечивающую...

Проверить, есть ли в списке хотя бы два одинаковых элемента
Доброго времени суток всем. Помогите, пожалуйста, переписать этот код на c++. Заранее спасибо. ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru