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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Pascal]Двусвязный кольцевой список, несколько процедур 
:(
    Опции темы
Fuaran8989
  Дата 12.5.2008, 19:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
[Pascal]Двусвязный кольцевой упорядоченный список(модули)
нужно написать следующие процедуры:

-перемещение по списку(стрелки)

-включение нового узла(Ins)

-Исключение узла(del)

-очистка списка(F8)

-Сохранение содержимого списка в файле(F2)

-Чтение содержимого списка из файла(F3)

-Выход из программы(Esc)

Это сообщение отредактировал(а) Fuaran8989 - 12.5.2008, 19:33
PM MAIL   Вверх
Wedafl
Дата 15.5.2008, 16:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 12.5.2008
Где: Москва

Репутация: нет
Всего: нет
Вам обязательно паскаль? Дельфи не подойдет?
PM MAIL ICQ   Вверх
Fuaran8989
Дата 16.5.2008, 19:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
да к сожалению паскаль но я думаю если дельфи то там сильные отличия? попытаюсь переправить или сдать в дельфи..
PM MAIL   Вверх
Fuaran8989
Дата 19.5.2008, 17:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
ну так что?
PM MAIL   Вверх
Fuaran8989
Дата 25.5.2008, 15:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
хелп плз! сессия горит!!
PM MAIL   Вверх
lemuriaIATE
Дата 26.5.2008, 00:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: 1
Всего: 1
посмотри здесь
PM MAIL ICQ   Вверх
Fuaran8989
Дата 26.5.2008, 17:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
вот пара процедур. требуются остальные особенно с перемещением по списку не представляю как делать

Код
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; 
  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;


procedure DeleteNode(var p:Dlist);
var
  q: dlist;
  i, k: integer;
begin
  if p = nil then writeln ('spisok pust')
  else begin

    i := 1;
    writeln ('vvedite k:');
    readln (k);

    if k > 1 then begin

      q := p^.next;
      while (q <> p) and (i<>k-1) do begin
        q := q^.next;
        inc(i);
      end;

    end
    else begin { k = 1 }
      i := 0; q := p;
    end;

    if i <> k-1 then writeln ('uzel ne naiden')
    else
      if q^.next = q then begin
        p := nil;
        dispose(q);
      end
    else begin
      if q = p then p := p^.next;

      q^.prev^.next := q^.next;
      q^.next^.prev := q^.prev;
      dispose (q);
    end;
  end;
end;
PM MAIL   Вверх
DDV
Дата 26.5.2008, 17:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Посмотри по форуму я эту прогу где-то видел.

Это сообщение отредактировал(а) DDV - 26.5.2008, 17:53
PM MAIL   Вверх
Fuaran8989
Дата 26.5.2008, 18:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Нашел похожие но для линейного списка...
PM MAIL   Вверх
Wedafl
Дата 27.5.2008, 05:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 12.5.2008
Где: Москва

Репутация: нет
Всего: нет
Вот недавно делал http://dassm.narod.ru/Relise/DCList.rar
Смотрите файл untDCList.pas достаточно подробно прокоментированно, многое должно работать и на паскале.
Основное отличие вашего списка будет в том что у него нет указателя на хвост( fLast в моем исходнике), потому что у последнего в списке элемента(узла) указатель на следующий элемент указывает на голову (в моем исходнике fFirst).

Это сообщение отредактировал(а) Wedafl - 27.5.2008, 05:13
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

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


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

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

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

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


 




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


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

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