Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Turbo Pascal] Двусвязный список. 
:(
    Опции темы
Rishat
Дата 12.1.2007, 23:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 12.1.2007

Репутация: нет
Всего: нет
Завтра зачет, а мне срочно надо выполнить одно задание по теме:"Двусвязный список", а у меня не получается, незнаю что и делать, последний мой шанс обратиться к вам, уважаемые программисты!

Вот та самая задачка:




Составить программу, которая удаляет из списка L второй элемент, если такой есть. 


помогите, пожалуйста ее решить.

Заранее большой респект и человеческое спасибо!!! 
PM MAIL   Вверх
Igor_St
Дата 13.1.2007, 01:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 18.9.2006

Репутация: нет
Всего: нет
Как вариант ... 
Код


type PNode=^TNode
        TNode=record 
          Tinfo:integer;
          prev:PNode;
          next:PNode;
         end;

var L,Head,help:PNode; //L- указатель на начало списка

begin
....
new(Head);
if L<>nil then 
 Head:=L;
if Head^.next<>nil then
  begin
   help:=head^.next;
   Head^.next:=Help^.next;
   Help^.next^.prev:=Head^.next;
   dispose(help);    
  end
else writeln('No elements!');
dispose(Head);
....
end;
PM MAIL   Вверх
Igor_St
Дата 13.1.2007, 01:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 18.9.2006

Репутация: нет
Всего: нет
как то я поторопился, здесь должно быть немного не так  smile 
ща исправим...
PM MAIL   Вверх
Igor_St
Дата 13.1.2007, 02:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 18.9.2006

Репутация: нет
Всего: нет
кажись так должно быть  smile 
Код

type PNode=^TNode
        TNode=record 
          Tinfo:integer;
          prev:PNode;
          next:PNode;
         end;

var L,Head,help:PNode; //L- указатель на начало списка

begin
....
if L<>nil then 
 Head:=L;
if Head^.next<>nil then
  begin
   help:=head^.next;
   Head^.next:=Help^.next;
   if Help^.next<>nil then
   Help^.next^.prev:=Head;
   dispose(help);    
  end
else writeln('No elements!');
....
end;
PM MAIL   Вверх
volvo877
Дата 13.1.2007, 03:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116
Цитата(Igor_St @  13.1.2007,  01:20 Найти цитируемый пост)
кажись так должно быть

Не совсем... Ты не учел еще один вариант - если в списке есть только один элемент, тогда произойдет вот что::
Код

if L<>nil then 
 Head:=L;

{
  ... кстати, вот тут тоже не совсем хорошо: а если L = Nil,
  что тогда? Надо просто заключить все, что здесь написано в Begin/End ...
}

if Head^.next<>nil then { <--- Хорошо, Head ненулевой, проверено... }
  begin
   help:=head^.next; { <--- и здесь тоже нет проблем, все валидно }
   Head^.next:=Help^.next; { <--- Проблема - здесь... Где проверка на НЕнулевой Help ? }
   if Help^.next<>nil then
   Help^.next^.prev:=Head;
   dispose(help);    
  end
else writeln('No elements!');


Если есть первй элемент, но нет второго - программа просто вылетит при попытке перейти по нулевому указателю...
PM MAIL   Вверх
Igor_St
Дата 13.1.2007, 23:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 18.9.2006

Репутация: нет
Всего: нет
а проверка на 
Код

...
if head^.next<>nil then
...

а это по-твоему проверка чего
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0732 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.