-
Здравствуйте! подскажите как сделать данное задание. Дан список В, который состоит из записей: первое поле - слова из 10 литер, второе - адрес следующего элемента. нужно составить программу для удаления последнего элемента списка.
-
А у последнего элемента какой адрес следующего элемента?
Если ноль, то задача решается просто. Нужно дойти до предпоследнего элемента и обнулить в нем адрес следующего элемента.
(Обнулить адрес значит записать в него nil)
-
да, ноль. но дело в том, что я не знаю как это правильно записать и вообще с чего начать...
-
А Паскаль-то знаешь ?
-
delphi(object pascal) знаю немного...я на первом курсе
-
> нужно составить программу для удаления последнего элемента списка.
Да тут одна строчка кода видимо.... В чем гвоздь?
-
я вообще не знаю какие переменные обьявлять и как работать с указателями
-
> знаю немного
Т.е. функцию или процедуру объявить в состоянии ?
Тогда начни с объявления процедуры, принимающей параметром указатель на первую запись списка..
-
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
type spB=^elem;
elem=record
info:string;
next:spB;
end;
var beg,p:spB;
begin
beg:=p;
{ TODO -oUser -cConsole Main : Insert code here }
end. // вот я уже начинала...но что делать дальше не знаю
-
> какие переменные обьявлять
Можно никакие не объявлять, в задании это явно не требуется.
Но как минимум один указательный тип объявить безусловно нужно - параметр твоей процедуры будет именно этого типа.
-
-
Вирта читать. Ахо, Ульмана, Кормена. До полного просветления.
-
Удалено модератором
Примечание: Не хами
-
> Тын-Дын © (20.12.08 13:58) [12]
> Просветлённый такой, аж жуть берёт.
Да ты не бойся, ты поможи, чем можешь самим неместным, извинив, что они обращаются...
-
Эта, в задании не сказано на куда указывает указатель из последнего элемента. Или сие надо додумать?
Чтобы начать делать - надо как-то придумать как это все хранится... Я бы начал с этого, чтобы было на чем тестировать основной код.
Опять же про new почитать здорово.
И string - это ни разу не "слово из 10 литер".
-
Давай начнем:
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 - несчастливое число.
Вообщем, приерно такова была бы моя логика по пунктам, если бы я вздемал писать такую процедуру.
-
Удалено модератором
Примечание: Не хами
-
> Просветлённый такой, аж жуть берёт.
Вам что-то не нравится? Нафиг было код давать? TUser же нормально, по пунктам рассказал , что делать. А теперь будет копи-паст.
-
> 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
public
end;
var
Form1: TForm1;
RootElement: PElement;
implementation
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.
-
> Тын-Дын © (20.12.08 16:59) [18]
> А код путь будет копи-паст. Жалко?
А где dfm & dpr? Что за жлобство.
--
Regards, LVT.
|
Есть новые 
Нет новых [134449 +17][b:0][p:0.002]