Двунаправленный список Опции

[..::Даша::..]

Привет!
Поняв предидущую ошыбочку я переделала темку на:

Задание на Pascal-е:
------------------------------------------------------------------------------------------
"Нужно создать двунаправленный список. Информационую часть
заполнить с помощю random. Создать процедуру которая
будет добавлять 1 елемент после елемента первое поле которого >0.
Информационие поля типу - real+real. Количество елементов в списку - 5"
-------------------------------------------------------------------------------------------

мне тут помогли мемножно но... не до конца (

program SOD_L3;
uses crt;
Type mem=^element;
     element=record
          inf1:real;
          inf2:real;
          next:mem;
          prev:mem;
       end;

var first,list,key,x:mem;
    i,c:integer;
begin
  clrscr;
     randomize;
     New(first);
     first^.next:=nil;
     first^.prev:=nil;
     first^.inf1:=random(20);
     first^.inf2:=random(20);
     x:=first;
     for i:=1 to 5 do
     begin
      New(x^.next);
      x:=x^.next;
      x^.inf1:=random(20);
      x^.inf2:=random(20);
      x^.next:=nil;
     end;
{--------------------------------------}
     writeln('      -Spisok-');
     writeln('______________________');
     list:=first;
     c:=0;
     while list^.next <> nil do
      begin
       c:=c+1;
       write('|',c,'|',list^.inf1:6:2);
       writeln('  |',c,'|',list^.inf2:6:2,' |');
       list:=list^.next;
      end;
{-----------------------------------------}
     writeln;
     for i:=1 to 5 do
     begin
      while list^.next <> nil do
       begin
        if list^.inf1>0 then list^.inf2:=-1;

       end;
   end;

    Dispose(list);

    readln;
end.

//я очень рада что на форуме есть девочки и
на деюсь и на их помощь :-)
И кстати зайдите в мой фото альбом...

Добавлено через 2 мин.
------------------------------------------------------
Да, может кто-то имеет панятнинькую инфу?
Шлите, буду рада :-)
------------------------------------------------------

[Айра]

то есть тот кусочек кодика
и есть решение моей проблемки?

Не совсем.. тебе нужно его немного переделать.. чтобы он добавлял элемент имеено тогда, когда тебе нужно.
Главное в нем это:
допустим тебе нужно воткнуть элемент между 1-м и 2-м

New (x); <-создали ссылку на добавляемый элемент
Writeln ('?');
Readln (x^.i); <-создали элемент
p:= q^.next; <-запомнили указатель на 2-й элемент
q^.next:= x; <- теперь поле next первого элемента указывает на добавленный
x^.next:= p; <- а next добавленного на 2-й
x^.back:= q; <- и pred на первый
q:= p;
q^.back:= x; <- полю pred 2-го присвоили указатель на добавленный

Даш, тебе вообще понятно, что из себя представляет список?

[compiler]

я вижу "compiler" читает тему :-)
може ты поможеш? а...

спасибо, мне хватило прошлого топика.. давненько уже не возникали такие конфликты..

upd
скажи спасибо лучше Айре, мне б столько терпения не хватило...

Сообщение отредактировано: compiler - 14.05.2008 20:00