Gestion d'une liste circulaire

Version imprimable

14/04/2014, 21h50
quik03jump

Gestion d'une liste circulaire

Salut tout le monde, je suis nouveau ici et je cherche la solution d'un exercice.

Exercice : on considère une file circulaire représentée par un tableau. Ecrire un module Pascal Manipuler_file.pas qui contient les fonctions ou les procédures suivantes:
- Afficher le contenu de la file,
- Consulter le premier élément de la file,
- Enfiler un nouvel élément,
- Défiler un élément,
- Tester si la file est pleine,
- Tester si la file est vide.
Ecrire un programme Pascal qui permet de manipuler une file de nombres entiers en utilisant le module Manipuler_File.

Merci pour votre attention :D
14/04/2014, 23h01
droggo

Kie,

Personne ici ne fera ton travail à ta place.

IL faut nous montrer ce que tu as fait, nous expliquer ce qui te bloque, et on verra.

Citation:

Envoyé par droggo

Kie,

Personne ici ne fera ton travail à ta place.

IL faut nous montrer ce que tu as fait, nous expliquer ce qui te bloque, et on verra.

Dsl :roll:
c'est mon travail:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
program Manipuler_File;
type
	liste=record
		elt:integer;
		svt:^liste;
	end;
var
	fil:^liste;
 
procedure afficheFile(fil:^liste)
var l:^liste;
begin
	l:=fil;
	while(l<>nil)
	begin
		writeln(^l.elt);
		l:=^l.svt;
	end;
end;	
 
function premiereEltFile(fil:^liste):integer;
begin
	premiereEltFile:=^l.elt;
end;
 
procedure enfiler(fil:^liste,x:integer)
var l:^liste;
	e:^liste;
begin
	l=fil
	while(l.svt<>nil)
	begin
		l:=^l.svt;
	end;
	allocate(e);
	^e.elt:=x;
	^e.svt:=nil;
	^l.svt:=e;
end;
 
function defiler(fil:^liste):integer;
var l:^liste;
	x:integer;
begin
	l:=fil;
	fil:=^fil.svt;
	x:=^l.elt;
	^l.svt:=nil;
	free(l);
	defiler:=x;
end;	
begin
 
end.

Merci pour ta réponse.

15/04/2014, 19h02
Roland Chastain
Bonjour ! Apparemment il y a un certain nombre de petites corrections à faire.

Pour arriver à compiler le code (sans chercher à savoir s'il fonctionne bien), j'ai ajouté la déclaration d'un type pliste. Il me semble que c'est nécessaire.
Code:

1 2 3 4 5 6 type pliste=^liste; liste=record elt:integer; svt:pliste; end;
Autrement, après un while on doit avoir un do.
Code:

1 2 while (l<>nil) do begin
Il manque aussi des points-virgules.

Enfin, j'ai enlevé des chapeaux chinois un peu partout. Je crois qu'il y en avait trop, mais je préfèrerais que quelqu'un d'autre le confirme, n'étant pas expert de ce genre d'écriture. ;)
17/04/2014, 08h55
e-ric

Salut

Ca commence mal :

Citation:

On considère une file circulaire représentée par un tableau

et tu fais une implémentation par pointeur.
Ton prof va t'adorer...:mouarf:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
Unit Manipuler_file;
 Interface
  Const n = 10;
  Type tableau=array[1..n]of integer;
 
    Function File_Vide(d,f : integer) : boolean;
    Function File_Pleine(d,f : integer) : boolean;
    Procedure Remplire_file( Var T:Tableau ; Var f: integer);
    Procedure Afficher(T: Tableau; d,F:integer);
    Procedure Enfiler( Var T:Tableau ;Var f: integer; d,y : integer );
    Procedure Defiler( Var T:Tableau ;d,f : integer );
 
 
 
 
 
 
 
 Implementation
 
 
   Function File_Vide(d,f : integer) : boolean;
    begin
     if d=f then
      File_Vide := True
     else
      File_Vide := False;
    end;
 
   Function File_Pleine(d,f : integer) : boolean;
    begin
    if d=(f+1)mod n then
     File_Pleine := True
    else
    file_Pleine := False;
    end;
 
   Procedure Remplire_file( Var T:Tableau ; Var f: integer);
   var i : integer;
   begin;
   for i:= 1 to ( f-1) do
   begin
   write('donnez T[',i,']=');
   read ( T[i]);
   end;
   end;
 
 
   Procedure Afficher(T: Tableau; d,F:integer);
   var i:integer;
   begin
    i:=1;
   while i<=10 do
    begin
    if i<d then
    write('x',' ')
    else
    if i<f then
   write (T[i],' ')
    else
   write('x',' ');
   i:=i+1;
   end;
 
    end;
 
    Procedure Enfiler( Var T:Tableau ;Var f: integer; d,y : integer );
    begin
    if File_Pleine(d,f) = true Then
   writeln ('La fille est pleine ')
   else
    begin
    T[f]:=y;
     f:=(f+1);
      if f>n Then
     f:=1;
     end;
     afficher(T,d,f);
     end;
 
   Procedure Defiler( Var T:Tableau ;d,f : integer );
   begin
   if File_Vide(d,f) = true Then
    writeln (' La fille est vide ')
   else
   begin
    d:=(d+1);
    if d>n Then
    d:=1;
     end;
     afficher ( T,d,f);
    end;
 
   End.

Et comme ça ?:D