Scribd
Importer
2 vues1 page

Pascal Queue (File)

Ce document présente une implémentation d'une file d'attente en Pascal utilisant une liste chaînée. Il inclut des procédures pour initialiser la file, ajouter un élément à la fin (Enqueue), retirer un élément du début (Dequeue) et vérifier si la file est vide. Les structures de données et les fonctions sont clairement définies pour gérer les opérations de la file d'attente.

Transféré par

gzel74889
Copyright
© All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats PDF, TXT ou lisez en ligne sur Scribd
2 vues1 page

Pascal Queue (File)

Ce document présente une implémentation d'une file d'attente en Pascal utilisant une liste chaînée. Il inclut des procédures pour initialiser la file, ajouter un élément à la fin (Enqueue), retirer un élément du début (Dequeue) et vérifier si la file est vide. Les structures de données et les fonctions sont clairement définies pour gérer les opérations de la file d'attente.

Transféré par

gzel74889
Copyright
© All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats PDF, TXT ou lisez en ligne sur Scribd

Pascal Queue Implementation (Linked List)

type
File = ^Noeud;
Noeud = record
val: Integer;
suivant: File;
end;

procedure InitFile(var F: File);


// Initialises the queue
begin
F := nil;
end;

procedure Enqueue(var F: File; v: Integer);


// Adds a new integer to the end of the queue
var
nouv, temp: File;
begin
New(nouv);
nouv^.val := v;
nouv^.suivant := nil;

if F = nil then
F := nouv
else
begin
temp := F;
while temp^.suivant <> nil do
temp := temp^.suivant;
temp^.suivant := nouv;
end;
end;

function Dequeue(var F: File): Integer;


// Removes and returns the front element of the queue
var
sup: File;
begin
Dequeue := F^.val;
sup := F;
F := F^.suivant;
Dispose(sup);
end;

function IsEmptyQueue(F: File): Boolean;


// Checks whether the queue is empty
begin
IsEmptyQueue := F = nil;
end;

Vous aimerez peut-être aussi