Список+указатели, Вставка нового элемента в список Опции

[Юличка]

Помогите составить программу, которая вставляет в список L
новый элемент F перед первым вхождением элемента Е,
если Е входит в L. Программа должна быть реализована
с применением динамических переменных (указателей).

[hiv]

Поиском надо пользоваться!
Здесь все есть: FAQ: Списки

[volvo]

Если список объявлен вот так:

Type
  point = ^item;
  item = record
    number: integer;
    next: point
  end;
Var my_root: point;

то процедура,

которая вставляет в список L новый элемент F перед первым вхождением элемента Е, если Е входит в L.

, будет такой:

procedure do_insert(x: integer);
var q: point;
begin
  search(my_root, x, q);
  if q <> nil then insert_before(q, x)
end;

Все остальное, что необходимо для создания списка и его заполнения - здесь:
FAQ: Динамические структуры данных - Списки

[НарКот]

Юлечка. Посмотри-ка
Количество элементов можешь изменить по своему усмотрению (const N=14)!!!

Исходный код

Uses Crt;
Type
Spis=^L;
L=record
El: Word;
Next: Spis
end;
Var
A:array[1..15] of Spis;
k,j,i,E,F:integer;
q:char;
const
N=14;
{===== =====}

{
данная функция ищет вхождение элемента Е
в список, и при его наличии в нем вставляет
впереди него элемент F
}
function Search(simb:integer):Spis;
var
i,j,k:integer;
Begin
k:=1;
For i:=1 To N Do
If A[i]^.El=E Then {проверка принадлежности элемента Е массиву данных }
Begin
For j:=N+1 DownTo i Do
A[j]^.El:=A[j-k]^.El; {сдвиг элементов массива начиная с элемента Е}
A[i]^.El:=F; {вправо на одну ячейку и запись}
Inc(k); {на место элемента Е элемента F}
Break;
End;
End;

repeat
ClrScr;
TextColor(red);
Randomize;
WriteLn('Превоначальный список');
For i:=1 To N Do New(A[i]); {Резервируем фрагменты кучи}
A[N+1]^.El:=0; {последнему элементу для удобства присваиваем 0}
For i:=1 To N Do
Begin
A[i]^.El:=Random(15);
WriteLn('*',A[i]^.El)
End;
A[N+1]^.Next:=Nil; {Стираем последний указатель }
{===== =====}
TextColor(blue);
Write(' Введите элемент списка Е= ');
ReadLn(E);
Write('Введите вставляемый в список элемент F= ');
ReadLn(F);
{===== =====}
Search(E);
TextColor(yellow);
WriteLn('Модифицированный список имеет вид: ');
For i:=1 To (N+1) Do
WriteLn('*',A[i]^.El);
WriteLn('Повторить ЕЩЕ?(Y/N)');
q:=ReadKey;
until not (q in ['Y','y']);
End.

[volvo]

НарКот, вообще-то здесь стараются НЕ давать полностью готовых решений, тем более - того, что можно найти в FAQ-е...

И уж совсем желательно воздерживаться от реализации списков через массивы, ты теряешь все их преимущества...

[Altair]

НарКот, более того, реализовать список на массивах просто невозможно.
Это будет обычный массив.
Вот на спиках и массивах уже можно организовывать различные АТД (абстрактые типы данных по терминологии А. Ахо), такие как стек, очередь, дерево, дек и другие.
Поскольку для них важны правила доступа к элементам АТД, а не реализация самих данных...

[Катюша]

а какой список нужно?

я могу попробовать :yessss:

Да, в принципе, пробовать-то нечего... Читаем ВНИМАТЕЛЬНО пост №3 (и идем по ссылке, там ВСЕ реализовано уже давным-давно...), кому-то так охота создать свой велосипед?

Сообщение отредактировано: volvo - 25.06.2005 4:42