"Двунаправленный список" ---мальчики help плз., Маленькая помощь "Двунаправленный список" Опции

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

Приветик! :-) всем!
Мне нужна маленькая помощь )

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.

теперь нужно доделать тока "Додати 1 елемент після елементу, перше поле якого >0 "....

Пожалуйста помогите доделать потомучно срочненько нужно :-)...

Жду ответиков :-))

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

а-у-у- у
может хоть хто-то ответит?!
не может быть что никто не знает
как помоч мне(((

[compiler]

привет, Даша)
1) можно увидеть ВСЁ задание(можно на укр)
2) добавить надо после всех элементов удовлетворяющему условие или после первого/последнего?
3) что надо добавить?(какой элемент)

[volvo]

можно увидеть ВСЁ задание(можно на укр)

Угу... Только потом не надо удивляться, если тебе приведут решение на Algol-е или языке Ada, например... С комментариями, скажем, по-арабски... Чтоб тебе тоже все было понятно...

[compiler]

Угу... Только потом не надо удивляться, если тебе приведут решение на Algol-е или языке Ada, например... С комментариями, скажем, по-арабски... Чтоб тебе тоже все было понятно...

volvo, давай не offtop-ить.. Данная тема обсуждалась.. Национальные языки Если ты не согласен - то высказывайся по этому поводу там.
Если у меня будет задача дописать программу на языке Ada - я не буду против решения на данном языке, если бы я знал арабский, я не был бы против комментариев на нем.
Здесь был приведен урывок задания по-украински, если автору тяжело перевести, то я лучше прочитаю в оригинале чем читать не ясно что..

[mind abuse]

Вот нечто, посмотрите:

Код

Type sp = ^s;  {список}
     s = record
      i: integer;
      next: sp;
      back: sp;
     End;

Procedure Add_v_kon (first: sp);   {добавление в конец списка}
Var x, q: sp;
Begin
q:= first;
while (q^.next<>nil) do q:=q^.next;  {проходим в конец списка}
New (x);  {создаём новый элемент}
Readln (x^.i);
q^.next:= x;  {ссылаемся на новый элемент}
x^.next:= nil;
x^.back:= q;
End;
Procedure Add_v_nach (var first: sp);  {добавление в начало}
Var x: sp;
Begin
New (x);
Writeln ('?');
Readln (x^.i);
x^.back:= nil;
x^.next:= first;
first:= x;
End;
Procedure Add_tuda_pered (first: sp; k: integer);  {добавление перед к-атым элементом}
Var h: integer;
    x, p, q: sp;
Begin
q:= first;
For h:=1 to k-2 do q:= q^.next;
New (x);
Writeln ('?');
Readln (x^.i);
p:= q^.next;  x^.back:= q; q^.next:= x;
q:= p;
x^.next:= p;
q^.back:= x;
End;
Procedure Add_tuda_posle (first: sp; k: integer);  {добавление после к-атого элемента}
Var h: integer;
    x, p, q: sp;
Begin
q:= first;
For h:=1 to k-1 do q:= q^.next;
New (x);
Writeln ('?');
Readln (x^.i);
p:= q^.next;
q^.next:= x;
x^.next:= p;
x^.back:= q;
q:= p;
q^.back:= x;
End;

Procedure Del_to (var first: sp; k: integer);  {удалить к-атый элемент}
Var p, q: sp; h: integer;
Begin
If k<>1 then
Begin
  q:= first;
  For h:= 1 to k-2 do q:= q^.next;
  p:= q^.next;
  q^.next:= p^.next;
  q:= p^.next;
  q^.back:= p^.back;
  Dispose (p);
End else
Begin
  p:= first;
  first:= first^.next;
  Dispose (p); q:= first; q^.back:= nil;
End;
End;

Ну и конечно Все о динамических структурах данных.

[volvo]

Если у меня будет задача дописать программу на языке Ada - я не буду против решения на данном языке, если бы я знал арабский, я не был бы против комментариев на нем.

Вся фишка - в том, что ТЫ знаешь украинский, может еще несколько человек... Форум русскоязычный, если мне не изменяет зрение...

Если ты не согласен - то высказывайся по этому поводу там.

Благодаря некоторым высказываниям (тебе напомнить, ЧЬИМ???) у меня ОЧЕНЬ ограничено перемещение по разделам форума! То, что раздел доступен ТЕБЕ еще не значит, что он доступен всем... И не надо мне указывать, где оффтоп, а где нет, я как-нибудь сам разберусь...

[Айра]

мальчики help плз

И как наши мальчики кинулись отвечать.. С чего б такое рвение?

если автору тяжело перевести

Чет не похоже, что автору это сложно..

[мисс_граффити]

мальчики help плз.

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

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

это право Даши как свободного человека в свободной стране. Как и выкладывать собственные откровенные фотки.

[renesko1]

А я вот специально не отвечал .
Я считаю, что такая форма общения :

Код

мальчики help плз

и тд. несколько
бесцеремонна и может вызвать отрицательные мысли у участников форума.
Извеняюсь что пост не по существу вопроса и сугубо субьективный.

[andriano]

[off]

Оль, наша помощь автору темы не нужна
...
это право Даши как свободного человека в свободной стране. Как и выкладывать собственные откровенные фотки.

Юль, тут еще надо разобраться, Даша - это сокращение от Дмитрий, Даниил или Дарий, а также чья именно выложена фотка.
[/off]

[off]Наиболее разумным для плохо владеющих русским языком авторов представляется выкладывать текст на 2-3 языках: родном, а также свой вариант перевода на русский и английский.
[/off]

[Lapp]

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