С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
0 / 0 / 0
Регистрация: 03.10.2012
Сообщений: 5
1

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

08.01.2013, 18:45. Показов 2053. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
помогите, вот последняя работа осталась, а сделать ее не могу

Дан неупорядоченный линейный односвязный список и массив, содержащий номера соответствующих элементов в упорядоченном списке. Перестроить данный список с соответствии с номерами, заданными массивом.
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
08.01.2013, 18:45
Ответы с готовыми решениями:

Дан упорядоченный линейный по неубыванию односвязный список
Дан упорядоченный линейный по неубыванию односвязный список. Сформировать второй упорядоченный...

Дан массив А размера N. Не изменяя данный массив вывести номера его элементов в том порядке, в котором соответствующие элементы образуют возрастающую
помогите пожалуйста решить задачку по паскалю: Дан массив А размера N. Не изменяя данный...

Дан линейный неупорядоченный массив А,состоящий из 20 целых чисел.Составить программу,которая определяет количество инверсии в массиве
Дан линейный неупорядоченный массив А,состоящий из 20 целых чисел.Составить программу,которая...

Добавление элементов в односвязный линейный список
Всем добрый день! Написала функцию, которая добавляет элементы в список, причем каждый элемент...

1
13107 / 5888 / 1707
Регистрация: 19.09.2009
Сообщений: 8,808
10.01.2013, 18:26 2
Лучший ответ Сообщение было отмечено Nik741 как решение

Решение

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
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
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
program Project1;
 
type
  //Тип основных данных.
  TData = Integer;
  //Указатель на элемент списка.
  TPElem = ^TElem;
  //Элемент списка.
  TElem = record
    Data : TData; //Основные данные.
    PNext : TPElem; //Указатель на следующий элемент.
  end;
  //Список.
  TDList = record
    PFirst, PLast : TPElem; //Указатели на первый и на последний элементы списка.
  end;
 
//Процедура инициализации списка. Внимание! Эту процедуру можно выполнять
//только в отношении пустого списка. Иначе, произойдёт утечка памяти.
procedure Init(var aList : TDList);
begin
  aList.PFirst := nil;
  aList.PLast := nil;
end;
 
//Добавление элемента в конец списка.
procedure Add(var aList : TDList; const aData : TData);
var
  PElem : TPElem;
begin
  New(PElem);
  PElem^.Data := aData;
  PElem^.PNext := nil;
  if aList.PFirst = nil then
    aList.PFirst := PElem
  else
    aList.PLast^.PNext := PElem;
  aList.PLast := PElem;
end;
 
//Освобождение памяти, занятой под список.
procedure Free(var aList : TDList);
var
  PElem, PDel : TPElem;
begin
  PElem := aList.PFirst;
  while PElem <> nil do begin
    PDel := PElem;
    PElem := PElem^.PNext;
    Dispose(PDel);
  end;
  Init(aList);
end;
 
//Распечатка всего списка.
procedure Print(var aList : TDList);
var
  PElem : TPElem;
  i : Integer;
begin
  PElem := aList.PFirst;
  i := 0;
  while PElem <> nil do begin
    Inc(i);
    if i > 1 then Write(', ');
    Write(PElem^.Data);
    PElem := PElem^.PNext;
  end;
  Writeln;
end;
 
const
  M = 8; //Количество элементов в списке.
var
  L : TDList;
  PElem : TPElem;
  Arr : array[1..M] of Integer; //Массив номеров элементов.
  ArrP : array[1..M] of TPElem; //Массив указателей на элементы.
  i, j, Num : Integer;
  S : String;
