Задача на списки Опции

[dream-x]

Вот так вот:
1. исходный список: <5, 6, 7, 8, 9> элемент P = 7
2. текущий элемент = 5, меньше P, оставляем без изменения получем <5, 6, 7, 8, 9>
3. текущий элемент = 6, меньше P, оставляем без изменения т.к. он и так 2-ой получем <5, 6, 7, 8, 9>
4. текущий элемент = 7, равен P, переносим еговначало но после 5 т.к. 5 это начало списка получем <5, 7, 6, 8, 9>
5. текущий элемент = 8, больше P, переносим в конец получем <5, 6, 7, 9, 8>
6. текущий элемент = 9, больше P, переносим в конец получем <5, 6, 7, 8, 9>

[dream-x]

Вот еще вопрос появился , я список перегнал в однородный массив и как мне теперь вставить элемнт между элементами массива... Например есть массив <1 2 3 4 5 6> как мне всавить 3 между единицей и 2 чтобы получилось так <1 3 2 4 5 6>

[compiler]

Вот еще вопрос появился , я список перегнал в однородный массив и как мне теперь вставить элемнт между элементами массива... Например есть массив <1 2 3 4 5 6> как мне всавить 3 между единицей и 2 чтобы получилось так <1 3 2 4 5 6>

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

[dream-x]

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

Массивами это я как вариант...

[compiler]

Массивами это я как вариант...

смотрим примеры работы со списками и пишем аналогично(примеры можно взять с любого учебника или поискать по форуму)

[dream-x]

Задание слегка изменилось но суть таже... Составить программу вставки элемента O после каждого элемента списка, превышающее некоторое значение Р.
Вот код... но есть проблема он стирает последующие символы...

Program Spisok;
Uses CRT;
Type
    TData=integer;
    PLink=^TElement;
    TElement=Record
                  Data:TData;
                  Link:PLink;
            End;
{----------------}
Procedure InPutList(Var List:PLink);
Var
   ElNew:PLink;
   Value:TData;
   i,n:Integer;
Begin
     ClrScr;
     WriteLn('vvedite kol-vo elementov spiska ');
     ReadLn(n);
    { List:=NIL;}
     For I:=1 To n Do
         Begin
              WriteLn('vvedite ',i,' element');
              Read(value);
              New(ElNew);
              ElNew^.Data:=Value;
              ElNew^.Link:=List;
              List:=ElNew;
        End;
End;
{----------------}
Procedure OutPutList(List:PLink);
Var
   i:integer;
Begin
     WriteLn('element spiska ');
     While List <> NIL Do
           Begin
                Write(List^.Data,' ');
                List:=List^.Link;
           End;
     WriteLn;
End;
{----------------}
Procedure Insert(var q,l:PLink; x:TData);
Var
   r:PLink;
Begin
New®;
R^.Data:=x;
R^.Link:=Q^.Link;
Q^.Link:=R;
l^.link:=R;
End;
{---------------------}
Var
   List1,Elem,NewElem:PLink;
  o, i,n,p:Integer;
   ff:boolean;
{----------------}
Begin
     InPutList(List1);
     OutPutList(List1);
     Write('wedite P=');
     Readln(P);
     Write('wedite O=');
     Readln(O);
     Elem:=List1;
     NewElem:=List1;
     i:=0;
{----------------------------------}
     While Elem <> NIL Do
           Begin
                If Elem^.Data>p
                Then
                    Begin
                         insert(Elem,NewElem,O);
                         OutPutList(NewElem);
                         i:=I+1;
                         Writeln('*****',i,'*****');
                    End;
                Elem:=Elem^.Link;

           End;
readkey
End.

я не могу понять почему он затирает последующие символы...

[compiler]

Вот код... я не могу понять почему он затирает последующие символы...

чесно говоря, я тоже не очень понимаю твою программу... но если заменить insert, на что-то подобное

procedure insert(var p_now:PLink; const data:TData);
var
   p_new:PLink;
begin
   new(p_new);
   p_new^.data := data;
   p_new^.link := p_now^.link;
   p_now^.link := p_new;
