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

Обработка списков

15.12.2015, 21:31. Просмотров 895. Ответов 1
Метки нет (Все метки)

Ребят, помогите в решение этой задачи... заранее благодарю)
Переместить элемент в динамическом списке. Вводится n элементов динамического списка, К-й элемент удаляется из списка и добавляется в него же под номером М. Входные данные: N – количество элементов списка (целого типа); сами элементы списка; К, М - номера. Выходные данные: новый динамический список.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.12.2015, 21:31
Ответы с готовыми решениями:

Обработка списков
Помогите, пожалуйста, с задачей. Необходимо определить новые предикаты, которые работают со...

Обработка списков
сессия, хелп :( кто чем может :( Заранее пасибо 1) Удалить из списка все элементы, большие...

Обработка списков
Даны два непустых списка целых чисел L1 и L2. Создать программу, которая строит список L3,...

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

1
R0dan
0 / 0 / 1
Регистрация: 15.12.2015
Сообщений: 2
17.12.2015, 16:26  [ТС] 2
Лучший ответ Сообщение было отмечено R0dan как решение

Решение

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
Program spiski;
uses crt;
Type
TElement=^element;
 Element=record
 a:integer;
 next:TElement;
End;
var Q,last,head:TElement; i,n,k,m,c,f,x:integer;
 
{====sozdanie spiska====}
procedure createhead(var head,last:TElement);
Begin
 new(head);
 head^.next:=nil;
 last:=head;
End;
 
{====zapolnenie spiska=====}
Procedure add(var last:TElement; Z:integer);
var Q:TElement;
Begin
  new(Q);
   Q^.a:=Z;
   Q^.next:=nil;
   last^.next:=Q;
   Last:=Q;
 End;
 
{====vivod na ekran spiska====}
procedure print(head:TElement);
var Q:TElement;  l:integer;
Begin
 
 Q:=head^.next;
 while Q<>nil do
  Begin
   write(Q^.a,'-->');
   Q:=Q^.next;
  End;
 writeln;
 
End;
procedure print1(head:TElement);
var Q:TElement;  l:integer;
Begin
 Q:=head^.next;
 n:=1;
 while (Q<>nil) or (n<>k) do
  Begin
  write(Q^.a,'-->');
  Q:=Q^.next;
  inc(n);
  End;
  Q:=Q^.next;
  while (Q<>nil) or (n<>m) do
  Begin
  write(Q^.a,'-->');
  Q:=Q^.next;
  inc(n);
  end;
  write(f,'-->');
    while Q<>nil do
  Begin
   write(Q^.a,'-->');
   Q:=Q^.next;
   inc(n);
   end;
 writeln;
 
End;
 
Begin
clrscr;
 
createhead(head,last);
 n:=1;
 write('k - ');
 readln(k);
 Write('m - ');
 readln(m);
 textcolor(6);
 write(n,'. ');
 textcolor(9);
 readln(f);
 
 if n=k then
 x:=f;
 inc(n);
 
 if f<>0 then
  Begin
   while f<>0 do
    Begin
     add(last,f);
     textcolor(6);
     write(n,'. ');
     textcolor(9);
     readln(f);
     if n=k then
     x:=f;
     inc(n);
    End;
 
   End
 else Begin textcolor(214);Writeln('spisok pust'); readln; Exit; End;
textcolor(13);
print(head);
print1(head);
write(x);
readln;
End.
Добавлено через 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
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
Program spiski;
uses crt;
Type
TElement=^element;
 Element=record
 a:integer;
 next:TElement;
End;
var Q,last,head:TElement; i,n,k,m,c,f,x:integer;
 
{====sozdanie spiska====}
procedure createhead(var head,last:TElement);
Begin
 new(head);
 head^.next:=nil;
 last:=head;
End;
 
{====zapolnenie spiska=====}
Procedure add(var last:TElement; Z:integer);
var Q:TElement;
Begin
  new(Q);
   Q^.a:=Z;
   Q^.next:=nil;
   last^.next:=Q;
   Last:=Q;
 End;
 
{====vivod na ekran spiska====}
procedure print(head:TElement);
var Q:TElement;  l:integer;
Begin
 
 Q:=head^.next;
 while Q<>nil do
  Begin
   write(Q^.a,'-->');
   Q:=Q^.next;
  End;
 writeln;
 
End;
procedure print1(head:TElement);
var Q:TElement;  l:integer;
Begin
 Q:=head^.next;
 n:=1;
 while (Q<>nil) or (n<>k) do
  Begin
  write(Q^.a,'-->');
  Q:=Q^.next;
  inc(n);
  End;
  Q:=Q^.next;
  while (Q<>nil) or (n<>m) do
  Begin
  write(Q^.a,'-->');
  Q:=Q^.next;
  inc(n);
  end;
  write(f,'-->');
    while Q<>nil do
  Begin
   write(Q^.a,'-->');
   Q:=Q^.next;
   inc(n);
   end;
 writeln;
 
End;
 
Begin
clrscr;
 
createhead(head,last);
 n:=1;
 write('k - ');
 readln(k);
 Write('m - ');
 readln(m);
 textcolor(6);
 write(n,'. ');
 textcolor(9);
 readln(f);
 
 if n=k then
 x:=f;
 inc(n);
 
 if f<>0 then
  Begin
   while f<>0 do
    Begin
     add(last,f);
     textcolor(6);
     write(n,'. ');
     textcolor(9);
     readln(f);
     if n=k then
     x:=f;
     inc(n);
    End;
 
   End
 else Begin textcolor(214);Writeln('spisok pust'); readln; Exit; End;
textcolor(13);
print(head);
print1(head);
write(x);
readln;
End.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.12.2015, 16:26

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

Обработка списков
Список состоит из букв и цифр, буквы оставить без изменения, а цифры умножить на 2.

Обработка списков
Помогите защитить учебную практику. Заранее спасибо

Обработка списков
В коде, в строке head_list(list). появилась ошибка No clauses for this predicate. Но...

Обработка списков
1. Используя только CAR и CDR вытащить 'aaa' и следующего списка: (((( ddd (aaa)) eee) nnn) kkk) ...


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

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

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