begin
  //Переключение окна консоли на кодовую страницу CP1251 (Win-1251).
  //Если после переключения русские буквы показываются неверно,
  //следует открыть системное меню консольного окна - щелчком мыши в левом
  //верхнем углу окна консоли и выбрать:
  //Свойства - закладка "Шрифт" - выбрать шрифт: "Lucida Console".
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  //Начальная инициализация списка.
  Init(L);
 
  repeat
    //Составляем список и записываем номера элементов в массив.
    for i := 1 to M do begin
      Add(L, i);
      Arr[i] := i;
    end;
    Writeln('Составлен список:');
    Print(L);
 
    //Случайным образом перемешиваем номера элементов в массиве.
    Randomize;
    for i := 1 to M do begin
      j := 2 + Random(M - 1);
      Num := Arr[1];
      Arr[1] := Arr[j];
      Arr[j] := Num;
    end;
    Writeln('Составлен массив:');
    for i := 1 to M do begin
      if i > 1 then Write(', ');
      Write(Arr[i]);
    end;
    Writeln;
 
    //Для каждого элемента списка по его порядковому номеру находим индекс
    //соответствующего элемента в массиве Arr. И по этому индексу записываем
    //указатель на элемент списка в массив ArrP.
    PElem := L.PFirst;
    i := 0;
    while PElem <> nil do begin
      Inc(i);
      j := 1;
      while (j <= M) and (Arr[j] <> i) do Inc(j);
      ArrP[j] := PElem;
      PElem := PElem^.PNext;
    end;
 
    //Теперь перестраиваем список по данным массива указателей ArrP.
    L.PFirst := ArrP[1];
    L.PLast := ArrP[M];
    L.PLast^.PNext := nil;
    for i := 1 to M - 1 do ArrP[i]^.PNext := ArrP[i + 1];
 
    //Ответ.
    Writeln('Перестроенный список:');
    Print(L);
 
    Free(L);
    Writeln('Память, выделенная для списка, освобождена.');
 
    Writeln('Повторить - Enter, выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.
Вывод программы:
Код
Составлен список:
1, 2, 3, 4, 5, 6, 7, 8
Составлен массив:
4, 6, 3, 1, 7, 5, 2, 8
Перестроенный список:
4, 6, 3, 1, 7, 5, 2, 8
Память, выделенная для списка, освобождена.
Повторить - Enter, выход - любой символ + Enter.
На всякий случай поясню. В задании сказано:
Цитата Сообщение от Nik741 Посмотреть сообщение
Дан неупорядоченный линейный односвязный список и массив, содержащий номера соответствующих элементов в упорядоченном списке.
Т. е., здесь порядок задаёт массив. И этот порядок может вовсе не совпадать с понятием упорядоченности по возрастанию или убыванию значений.
В решении это показано - элементы списка выстраиваются в соответствие с порядком, который задан в массиве.
Можно и по-другому показать - например, в списке значения элементов будут распределены в случайном порядке, а в массиве - по возрастанию или по убыванию. А потом список перестраивается согласно позициям, заданным в массиве и значения в списке окажутся тоже упорядоченными по возрастанию или убыванию.
0
10.01.2013, 18:26
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
10.01.2013, 18:26
Помогаю со студенческими работами здесь

Односвязный неупорядоченный список
Вобщем такая задачка: Односвязный неупорядоченный список(меню, модули) Написать следующие...

Создать односвязный линейный список и прописать функции добавления и удаления элементов
Доброго времени суток! Нужно создать одно-связанный линейный список и прописать функции...

Построить линейный список из входной последовательности чисел и перестроить его
Задание выполнить, применяя списки двух видов: стека и очереди. Построить линейный список из...

Циклический однонаправленный линейный список с функцией поиска отрицательных элементов в списке
Помогите организовать циклический однонаправленный линейный список с функцией поиска отрицательных...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Книги и учебные ресурсы по C#
InfoMaster 08.01.2025
Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .
Что такое NullReferenceEx­­­ception и как исправить?
InfoMaster 08.01.2025
NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .
Что такое Null Pointer Exception (NPE) и как это исправить?
InfoMaster 08.01.2025
Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .
Русский язык в консоли C++
InfoMaster 08.01.2025
При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .
Telegram бот на C#
InfoMaster 08.01.2025
Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .
Использование GraphQL в Go (Golang)
InfoMaster 08.01.2025
Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор?
Alexander-7 08.01.2025
Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .
Как работать с GraphQL на TypeScript
InfoMaster 08.01.2025
Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .
Счётчик на базе сумматоров + регистров и генератора сигналов согласования.
Hrethgir 07.01.2025
Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .
Как перейти с Options API на Composition API в Vue.js
BasicMan 06.01.2025
Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .
Архитектура современных процессоров
inter-admin 06.01.2025
Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .
История создания реляционной модели баз данных, правила Кодда
Programming 06.01.2025
Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru