Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
1 / 1 / 0
Регистрация: 04.07.2012
Сообщений: 21
1

Добавить в однонаправленный(двунаправленный) список элемент с заданным номером

08.07.2012, 20:35. Просмотров 915. Ответов 1
Метки нет (Все метки)

Добавить в однонаправленный(двунаправленный) список элемент с заданным номером.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.07.2012, 20:35
Ответы с готовыми решениями:

Добавить в однонаправленный (двунаправленный) список элемент с заданным номером
Добавить в однонаправленный (двунаправленный) список элемент с заданным номером

Сформировать двунаправленный список. Удалить из него элемент с заданным ключом, добавить элемент с указанным номером
Записи в линейном списке содержат ключевое поле типа *char(строка символов). Сформировать...

Записи в линейном списке содержат ключевое поле типа int. Сформиро-вать двунаправленный список. Добавить в него элемент с заданным номером, удалить К
Записи в линейном списке содержат ключевое поле типа int. Сформиро-вать двунаправленный список....

Добавить в список элемент после элемента с заданным инф.полем [Однонаправленный список]
Вообщем есть: Функция создание списка Функции вывода на экран Функция добавление элемента с...

1
1294 / 465 / 151
Регистрация: 24.08.2011
Сообщений: 2,249
09.07.2012, 12:00 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
uses crt;
 
type pointer = ^element;
 
     element = record
     int: integer;
     next: pointer;
     end;
 
var first,cur: pointer;
    n,i: integer;
 
{----------------------------------------------------------------}
procedure read_list;
begin
write('Kolichestvo elementov v ishodnom spiske: '); readln(n);
writeln('Vvodite elementy: ');
 
write('1 = ');
new(first);
readln(first^.int);
cur:=first;
 
for i:=2 to n do
 begin
 write(i,' = ');
 new(cur^.next);
 cur:=cur^.next;
 readln(cur^.int);
 end;
writeln;
 
cur^.next:=nil;
end;
{----------------------------------------------------------------}
procedure add_element;
var nr: integer;
    tmp: pointer;
begin
write('Nomer vstavleaemogo elementa: '); readln(nr);
new(tmp);
write('Znachenie elementa = '); readln(tmp^.int);
writeln;
 
cur:=first;
for i:=2 to nr-1 do cur:=cur^.next;
 
tmp^.next:=cur^.next;
cur^.next:=tmp;
inc(n);
end;
{----------------------------------------------------------------}
procedure print_list;
begin
writeln('Izmenennyi odnonapravlennyi spisok:');
cur:=first;
writeln('1: ',cur^.int);
for i:=2 to n do
 begin
 cur:=cur^.next;
 writeln(i,': ',cur^.int);
 end;
end;
{----------------------------------------------------------------}
 
 
begin clrscr;
read_list;
add_element;
print_list;
readkey; end.
Добавлено через 3 минуты
Двунаправленный
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
uses crt;
 
type pointer = ^element;
 
     element = record
     int: integer;
     next,prev: pointer;
     end;
 
var first,cur: pointer;
    n,i: integer;
 
{----------------------------------------------------------------}
procedure read_list;
begin
write('Kolichestvo elementov v ishodnom spiske: '); readln(n);
writeln('Vvodite elementy: ');
 
write('1 = ');
new(first);
readln(first^.int);
first^.prev:=nil;
cur:=first;
 
for i:=2 to n do
 begin
 write(i,' = ');
 new(cur^.next);
 cur^.next^.prev:=cur;
 cur:=cur^.next;
 readln(cur^.int);
 end;
writeln;
 
cur^.next:=nil;
end;
{----------------------------------------------------------------}
procedure add_element;
var nr: integer;
    tmp: pointer;
begin
write('Nomer vstavleaemogo elementa: '); readln(nr);
new(tmp);
write('Znachenie elementa = '); readln(tmp^.int);
writeln;
 
cur:=first;
for i:=2 to nr-1 do cur:=cur^.next;
 
tmp^.prev:=cur;
tmp^.next:=cur^.next;
cur^.next:=tmp;
tmp^.next^.prev:=tmp;
inc(n);
end;
{----------------------------------------------------------------}
procedure print_list;
begin
writeln('Izmenennyi odnonapravlennyi spisok:');
cur:=first;
writeln('1: ',cur^.int);
for i:=2 to n do
 begin
 cur:=cur^.next;
 writeln(i,': ',cur^.int);
 end;
end;
{----------------------------------------------------------------}
 
 
begin clrscr;
read_list;
add_element;
print_list;
readkey; end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.07.2012, 12:00

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Добавить в однонаправленный список элемент после элемента с заданным информационным полем
Здравствуйте, помогите пожалуйста, с задачей. 1.Тип информационного поля char*. Добавить в ...

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

Удалить из массива элемент с заданным номером, добавить элемент с заданным номером
сформировать одномерный массив .Удалить из него элемент с заданным номером,добавить элемент с...

Сформировать одномерный массив. Удалить из него элемент с заданным номером, добавить элемент с заданным номеро
Сформировать одномерный массив. Удалить из него элемент с заданным номером, добавить элемент с...


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

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

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