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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Delphi] Исправление программного кода, ...чтобы работала процедура 
V
    Опции темы
I_Am_Rock
Дата 23.5.2009, 19:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 15
Точно! - не выполняется - потому что mbuf.next = nil. 
Но я добавил строчку
Код

mbuf.next:=curr.next;

И он ругается (вот почему я сразу так написал!)
Цитата

Project Project1.exe raised exception class EAccessViolation with message 'Access violation at adress 0045C39 in module 'Project1.exe'/ Read of address 00000010'. Process stoped. Use Sttop or Run to continue.

((
PM MAIL WWW   Вверх
mr.Anderson
Дата 23.5.2009, 20:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


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

Репутация: 16
Всего: 128
Выданный Access Violation означает, что ты обращаешься в область памяти, которая тебе не принадлежит.


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
I_Am_Rock
Дата 23.5.2009, 20:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 15
Понятно.
Ну, я всю работу в принципе сделал - из того, что я написал в первом посте, я убрал совсем неправильную сортировку, зато - прикрутил удаление элемента, удаление списка, подсчет суммы и среднего значения, поиск макимума и минимума, а сам список отображается в ЛистБоксе и обновляется автоматически (если галочка поставлена). Т.е. все супер. Жаль только без сортировки будет. хотя, может, еще сделаю.
mr.Anderson, большое спасибо за помощь! Плюсанул репутацию.  smile 
PM MAIL WWW   Вверх
mr.Anderson
Дата 23.5.2009, 20:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


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

Репутация: 16
Всего: 128
I_Am_Rock, благодарю. smile Заходи еще. smile 


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
I_Am_Rock
Дата 23.5.2009, 23:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 15
Я все-таки решил еще чуть поделать сортировку и стал еще чуть ближе к решению.
Но вот такой вопрос.
Почему список "2 5 1" алгоритм сортирует правильно - "5 2 1", а "1 5 2" - неправильно ("5 1")? 

Код

procedure TForm1.Button6Click(Sender: TObject);
var sorted:Boolean;
nbuf, mbuf : TPSpisok;
begin
sorted:=False;
curr:=head;
while sorted=False do begin
sorted:=True;
mbuf:=head;
mbuf.next:=head.next;
    while (mbuf<>nil) and (mbuf.next<>nil) do begin
     nbuf:=mbuf;
     mbuf:=mbuf.next;
      if mbuf.chislo > nbuf.chislo then begin
          nbuf.next:=mbuf.next;
          mbuf.next:=nbuf;
          if head=nbuf then head:=mbuf;
          mbuf:=mbuf.next;
          sorted:=False;
      end;
    end;
end;
end;


 smile  Уже всю голову сломал! (((
PM MAIL WWW   Вверх
I_Am_Rock
Дата 24.5.2009, 16:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 15
Все, сделал сортировку. smile
PM MAIL WWW   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

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


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

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

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

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


 




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


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

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