![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Everveit |
![]()
Сообщение
#1
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 15 Пол: Женский Репутация: ![]() ![]() ![]() |
Надо добавить элемент вслед за к-ым. Что здесь не правильно? Сейчас он ставит его вслед за к-ым, но при этом удаляет всё, что после него.
Procedure AddNewNode (var p:Dlist; info,k:integer);
var
q:Dlist;
i:integer;
begin
i:=1;
New(q);
if (p = nil) then
begin
writeln ('vvedite info:');
readln(info);
q^.info:=info;
q^.next:=q;
q^.prev:=q;
p:=q;
exit;
end
else begin
writeln ('vvedite k:');
readln (k);
q:=p^.next;
while (q<>p) and (i<k) do
begin
q:=q^.next;
i:=i+1;
end;
if i<>k then
writeln ('nepravilniy nomer')
else begin
if (i=k) then begin
writeln ('vvedite info:');
readln(info);
q^.info:=info;
q^.prev:=p^.prev;
q^.next:=p;
p^.prev^.next:=q;
p^.prev:=q;
end;
end;
end;
end;
|
![]() ![]() |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Цитата Что здесь не правильно? Последовательность действий... Ты должен сначала найти место, в которое будешь добавлять новый элемент, и только потом забирать память через New, иначе у тебя просто будет утечка памяти, ты ж не удаляешь нигде тот элемент, после выделения памяти для которого происходит ошибка "nepravilniy nomer"...Ну, а само добавление будет делаться так: (пусть q - адрес элемента, ПОСЛЕ которого должен быть добавлен новый) new(pp); { <--- новая переменная, не используй то, что уже используется где-то }
pp^.next := q^.next;
pp^.prev := q;
pp^.next^.prev := pp;
q^.next := pp;
pp^.info := ...
|
Everveit |
![]()
Сообщение
#3
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 15 Пол: Женский Репутация: ![]() ![]() ![]() |
Спасибо большое за совет.
![]() |
Everveit |
![]()
Сообщение
#4
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 15 Пол: Женский Репутация: ![]() ![]() ![]() |
Слушай! Всё почти-почти получается за исключением мааааленькой детали. Теперь он добавляет его не после к-ого, а на одну дальше! Например, я говорю "к=2", а он мне ставит его на 4-ую позицию...Это должно быть что-то простое...
![]() Procedure AddNewNode (var p:Dlist; info,k:integer);
var
newnode:Dlist;
q,pp:Dlist;
i:integer;
begin
i:=1;
if (p = nil) then
begin
New(q);
writeln ('vvedite info:');
readln(info);
q^.info:=info;
q^.next:=q;
q^.prev:=q;
p:=q;
exit;
end
else begin
writeln ('vvedite k:');
readln (k);
{if k=1 then p:=q;}
q:=p^.next;
while (q<>p) and (i<k) do
begin
q:=q^.next;
i:=i+1;
end;
if i<>k then
writeln ('nepravilniy nomer')
else begin
if (i=k) then begin
new(pp);
writeln ('vvedite info:');
readln(info);
pp^.next:=q^.next;
pp^.prev:=q;
pp^.next^.prev:=pp;
q^.next:=pp;
pp^.info:=info;
end;
end;
end;
end;
Сообщение отредактировано: volvo - 12.05.2010 20:59 |
volvo |
![]()
Сообщение
#5
|
Гость ![]() |
Так работает?
procedure AddNewNode(var p:Dlist; info:integer);
{ Зачем тебе передавать К, если ты все равно его запрашиваешь? }
var
q, pp:Dlist;
i, k:integer;
begin
if p = nil then begin
New(q);
writeln ('vvedite info:');
readln(info);
q^.info :=info;
q^.next := q;
q^.prev := q;
p := q; { Здесь Exit был лишним }
end
else begin
writeln('vvedite k:');
readln(k);
q := p^.next; i := 1;
if p = q then dec(i);
while (q <> p) and (i < k - 1) do begin
q := q^.next;
i := i + 1;
end;
if i <> k - 1 then writeln ('nepravilniy nomer')
else begin
new(pp);
writeln('vvedite info:');
readln(info);
pp^.next := q^.next;
pp^.prev := q;
pp^.next^.prev := pp;
q^.next := pp;
pp^.info := info;
end;
end;
end;
|
Everveit |
![]()
Сообщение
#6
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 15 Пол: Женский Репутация: ![]() ![]() ![]() |
ДАААААА!!!!!!!!!!!!!!!!!!!!
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
![]() ![]() |
![]() |
Текстовая версия | 26.07.2025 8:40 |