end;

то, вроде, функциональность уже ближе к желаемой...
я так и не понял, почему ты туда хочешь передавать три параметра... и еще у тебя в программе есть не используемые переменные. и,если разговор зашел о переменных, я продолжаю рекомендовать объявлять глобальные переменные ПОСЛЕ процедур..

Сообщение отредактировано: compiler - 6.05.2008 19:06

[dream-x]

чесно говоря, я тоже не очень понимаю твою программу... но если заменить insert, на что-то подобное

procedure insert(var p_now:PLink; const data:TData);
var
   p_new:PLink;
begin
   new(p_new);
   p_new^.data := data;
   p_new^.link := p_now^.link;
   p_now^.link := p_new;
end;

то, вроде, функциональность уже ближе к желаемой...
я так и не понял, почему ты туда хочешь передавать три параметра... и еще у тебя в программе есть не используемые переменные. и,если разговор зашел о переменных, я продолжаю рекомендовать объявлять глобальные переменные ПОСЛЕ процедур..

Спасибо!!! Ну что такое, всего-то надо было присвоить ссылке следующее значение и все еще раз спасибо огромное, все понятно. Что-то я ступил...

[compiler]

Спасибо!!!

всегда пожалуйста...

Что-то я ступил...

посмотри еще примеры... и попытайсяя делать код "чище"...

[dream-x]

всегда пожалуйста...
посмотри еще примеры... и попытайсяя делать код "чище"...

Еще раз спасибо! Все учту...
З.Ы. А щас курсач доделывать буду...

Добавлено через 5 мин.
Если кому нужна эта задача то вот исходник


Сообщение отредактировано: dream-x - 6.05.2008 23:48

[compiler]

прошу прощения за оффтоп..

А щас курсач доделывать буду...

это был курсач? если не секрет, где такие "курсачи" дают и на каком курсе...
или курсач на другую тему?

онтоп
а лишние переменные ты так и не убрал...

Сообщение отредактировано: compiler - 6.05.2008 23:54

[dream-x]

прошу прощения за оффтоп..

это был курсач? если не секрет, где такие "курсачи" дают и на каком курсе...
или курсач на другую тему?

онтоп
а лишние переменные ты так и не убрал...

Нет курсач у меня Пятнашки у меня там проблема с записью в файл имя игрока и его рекорд...
А ссылки это так лаба была...

[compiler]

Нет курсач у меня Пятнашки у меня там проблема с записью в файл имя игрока и его рекорд...
А ссылки это так лаба была...

курс? учебное заведение?

и это переменные нашёл? у тебя их там три штуки...
и OutPutList ты до ума не довел... заведи там отдельную переменную(зато сократится одна глобальная), но не меняй входные данные...
и напоследок, освобождение памяти тоже делать надо...

[dream-x]

курс? учебное заведение?

и это переменные нашёл? у тебя их там три штуки...
и OutPutList ты до ума не довел... заведи там отдельную переменную(зато сократится одна глобальная), но не меняй входные данные...
и напоследок, освобождение памяти тоже делать надо...

1 курс, Рязанский Радиотехнический Государственный Университет спец, САПР ВС...
это я щас все сделаю... а про память это как ее освоюождать?

Сообщение отредактировано: dream-x - 7.05.2008 2:15

[compiler]

Рязанский Радиотехнический Государственный Университет

интересно... а я тоже собираюсь в такой же поступать, только в Харьковский)

это я щас все сделаю...

ну , тут, батенька, поиск.. даже в ЧаВо єто есть, если псевдокодом..

Код

процедура освобождения(var список)
var
  указатель_на старый_элемент
begin
  пока список не указывает на нил[не речка)] begin
    старому элементу присвоить текущие значение(список)
    список указывает на следующий элемент
    освободить старый элемент(dispose(p_old);)
  end;
end;

[volvo]

Если кому нужна эта задача то вот исходник

Не могу понять программистов, которые делают непонятные (интуитивно) программы...

