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

Объединение односвязных списков

17.08.2013, 00:04. Показов 2556. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите с задачей.Создать два списка, элементы которых в информационной части содержат два поля разных типов.Объединить эти списки, предоставив пользователю право выбора: присоединять к элементам первого списка элементы второго или наоборот.Вывести объединённый список на экран.
Вот создание,а объединить не могу.
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
uses crt;
type
sved=^anketa;
anketa=record
fio:string;
voz:byte;
next:sved;
end;
 
sved1=^anketa1;
anketa1=record
fio1:string;
voz1:byte;
next1:sved1;
end;
 
var
first:sved;{Первый эл}
first1:sved1;
last:sved;{Последний эл}
last1:sved1;
p:sved;{текущий эл}
p1:sved1;
z,n,i:byte;
d1:sved;
 begin
clrscr;
write('Кол-во эл в списке:');readln(n);
new(first);
write('введите фио:');
readln(first^.fio);
write('введите возраст:');
readln(first^.voz);
first^.next:=nil;
last:=first;
for i:=2 to n do
 begin
 new(p);
 write('введите фио:');
 readln(p^.fio);
 write('введите возраст:');
 readln(p^.voz);
 p^.next:=nil;
 last^.next:=p;
 last:=p;
 end;
p:=first;
while p<>nil do
 begin
writeln(p^.fio:15,p^.voz:10);
p:=p^.next;
 end;
readln;
 
clrscr;
write('Кол-во эл в списке:');readln(z);
new(first1);
write('введите фио:');
readln(first1^.fio1);
write('введите возраст:');
readln(first1^.voz1);
first1^.next1:=nil;
last1:=first1;
for i:=2 to z do
 begin
 new(p1);
 write('введите фио:');
 readln(p1^.fio1);
 write('введите возраст:');
 readln(p1^.voz1);
 p1^.next1:=nil;
 last1^.next1:=p1;
 last1:=p1;
 end;
p1:=first1;
while p1<>nil do
 begin
writeln(p1^.fio1:15,p1^.voz1:10);
p1:=p1^.next1;
 end;
readln;
 
end.
0
17.08.2013, 00:04
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
17.08.2013, 00:04
Ответы с готовыми решениями:

Изучение динамических структур данных на примере односвязных списков, процедур для выделения и освобождения памяти
помогите пожалуйста вот задание Сформировать односвязный список из 5 записей, удалить записи, удовлетворяющие некоторому...

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

Построение массива односвязных списков, вводя исходные данные из текстового файла
&quot;построение массива односвязных списков, вводя исходные данные из текстового файла&quot; Вот такая у меня задача. А я не могу даже понять...

1
 Аватар для Jener
228 / 225 / 220
Регистрация: 03.07.2012
Сообщений: 466
18.08.2013, 05:16 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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
uses crt;
type
sved=^anketa;
anketa=record
fio:string;
voz:byte;
next:sved;
end;
var
first, first1 : sved;
last, last1   : sved;
p, p1         : sved;
n, i          : byte;
 begin
clrscr;
write('Кол-во эл в списке:');readln(n);
new(first);
write('введите фио:');
readln(first^.fio);
write('введите возраст:');
readln(first^.voz);
first^.next:=nil;
last:=first;
for i:=2 to n do
 begin
 new(p);
 write('введите фио:');
 readln(p^.fio);
 write('введите возраст:');
 readln(p^.voz);
 p^.next:=nil;
 last^.next:=p;
 last:=p;
 end;
p:=first;
while p<>nil do
 begin
writeln(p^.fio:15,p^.voz:10);
p:=p^.next;
 end;
readln;
 
clrscr;
write('Кол-во эл в списке:');readln(n);
new(first1);
write('введите фио:');
readln(first1^.fio);
write('введите возраст:');
readln(first1^.voz);
first1^.next:=nil;
last1:=first1;
for i:=2 to n do
 begin
 new(p1);
 write('введите фио:');
 readln(p1^.fio);
 write('введите возраст:');
 readln(p1^.voz);
 p1^.next:=nil;
 last1^.next:=p1;
 last1:=p1;
 end;
p1:=first1;
while p1<>nil do
 begin
