Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Эльман
1 / 1 / 0
Регистрация: 04.07.2012
Сообщений: 21
#1

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

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

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

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

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

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

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

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

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

1
MayaNash
1285 / 453 / 47
Регистрация: 24.08.2011
Сообщений: 2,214
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
Привет! Вот еще темы с ответами:

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

Из всех положительных элементов вычесть элемент с номером k1, из остальных - элемент с номером k2 - Turbo Pascal
Из всех положительных элементов вычесть элемент с номером k1, из остальных - элемент с номером k2. помогите

Сформировать новый линейный список однонаправленный список, содержащий только нечетные элементы - Turbo Pascal
Даны 2 линейных однонаправленных списка с элементами целого типа. Количество элементов и их значения - случайные числа. Сформировать новый...

Опишите и постройте через двумерный массив Sps линейный однонаправленный список из семи целых чисел и сделайте этот список пустым - Turbo Pascal
Сама задача: Опишите и постройте с помощью двумерного массива Sps линейный однонаправленный список из семи целых чисел и сделайте этот...


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

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

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