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

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

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

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

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

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

Сформировать двумерный динамический массив и добавить в него строку с заданным номером
2. Сформировать двумерный динамический массив. Добавить в него строку с...

Скопировать массив, исключив из него элемент с заданным номером
ОЧЕНЬ ПРОШУ! массивы с подпрограммами Создайте с помощью генератора случайных...

Ввести с клавиатуры массив из 10 целых положительных чисел. Удалить из массива элемент с заданным номером
Дан массив из 10 целых положительных чисел, заполненный с клавиатуры. Удалить...

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

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

1
MayaNash
1291 / 459 / 151
Регистрация: 24.08.2011
Сообщений: 2,245
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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.07.2012, 12:00

Дан массив вещественных чисел. Ко всем отрицательным элементам прибавить элемент с номером m1, к остальным -элемент с номером m2
решите через паскаль пожалуйста. Дан массив вещественных чисел. Ко всем...

Поменять местами элементы в парах «элемент с четным номером –элемент с нечетным номером».
Дан массив из п вещественных элементов. Поменять местами элементы в парах...

Из всех положительных элементов вычесть элемент с номером k1, из остальных — элемент с номером k2
11. Дан массив вещественных чисел. Из всех положительных элементов вычесть...


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

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

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