Если я ввожу данные в список так:
<1, 2, 3, 4, 5> - почему тут же получаю распечатку в виде:
<5, 4, 3, 2, 1> ? Что, настолько сложно сделать добавление в конец списка? Всего навсего:

Procedure InPutList(Var List:PLink);
Var
   ElNew, Tail: PLink;
   Value:TData;
   i,n:Integer;
Begin
     ClrScr;
     WriteLn('vvedite kol-vo elementov spiska ');
     ReadLn(n);

     List := nil; Tail := nil;
     For I:=1 To n Do
         Begin
              WriteLn('vvedite ',i,' element');
              Read(value);
              New(ElNew);
              ElNew^.Data:=Value;
              ElNew^.Link:=nil;

              if List = nil then List := ElNew
              else Tail^.Link := ElNew;

              Tail := ElNew;
        End;
End;

неужели настолько много изменилось?

Второе: по условию -

Программа должна переставить элементы списка по следующему звкону: если текущий элемент больше некоторого числа Р то поместитьследующий заним элемент в конец цепочки; если текущий элемент меньше или равен Р перенести его в начало цепочки (первый оставить безизменения)

Все. Точка... Вводить надо только список и значение P. С какой стати программа требует ввода какого-то O? Хоть бы объясняла, зачем оно, а то, собственно, что вводить-то?

Добавлено через 11 мин.
P.S. Опять же... Основная программа:

...
                         insert(Elem,O);
                         OutPutList(NewElem); { <--- Это значение что, где-то инициализировалось? }
...

Нет... Зачем выводить пустоту?

А при вводе в O значения, которое превышает P (я не знаю, что туда надо было вводить, поэтому экспериментирую в режиме телепатии) программа вообще зацикливается...

[dream-x]

А при вводе в O значения, которое превышает P (я не знаю, что туда надо было вводить, поэтому экспериментирую в режиме телепатии) программа вообще зацикливается...

Уважаемый volvo вот собственно задание: Составить программу вставки элемента O после каждого элемента списка, превышающее некоторое значение Р. Вот код... но есть проблема он стирает последующие символы...

[volvo]

но есть проблема он стирает последующие символы...

Я тебе написал, какие у тебя ЕЩЕ проблемы в коде... В условии не сказано, что вводимое значение O должно быть меньше, чем значение P, правда?

Вводим O = 8 и P = 3 при списке = <5, 4, 3, 2, 1> и получаем зацикливание... Если хочешь - расскажу, в чем причина зацикливания, но тебе будет полезнее пройтись по программе в режиме отладки и найти ошибку самостоятельно...

А все потому, что ты не хочешь делать так, как нужно (а как нужно - написано в FAQ-е, в теме про ДСД), а хочешь все время сделать по-своему, к тому же неправильно, и при этом еще утверждаешь, что программа у тебя рабочая (см. свой же пост №30)

[dream-x]

Я тебе написал, какие у тебя ЕЩЕ проблемы в коде... В условии не сказано, что вводимое значение O должно быть меньше, чем значение P, правда?

Вводим O = 8 и P = 3 при списке = <5, 4, 3, 2, 1> и получаем зацикливание... Если хочешь - расскажу, в чем причина зацикливания, но тебе будет полезнее пройтись по программе в режиме отладки и найти ошибку самостоятельно...

А все потому, что ты не хочешь делать так, как нужно (а как нужно - написано в FAQ-е, в теме про ДСД), а хочешь все время сделать по-своему, к тому же неправильно, и при этом еще утверждаешь, что программа у тебя рабочая (см. свой же пост №30)

Я не заметил прошу прощение щас пройдусь и все посмотрю спасибо огромное!

[dream-x]

Вот собственно что я придумал... Но все равно он удаляет предшествующие элементы после 2 повторения цикла

procedure insert(var p_now,p_list:PLink; const data:TData);
var
   p_new:PLink;
begin
   new(p_new);
   p_new^.data := data;
   p_new^.link := p_now^.link;
   p_list := p_now;
   p_now := p_new;

   end;