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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Pascal]Динамическая_структура 
:(
    Опции темы
camakob
Дата 1.4.2009, 06:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Здравствуйте !
Дано задание:Используя очередь, решить следующую задачу. Содержимое текстового файла , разделенное на строки, переписать в текстовый файл g, перенося при этом в конец каждой строки все входящие в нее цифры (с сохранением исходного порядка как среди цифр, так и среди остальных литер строки). 
Я сделал, но преподаватель требует, чтобы
"Очередь необходимо реализовать как динамическую структуру данных. Каждую операцию работы с очередью необходимо оформить отдельной процедурой или функцией". 
Но в динамических структурах я полный ноль. Подскажите как выйти из положения.
PM MAIL   Вверх
volvo877
Дата 1.4.2009, 09:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 34
Всего: 116
Вот тебе пример организации очереди как ДСД:
Код
type
  T = char;
  link = ^item;
  item = record
    data: T;
    next: link;
  end;

  queue = record
    head, tail: link
  end;

procedure initQueue(var q: queue);
begin
  q.head := nil; q.tail := nil;
end;

procedure putQueue(var q: queue; value: T);
var p: link;
begin
  new(p);
  p^.next := nil;
  p^.data := value;

  if q.head = nil then q.head := p
  else q.tail^.next := p;

  q.tail := p;
end;

function getQueue(var q: queue; var value: T): boolean;
var p: link;
begin
  if q.head = nil then getQueue := false
  else begin
    getQueue := true;
    value := q.head^.data;
    p := q.head;
    q.head := q.head^.next;
    dispose(p);
  end;
end;

var
  ch: char;
  q: queue;

begin
  initQueue(q);
  for ch := 'a' to 'k' do putQueue(q, ch);

  while getQueue(q, ch) do begin
    write(ch:3);
  end;
end.
PM MAIL   Вверх
camakob
Дата 1.4.2009, 11:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Спасибо, будем разбираться.
PM MAIL   Вверх
camakob
Дата 1.4.2009, 12:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Извините за назойливость, но как эти процедуры связать например с переменной типа string, т. е . как с их помощью из 'ab123987cd' получить 'abcd123987' ?
PM MAIL   Вверх
volvo877
Дата 1.4.2009, 12:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 34
Всего: 116
Вот так, наверное:
Код
var
  i: integer;
  q_lett, q_dig: queue;
  s: string;
  ch: char;

begin
  initQueue(q_lett); initQueue(q_dig);

  s := 'ab123987cd';
  for i := 1 to length(s) do
    if s[i] in ['0' .. '9'] then putQueue(q_dig, s[i])
    else putQueue(q_lett, s[i]);

  s := '';
  while getQueue(q_lett, ch) do s := s + ch; { сначала берем все буквы }
  while getQueue(q_dig, ch) do s := s + ch; { а потом - цифры }

  writeln(s);
end.
?
PM MAIL   Вверх
camakob
Дата 1.4.2009, 13:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Спасибо большое, сейчас думаю разберусь.
PM MAIL   Вверх
camakob
Дата 1.4.2009, 14:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Все, программа работает. Для полного счастья объясните пожалуйста, что делают процедуры initQueue, putQueue, getQueue. И самый последний вопрос: порекомендуйте самую лучшую книгу по динамическим структурам данных.
PM MAIL   Вверх
volvo877
Дата 1.4.2009, 15:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 34
Всего: 116
Цитата(camakob @  1.4.2009,  13:30 Найти цитируемый пост)
что делают процедуры initQueue, putQueue, getQueue
initQueue инициализирует очередь (т.е., присваивает нулевые значения указателям на ее начало /head/ и конец /tail/). Если этого не сделать, то при работе с очередью возможны глюки.

А остальные... Ну, значит, так. Для очереди вообще-то определены только 2 операции: Put (добавить элемент в конец очереди) и Get (взять элемент из начала очереди). Вот это и делают putQueue и getQueue...


Цитата(camakob @  1.4.2009,  13:30 Найти цитируемый пост)
порекомендуйте самую лучшую книгу по динамическим структурам данных
А зачем тебе книга? Что ты хочешь, чтоб там было написано? Назначение структур? Их реализации на каких-то языках? Преимущества/недостатки? Что именно ты ждешь от книги?
PM MAIL   Вверх
camakob
Дата 1.4.2009, 15:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Спасибо за объяснения. Я жду от этой книги, чтобы там были примеры программ с объяснениями, именно на Паскале.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

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


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

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

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

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


 




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


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

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