writeln(p1^.fio:15,p1^.voz:10);
p1:=p1^.next;
 end;
 writeln('Присоединять к элементам первого списка элементы второго - 1');
 writeln('Присоединять к элементам второго списка элементы первого - 2');
 repeat
 write('Введите 1 или 2 : '); readln(i);
 until i in [1,2];
 Case i of
 1 : begin
      last^.Next := First1;
      last := last1;
      p1:=first;
      while p1<>nil do
       begin
        writeln(p1^.fio:15,p1^.voz:10);
        p1:=p1^.next;
       end;
     end;
 2 : begin
      last1^.Next := First;
      last1 := last;
      p1:=first1;
      while p1<>nil do
       begin
        writeln(p1^.fio:15,p1^.voz:10);
        p1:=p1^.next;
       end;
     end;
 end;
 readln;
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
18.08.2013, 05:16
Помогаю со студенческими работами здесь

Объединение динамических списков
Доброго времени суток! Решая задачу : Для произвольных множеств А, В и С определить (АUB)\C не нашол утешения в массивах,непонял и не...

Создание списка, представляющего собой объединение (по операции ИЛИ) элементов двух списков
Создание списка, представляющего собой объединение (по операции ИЛИ) элементов двух списков.

Создание списка, представляющего собой объединение (по операции ИЛИ) элементов двух списков
Создание списка, представляющего собой объединение (по операции ИЛИ) элементов двух списков.

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

Задача на обработку односвязных списков
ребят помогите решить задачку... type PEL= ^EL; EL= record Inf: Integer; Nxt: PEL ...


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Условные типы в TypeScript
stackOverflow 17.02.2025
Условные типы - это сильное средство TypeScript, позволяющее создавать типы, которые могут менять свое поведение в зависимости от определенных условий. По своей сути, они работают подобно тернарному. . .
TypeScript и оператор infer: разбиваем Composite-типы на части
stackOverflow 17.02.2025
В TypeScript композитные типы занимают особое место - это сложные типы данных, которые создаются путем объединения более простых типов. К ним относятся массивы, объекты, кортежи (tuples),. . .
Mapped-типы в TypeScript
stackOverflow 17.02.2025
TypeScript предоставляет развитые средства для типизации данных, и одним из наиболее гибких инструментов являются mapped-типы. По сути, mapped-тип или сопоставленный тип - это способ создания нового. . .
Как вернуть энтузиазм
Uswer 17.02.2025
Приветствую тебя читатель. Сначала небольшая предыстория. Лет 5-6 тому назад появилась у меня идея автоматизации некоего процесса на работе. А так как я уже много лет увлекаюсь (не путать с. . .
Оператор satisfies в TypeScript: как он работает и где применять
stackOverflow 17.02.2025
Оператор satisfies - одна из наиболее полезных возможностей TypeScript, позволяющая проверять типы значений без изменения их исходного типа. В отличие от других операторов типизации, satisfies дает. . .
Почему могут не шифроваться русские символы в Java
Wired 17.02.2025
При разработке на Java нередко возникают сложности с шифрованием русских символов. Эта проблема особенно актуальна для разработчиков, создающих программное обеспечение для русскоязычной аудитории. . . .
Отличия ОС для x86_64 и ARM
Wired 17.02.2025
На данный момент сосуществуют две основные архитектуры процессоров - x86_64 и ARM. Эти архитектуры имеют принципиально разные подходы к организации вычислений и обработке данных, что накладывает. . .
Многопоточность в Python: как использовать Thread
bytestream 17.02.2025
Поток выполнения (thread) - это наименьшая последовательность инструкций, которая может управляться планировщиком операционной системы. Представьте себе, что ваша программа - это книга, а потоки -. . .
Как воспроизвести Race Condition в Python
bytestream 17.02.2025
В многопоточном программировании существует множество подводных камней, и одним из самых коварных является состояние гонки (Race Condition). Этот термин описывает ситуацию, когда результат выполнения. . .
Ошибка "node: --openssl-legacy-provider is not allowed in NODE_OPTIONS"
bytestream 17.02.2025
Каждый разработчик рано или поздно сталкивается с ситуацией, когда при запуске проекта Node. js неожиданно выскакивает ошибка "node: --openssl-legacy-provider is not allowed in NODE_OPTIONS". Это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru