Les listes (pointeur) en C
hakou28
Messages postés
27
Date d'inscription
Statut
Membre
Dernière intervention
-
hakou28 Messages postés 27 Date d'inscription Statut Membre Dernière intervention -
hakou28 Messages postés 27 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je veux convertir cette unité du pascal au C
//------------------------------------------------------------------------------------------------------------------//
unit Liste_D;
interface
const
FinListe = nil;
type pointeur = ^noued;
noued = record
valeur : integer;
suivant : pointeur;
end;
procedure Allouer(var p:pointeur);
procedure Liberer(p:pointeur);
function Suivant(p:pointeur):pointeur;
function Valeur (p:pointeur): integer;
procedure Aff_Adr(p,q:pointeur);
procedure Aff_Val(p: pointeur; valeur:integer);
{---------------------------------------------------}
implementation
procedure Allouer(var p:pointeur);
begin
new(p);
end;
procedure Liberer(p:pointeur);
begin
dispose(p);
end;
function Suivant(p:pointeur):pointeur;
begin
Suivant := p^.suivant;
end;
function Valeur (p:pointeur): integer;
begin
Valeur := p^.valeur;
end;
procedure Aff_Adr(p,q:pointeur);
begin
p^.suivant := q;
end;
procedure Aff_Val(p: pointeur; valeur:integer);
begin
p^.valeur:=valeur;
end;
end.
//-----------------------------------------------------------------------------------------------------------------------//
Merci D'Avance
je veux convertir cette unité du pascal au C
//------------------------------------------------------------------------------------------------------------------//
unit Liste_D;
interface
const
FinListe = nil;
type pointeur = ^noued;
noued = record
valeur : integer;
suivant : pointeur;
end;
procedure Allouer(var p:pointeur);
procedure Liberer(p:pointeur);
function Suivant(p:pointeur):pointeur;
function Valeur (p:pointeur): integer;
procedure Aff_Adr(p,q:pointeur);
procedure Aff_Val(p: pointeur; valeur:integer);
{---------------------------------------------------}
implementation
procedure Allouer(var p:pointeur);
begin
new(p);
end;
procedure Liberer(p:pointeur);
begin
dispose(p);
end;
function Suivant(p:pointeur):pointeur;
begin
Suivant := p^.suivant;
end;
function Valeur (p:pointeur): integer;
begin
Valeur := p^.valeur;
end;
procedure Aff_Adr(p,q:pointeur);
begin
p^.suivant := q;
end;
procedure Aff_Val(p: pointeur; valeur:integer);
begin
p^.valeur:=valeur;
end;
end.
//-----------------------------------------------------------------------------------------------------------------------//
Merci D'Avance
A voir également:
- Les listes (pointeur) en C
- Pointeur souris - Guide
- Curseur Windows 10 : comment bien voir la souris à l'écran - Guide
- Liste déroulante en cascade - Guide
- Listes déroulantes excel - Guide
- Lister les disques cmd - Guide
2 réponses
Regarde ici : http://www.commentcamarche.net/faq/sujet 8282 les files en langage c
T'auras plus qu'à faire copier-coller et à modifier le code ici ou là...
T'auras plus qu'à faire copier-coller et à modifier le code ici ou là...