鏈表帕斯卡爾

Question

林尋找一個良好的和簡單的實現帕斯卡爾鏈表。 因爲我是一名帕斯卡爾初學者，它會幫助我作爲研究材料。

感謝您的任何提示。

Answer 1

我發現早在我的舊郵件，我們做了一個實現。代碼是「法語」，所以我不會去碰它，以免忘記某個地方會破壞彙編的功能:-)

首先，我們有一個「元素」類型，讓我們輕鬆改變什麼，我們想在清單上存儲：

unit U_ELEMENT; 

interface 

{ We store integers } 
type 
    T_ELEMENT = Integer; 

{ Reads an element } 
procedure lireElement(out res:INTEGER; out code:WORD; out ch:STRING); 
{ Write and element } 
procedure ecrireElement(const t:T_ELEMENT); 

implementation 

procedure lireElement(out res:T_ELEMENT; out code:WORD; out ch:STRING); 
begin 
    write('> ');readln(ch); 
    val(ch,res,code); 
end; 

procedure ecrireElement(const t:T_ELEMENT); 
begin 
    write(t); 
end; 

end. 

然後，實際列表模塊，其目的是在列表的開頭添加元素：

unit U_LISTE; 

interface 

uses U_ELEMENT; 

const LISTEVIDE = NIL; 
type 
    T_LISTE = ^T_CELLULE; 
    T_CELLULE = record 
     info: T_ELEMENT; { The stored information } 
     suivant: T_LISTE; { Pointer to the next element } 
    end; 
{ Add an heading element } 
function ajouteEnTete(e:T_ELEMENT;l:T_LISTE):T_LISTE; 
{ returns the head of the list } 
function tete(l:T_LISTE):T_ELEMENT; 
{ returns the list, without the head } 
function reste(l:T_LISTE):T_LISTE; 
{ List empty? } 
function estListeVide(l:T_LISTE):BOOLEAN; 
{ Modify the header element } 
procedure modifierTete(var l:T_LISTE;const e:T_ELEMENT); 
{ Modify the list after the head } 
procedure modifierReste(var l1:T_LISTE; const l2:T_LISTE); 

implementation 

function ajouteEnTete(e:T_ELEMENT;l:T_LISTE):T_LISTE; 
var l1:T_LISTE; 
begin 
    new(l1); 
    l1^.info := e; 
    l1^.suivant := l; 
    ajouteEnTete := l1; 
end; 

function tete(l:T_LISTE):T_ELEMENT; 
begin 
    tete := l^.info; 
end; 

function reste(l:T_LISTE):T_LISTE; 
begin 
    reste := l^.suivant; 
end; 

function estListeVide(l:T_LISTE):BOOLEAN; 
begin 
    estListeVide := l=NIL; 
end; 

procedure modifierTete(var l:T_LISTE;const e:T_ELEMENT); 
begin 
    l^.info := e; 
end; 

procedure modifierReste(var l1:T_LISTE; const l2:T_LISTE); 
begin 
    l1^.suivant := l2; 
end; 

end. 

和一個小的測試程序：

program testeliste; 

uses U_ELEMENT,U_LISTE; 

procedure afficherListe(const l:T_LISTE); 
var l1: T_LISTE; 
    vide: BOOLEAN; 
begin 
    write('('); 
    l1 := l; 
    vide := estListeVide(l1); 
    while not(vide) do 
    begin 
     ecrireElement(tete(l1)); 
     l1 := reste(l1); 
     vide := estListeVide(l1); 
     if not(vide) then 
      write(','); 
    end; 
    write(')'); 
    writeln; 
end; 

var res:T_ELEMENT; 
    code:WORD; 
    ch:STRING; 
    i:INTEGER; 
    l:T_LISTE; 

Begin 
    l:=LISTEVIDE; 
    for i:=0 to 9 do 
    begin 
     lireElement(res,code,ch); 
     l := ajouteEnTete(res,l); 
    end; 
    afficherListe(l); 

    afficherListe(reste(l)); 
    afficherListe(reste(reste(reste(l)))); 
    afficherListe(ajouteEnTete(tete(l),l)); 

End. 

正如我所說的，這是當我開始學習CS，所以它可能不適合:-)，但我認爲這有助於語法和全球念頭讓老（很舊的）計劃。

Answer 2

好文章：http://www.learn-programming.za.net/programming_pascal_learn14.html

網站似乎下降。在這裏，你可以找到 - >Archived Version