| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
однонаправленные списки [D7, XP]
Nostalgia © (2008-12-19 21:56:00)Здравствуйте! подскажите как сделать данное задание. Дан список В, который состоит из записей: первое поле - слова из 10 литер, второе - адрес следующего элемента. нужно составить программу для удаления последнего элемента списка.
Anatoly Podgoretsky (2008-12-20 22:14:00) [21]
> antonn © (20.12.08 22:00) [32]
Они и решают, а вот обсуждение данного вопроса решают модераторы.
{RASkov} (2008-12-20 22:12:00) [22]Весело у вас тут :)
Nostalgia наверное в шоке)
antonn (2008-12-20 22:00:00) [23]
> Давайте с вопросами давать код или нет в Прочее.
Давайте сами участники будут сами решать, дать код или нет.
Это все таки форум.
app (2008-12-20 20:49:00) [24]> Leonid Troyanovsky (20.12.2008 18:22:30) [30]
Давайте с вопросами давать код или нет в Прочее.
Leonid Troyanovsky (2008-12-20 18:22:00) [25]
> Тын-Дын © (20.12.08 18:00) [29]
> С этого и начинается в большинстве случаев обучение. После
> просмотра, изучения кода, попыток написания собственного,
> и начинается уже собственно учёба.
В большинстве случаев - белые начинают и заканчивают.
Ну, а, собс-но, учеба никогда не заканчивается.
--
Regards, LVT.
Тын-Дын (2008-12-20 18:00:00) [26]
> Denis__ © (20.12.08 17:43) [28]
Ты исходишь немного не из тех предпосылок по поводу кода в инете.
Подумай на досуге - почему авторы книг в своих текстах не только приводят готовый рабочий код, но и прикладывают диски с исходниками?
Ведь оттуда ещё проще скопировать код - и искать не надо.
На самом деле значительно проще изучать готовый исходник. С этого и начинается в большинстве случаев обучение. После просмотра, изучения кода, попыток написания собственного, и начинается уже собственно учёба.
Denis__ (2008-12-20 17:43:00) [27]
> Не стоит считать себя учителем.
Гыыыы)))) Да я и не считаю. Просто мне кажись, мозги начали вправлять в универе. Да и тут тоже, спасибо отдельным людям.
> Leonid Troyanovsky © (20.12.08 17:32) [27]
> Эх, Денис. Тут уж ничего никому не повредит.А код - пусть
> уж будет, мало ли его в инете.И не факт, что его прочитают
> или применят.Кста, на наши тусовки и преподы заходят :)
Поиск в инете - тоже обучение)) Помню, год-два назад я тут тоже код выпрашивал. и на ДК. и на исходниках)) Каюсь. Списки и др. динамические недавно только понял. Почитал, кстати Вирта и т.д. А главное - самому писать.
Leonid Troyanovsky (2008-12-20 17:32:00) [28]
> Denis__ © (20.12.08 17:20) [25]
> ТЕБЕ не повредит. А тому, кто просил?
Эх, Денис. Тут уж ничего никому не повредит.
А код - пусть уж будет, мало ли его в инете.
И не факт, что его прочитают или применят.
Кста, на наши тусовки и преподы заходят :)
--
Regards, LVT.
Тын-Дын (2008-12-20 17:24:00) [29]
> Denis__ © (20.12.08 17:20) [25]
> ТЕБЕ не повредит. А тому, кто просил?
Здесь не курсы по обучению.
Каждый может попрость и код дать, и совет.
Так же точно и ответить могут. Кто написать конкретный код, а кто совет дать.
Абсолютно неважно.
Не стоит считать себя учителем.
Denis__ (2008-12-20 17:20:00) [30]ТЕБЕ не повредит. А тому, кто просил?
Denis__ (2008-12-20 17:19:00) [31]
> Вот когда появится хоть какой-то опыт, тогда и разберётся.
Сначала опыт, потом знания? Оригинально!
Тын-Дын (2008-12-20 17:18:00) [32]Да и не жалко мне. Небольшая разминка для мозгов не повредит.
10-15 минут развлечения по написанию кода - полезно иногда.
Тын-Дын (2008-12-20 17:17:00) [33]
> Denis__ © (20.12.08 17:16) [20]
> > Тын-Дын © (20.12.08 16:59) [18] >А код путь будет копи-
> паст. Жалко? Жалко. Пока сам не напишешь, САМ, понимаешь,
> с нуля! Не поймешь. А скопипастить, даже разобрать - не
> то это. Повторить скопи-пастеное довольно трудно. А написать
> отличающееся буквально парой строк - вообще засада.
Вот когда появится хоть какой-то опыт, тогда и разберётся.
Тын-Дын (2008-12-20 17:16:00) [34]Удалено модератором
Denis__ (2008-12-20 17:16:00) [35]
> Тын-Дын © (20.12.08 16:59) [18]
>А код путь будет копи- паст. Жалко?
Жалко. Пока сам не напишешь, САМ, понимаешь, с нуля! Не поймешь. А скопипастить, даже разобрать - не то это. Повторить скопи-пастеное довольно трудно. А написать отличающееся буквально парой строк - вообще засада.
Leonid Troyanovsky (2008-12-20 17:09:00) [36]
> Тын-Дын © (20.12.08 16:59) [18]
> А код путь будет копи-паст. Жалко?
А где dfm & dpr? Что за жлобство.
--
Regards, LVT.
Тын-Дын (2008-12-20 16:59:00) [37]
> Denis__ © (20.12.08 16:31) [17]
> > Просветлённый такой, аж жуть берёт.Вам что-то не нравится?
> Нафиг было код давать? TUser же нормально, по пунктам рассказал
> , что делать. А теперь будет копи-паст.
Хамство не нравится. Вот в потрепаловке уже сказали, что направление задают модераторы. Так и есть.
А код путь будет копи-паст. Жалко?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
PElement=^TElement;
TElement=record
info: string[10];
next: PElement;
end;
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
RootElement: PElement;
implementation
{$R *.dfm}
procedure AddElement(p: PElement);
var
pCurrElement: PElement;
begin
if RootElement=nil then
begin
RootElement := p;
p^.next := nil;
Exit;
end;
pCurrElement := RootElement;
while pCurrElement^.next<>nil do pCurrElement := pCurrElement^.next;
pCurrElement^.next := p;
p^.next := nil;
end;
function DeleteLastElement: PElement;
var
pCurrElement: PElement;
begin
Result := nil;
if RootElement=nil then Exit;
if RootElement^.next=nil then
begin
Dispose(RootElement);
RootElement := nil;
Exit;
end;
pCurrElement := RootElement;
while pCurrElement^.next^.next<>nil do pCurrElement := pCurrElement^.next;
Dispose(pCurrElement^.next);
pCurrElement^.next := nil;
Result := pCurrElement;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
p: PElement;
begin
for i := 0 to 100000 do
begin
New(p);
p^.info := IntToStr(i);
AddElement(p);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
while DeleteLastElement<>nil do ;
end;
end.
Denis__ (2008-12-20 16:31:00) [38]
> Просветлённый такой, аж жуть берёт.
Вам что-то не нравится? Нафиг было код давать? TUser же нормально, по пунктам рассказал , что делать. А теперь будет копи-паст.
Тын-Дын (2008-12-20 16:19:00) [39]Удалено модератором
Примечание: Не хами
TUser (2008-12-20 14:35:00) [40]Давай начнем:
0. Тебе надо удалять последний элемент списка. Это будет делать какая-то часть твоей программы, достаточно автономная от остальных частей. В паскале такая часть программы называется "процедура" (procedure).
1. Теперь тебе надо написать эту процедуру. Синтаксис погляди в любом учебнике, я тут не по паскалю, а по трындению, так что звиняй. Вообщем, наверное у этой процедуры будет название, ну и какие-то параметры. Ведь должна де процедура получать извне сведения о том, с каким списком ей работать, например.
2. Итак, у нас есть процедура, которая объявлена и получает в качестве параметра указатель на первый элемент списка. Тебе надо найти последний. Но это не трудно. Действительно, в первом элементе списка хранится указание на второй, в нем на третий и т.д. Надо пройтись по этой цепочке.
3. Что мы понимаем под словами "надо пройтись"? Это означет, конечно, не шагать в кирзе по гигабайтным кингстонам, или какая у тебя там память. В программизме это значит, что надо завести некоторое место в памяти, где будет хранится указатель на элемент списка. Такое место называется "переменная" (в паскале используется уменьшительно-ласкательное var).
4. Вот значит, основной цикл нашей процедуры будет устроен так: есть переменная, назовем ее У1. Вначале там хранится адрес первого элемента сиписка. И потом каждый раз мы выбираем из этого первого элемента указатель на следующий, и присваиваем этот указатель переменной У1.
5. А когда наш циел должен закончиться? (Ну, нельзя же циклиться бесконечно!) Тут решение простое - когда мы дошли до конца. Когда в У1 оказался нуль, указатель вникуда, или как пишут пасквилянты nil.
6. Теперь надо бы сделать вот что - удалить последний элемент. Айайай. мы его забыли, каждый раз затирая в У1 значение, и заменяя его новым. Ну не беда. всегда можно выдумать еще одну переменную - У2, в которой будем запоминать значение преддущего элемента.
7. Тогда основной цикл будет выглядить так: запомнить в У2 то, что сейчас содержится в У1 и в У1 написать указатель на следующий элемент (содержится в той записи, на которую указывает У1).
8. Ура. Теперь после прохождения всего цикла можно удалять У1. Диспозиционировать. если по-пасквилянстски. На это есть специальная процедура, освобождающая память.
9. Все. Можно пить шампанское. Но сначала надо прибрать за собой. В предпоследнем элементе списка содержится указатель на уничтоженный элемент. Беда. Но не большая. Надо туда записать "вникуда" (nil).
10. А для этого предпоследний элемент надо запомнить. Мы уже делали что-то подобное, заведя переменную У2. Заведем себе еще и У3, и будет наш цикл на каждой итерации записывать значение из У2 в У3, из У1 в У2, а в У1 - новое значение.
11. После выполнения цикла (в У1 попало "вникуда") мы диспознем У2, а в У2 запишем "никуда" в качестве указателя на следующий элемент (тем самым предпоследний элемент станет последним).
12. Если мы все это переведем на паскаль и покажем преподу, то он нам поставит банан, и будет прав. Только такая обезъяна как я могла забыть, что бывают списки ну совсем коротенькие, допустим из одного элеента. Так что после цикла надо предусмотреть эти особенности. Пусть это будет самостоятельным творческим решением, и останется в моем трактате только 12 пунктов, а то 13 - несчастливое число.
Вообщем, приерно такова была бы моя логика по пунктам, если бы я вздемал писать такую процедуру.
| |
Страницы: 