GRY-Online.pl --> Archiwum Forum

Pascal - lista dynamiczna, dwukierunkowa

20.01.2003
20:36
[1]

h8u [ Chor��y ]

Pascal - lista dynamiczna, dwukierunkowa

Przyjaciel prosił mnie abym mu pomógł w nauce do egzaminu z Pascala. Chodzi o program, który tworzy listę dwukierunkową.
Kiedyś, lat temu wieeele zajmowałem się programowaniem, lecz starość, nie radość i zapomniałem praktycznie wszystko... Moją książkę Pana Marciniaka szlag gdzieś trafił a na necie nie mogę znaleźć nic satysfakcjonującego.
Powiedzmy, że mamy :

type element = ^wskaznik;
wskaznik = record
nastepny,poprzedni : elisty;
id : integer;
nazwa : string[30];
end;

var
poczatek, koniec, pom : wskaznik;
------------

Powiedzmy, że mamy zmienną o nazwie XYZ typu boolean.
XYZ:= true;
x:=1;
while XYZ do
begin
new(wskaznik);
readln(pom^.nazwa);
pom^.id:=x;
if poczatek=nil then poczatek:=pom
else poczatek^.nastepny:=pom;


x:=x+1;

end;

--------

XYZ będzie nieprawdą (false) gdy np. x wyniesie 8. Nie mam kompilatora na komputerze... nie jestem w stanie sprawdzić, czy to co napisałem ma sens i CZY działa. Poza tym, nie wiem, czy dobrze kombinuję...
Zastanawia mnie jak ustawić element "...^.poprzedni" i tak dalej.
Czy macie jakiś gotowy algorytm "obsługi" listy dwuwymiarowej? Bardzo by mi pomógł. Nie potrzebuję fajerwerków - po prostu procedurę tworzenia, wstawianai i usuwania. Resztę już dopiszę sam - gdy zobaczę algorytm wszystko powinno mi się "odświeżyć"... Jak pisałem - nie mam dostępu do kompilatora (będę miał dopiero w środę) a obiecałem przyjacielowi, że pomogę. Im szybciej tym lepiej, jak zawsze...
Będę wdzięczny za jakieś podpowiedzi... Z góry dziękuję.

21.01.2003
11:03
[2]

h8u [ Chor��y ]

Jako, że pisałem to wczoraj wieczorem, jest spora szansa, że pytanie mogło zostać niezauważone.
Pomożecie zgredowi?

21.01.2003
12:37
[3]

Rav_s [ Konsul ]

Sprobuj napisac to wszystko w watku ponizej. Mysle ze pare osob ma podczepiony ten watek wiec jest szansa ze ktos to zauwazy i odpowie. Poza tym wiele osob deklarowalo pomoc, wiec wreszcie beda mogli sie wykazac :)

Sam bym pomogl, ale juz dawno nic pascalu nie robilem, a teraz w dodatku nie mam czasu :/

21.01.2003
12:45
[4]

h8u [ Chor��y ]

Dzięki. Już się dopisuję.

© 2000-2024 GRY-OnLine S.A.