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

После каждого элемента списка добавьте ту часть списка, которая была перед ним

03.04.2017, 19:26. Показов 1725. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Пусть дан список. После каждого элемента списка добавьте ту часть списка, которая была перед ним.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.04.2017, 19:26
Ответы с готовыми решениями:

После каждого элемента списка добавить предшествующую ему часть списка
Пусть дан список. После каждого элемента добавьте предшествующую ему часть списка. Не совсем...

Обработка списка: после каждого нуля добавить предшествующую часть списка
Дан список чисел, нужно после каждого нуля добавить предшествующую часть списка. Написал что-то, но...

Вставить после каждого нечетного элемента первого списка наибольший элемент второго списка
Сформировать два списка из N целочисленных случайных элементов (N – вводится пользователем, ...

Удалить из каждого списка два элемента после каждого элемента с нечетным значением и подсчитать количество удаленных
Вот честно не пойму как это сделать буду очень благодарен если кто-то поможет

2
Эксперт Pascal/Delphi
6810 / 4567 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
05.04.2017, 19:23 2
Возьмите за основу:
Добавление и удаление элементов в список
1
0 / 0 / 2
Регистрация: 20.11.2016
Сообщений: 14
06.04.2017, 19:22  [ТС] 3
Лучший ответ Сообщение было отмечено Memmento как решение

Решение

И как теперь реализовать условие?
После каждого элемента списка добавьте ту часть списка, которая была перед ним.
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
Program Spisok;
Type
TData = integer;
TPElem = ^Telem;
TElem = record
Data: TData;
PNext: TPElem;
end;
 
TDList = record
Cnt : integer;
PFirst, PLast: TPElem;
end;
 
Procedure Add(var aList : TDList; const aData : TData);
var
  PElem : TPElem;
begin
  New(PElem);
  PElem^.Data := aData;
  PElem^.PNext := nil;
  if aList.PFirst = nil then
    aList.PFirst := PElem
  else
    aList.PLast^.PNext := PElem;
  aList.PLast := PElem;
  Inc(aList.Cnt);
end;
 
Procedure WorkAdd(var aList: TDList);
var
S: String;
Data: TData;
Code: Integer;
begin
repeat
Write('Element №', aList.Cnt + 1, ': ');
Readln(S);
if S <> '' then begin
Val(S, Data, Code);
if Code = 0 then
Add(aList, Data)
    end;
  until S = '.';
end;
 
Procedure LWriteln(var aList : TDList);
var
  PElem : TPElem;
  i : Integer;
begin
  PElem := aList.PFirst;
  i := 0;
  while PElem <> nil do begin
    Inc(i);
    if i > 1 then Write(', ');
    Write(PElem^.Data);
    PElem := PElem^.PNext;
  end;
  if i = 0 then
    Writeln('Список пуст.')
  else
    Writeln;
end;
 
Var
  L : TDList;
  Begin
  WorkAdd(L);
begin
        Writeln('Содержимое списка:');
        LWriteln(L);
        end;
          end.
0
06.04.2017, 19:22
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.04.2017, 19:22
Помогаю со студенческими работами здесь

Для каждого элемента списка напечатайте число отрицательных элементов, следующих за ним
Пусть дан список вещественных чисел. Для каждого элемента списка напе- чатайте число отрицательных...

Для каждого элемента списка напечатать число отрицательных элементов, следующих за ним
Помогите пожалуйста,нужно сделать задачу,вообще не знаю как делать((( Дан список вещественных...

Для каждого элемента списка напечатайте число отрицательных элементов, следующих за ним
Пусть дан список вещественных чисел. Для каждого элемента списка напечатайте число отрицательных...

Функция, которая возвращает список булевских значений четности каждого элемента заданного элемента целочисленного списка
Определите рекурсивные функции для решения задачи. НЕ РЕКОМЕНДУЕТСЯ использовать функции высших...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru