Discussion :

[ahmadov47]

Salut

J'ai préparé un mini-projet pour le 3ème semestre et j'ai rencontré des difficultés dans le départ du projet.
Je pense je ne comprends pas bien le sujet du projet, c'est ça la cause des difficultés.

Le mini projet :
https://word.office.live.com/wv/Word...2014_2015.docx

SVP qui peut m'aider... et merci.

[droggo]

Toe,

Poste ton code, OU au pire, mets-le en pièce jointe (un fichier zip conviendra),

MAIS pas dans un fichier Word !!!

[ahmadov47]

le problème j'ai ne trouve pas la solution pour écrire l'algorithme ... c'est pour ça j'ai demande l'aide

[droggo]

Roa,

le problème j'ai ne trouve pas la solution pour écrire l'algorithme ... c'est pour ça j'ai demande l'aide

As-tu compris mon précédent message ?

On ne dirait pas !

[ahmadov47]

pourquoi j'ai prise par cette projet

[droggo]

Bie,

pourquoi j'ai prise par cette projet

Persiste et signe ...

... donc adieu.

[ahmadov47]

Dsl le lien est bloque ... c'est ça le projet qui comprendre svp explique le projet ets merci ASD_mini_projet_2014_2015.docx

[Roland Chastain]

Ainsi tu as un travail à faire, dans le cadre de tes études, et tu n'arrives même pas (dis-tu) à comprendre le sujet. Sans vouloir être désagréable, je ne vois pas ce que nous pouvons faire pour toi.

[Alcatîz]

Bonjour,

C'est peut-être l'abondance des données de l'énoncé qui te déroute ?

Grosso modo, tu disposes au départ d'un fichier d'enregistrements contenant les passagers triés par ordre alphabétique. Tu vas d'abord devoir charger le contenu de ce fichier dans une liste chaînée. Ceci fait, tu dois proposer à l'utilisateur un menu avec différentes actions possibles. Une fois que l'utilisateur indique qu'il a terminé, tu dois sauvegarder la liste chaînée dans un nouveau fichier.

Le squelette de ton programme principal et de la procédure LISTEMOD sont fournis, à toi de créer les différentes procédures ou fonctions qui correspondent aux actions de l'utilisateur.

P.S. Sur LibreOffice, le diagramme s'affiche vraiment n'importe comment. On en revient à la remarque de droggo...

[ahmadov47]

Bonjour

Merci pour l'aide ...
Dans le schéma principal du programme qui m'est donné dans le sujet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
program maintenir;
const  
	FIN = 5;
	MAXSIEGE = 350;
	TAILLESTRING = 10;
type  
	PASSAGER = record
		NOM : string[1.. TAILLESTRING];
		CLASS : (eco, sky);
		NUMSIEGE: 1..MAXSIEGE
	end;
	FICHIERVOL = ........... { fichier de passagers}
	POINTEURPASS = ^ MAILLONPASS;
	MAILLONPASS = record		{ maillon de la liste des passagers}
		-------
		-------
	end;
var 
	tete: ........ { pointeur tête de liste }
	FICHPASS, NOUVFICHPASS : .......... { ancien et nouveau fichier des passagers}
	choix : INTEGER;  { option choisie }
 	{ déclaration des procédures }
	procedure LISTECOPIER(tete: ....;  var NOUVFICHPASS : .....);
	begin 
		.......
	end;
	{ Déclarer les procédures LISTECREATION, AFFICHERMENU, LISTEMOD }
begin { début programme principal }
 { lecture des données des passagers à partir du fichier FICHPASS dans la liste chaînée }
{ traitement de chaque requête de mise à jour }
	repeat
		AFFICHERMENU; { affichage des options}
		LISTEMOD(......); { lecture et réalisation du choix de l'utilisateur }
	until CHOIX  = FIN;	
	{ copier chaque enregistrement de passager depuis la liste chaînée vers NOUVFICHPASS }	LISTECOPIER(.....);
end.  { fin programme principal }

La structure de la procédure LISTEMOD est comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
procedure LISTEMOD (tete : ......; var choix : INTEGER);
{  partie déclaration }
begin { début procédure LISTEMOD} 
	if choix in {1..5} then
		case choix of 
		1: begin
			WRITELN ('Introduire les données pour un nouveau passager.');
			LIRE1PASS (.......);
			INSERTION (.......); {Insertion dans une liste triée}
		    end; {  1 }
		2: begin
			WRITELN ('Introduire le nom du passager à supprimer: ');
			LIRENOM (.......);
			SUPPRIMER (.......);
		    end; { 2 }
		3: begin
			WRITELN ('Introduire le nom du passager à afficher: ');
			LIRENOM (.......);
			if () = NIL then
				WRITELN (Passager non trouvé ')
			else
				AFF1PASS(.....)
		    end; { 3 }
		    4: begin
			WRITELN (La liste courante des passagers: ');
			WRITELN ('Nom' : 10, 'Sièges' :10, 'Classe' : 10);
			AFFLISTEPASS (.......);
        	    	       end; { 4 }
		       5: WRITELN ( 'Fin mise à jour de la liste des passagers')
		end {case}
end; { fin procédure LISTEMOD}

Cet enregistrement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
FICHIERVOL = ........... { fichier de passagers}
	POINTEURPASS = ^ MAILLONPASS;
	MAILLONPASS = record		{ maillon de la liste des passagers}
		-------
		-------
	end;

Je ne comprends pas ce que contient cet enregistrement (le but de cet enregistrement ?) ... et merci.

[Alcatîz]

L'enregistrement contient les données d'un passager + un pointeur vers l'élément suivant (ou précédent, selon la manière dont la liste chaînée est construite).

Pour t'aider à y voir plus clair : http://pascal.developpez.com/cours/p...page_16#LXVI-A

[ahmadov47]

merci pour la réponse
pour le type de FICHIERVOL c'est quoi cette type ?
quelle est les sous type qui contient dans ça

[Alcatîz]

FICHIERVOL est un fichier d'enregistrements qui contient tous les passagers. Le type PASSAGER est un enregistrement qui contient les données d'un passager. Donc...

[ahmadov47]

Est-ce que cette écriture est vraie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
type
   FICHIERVOL=^PASSAGER

[Alcatîz]

Sans vouloir te vexer, il faut absolument te replonger dans tes cours avant de te lancer dans la réalisation du TD !
La déclaration d'un fichier d'enregistrements est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Type Type_de_fichier = file of Type_d_enregistrement ;

[ahmadov47]

ça c'est vrai ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
type 
  FICHIERVOL=file of PASSAGER

et après dans les variables :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
var
  FICHPASS , NOUVFICHPASS : FICHIERVOL ;

[Roland Chastain]

Oui, tout ça c'est bon.

[ahmadov47]

OK pour créer une procédure pour ajouter un élément dans la tête de liste linéaire et un autre dans la queue ces deux éléments de type passager

comme le schéma suivant


Est-ce que ce programme est vrai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
program ahmed;
 
const
  maxsiege=350;
  taillestring=10;
 
type
  passager=record
  nom:string[1.. taillestring];
  class:(eco,sky);
  numsieger:1..maxsiege
  pointeur=^maillon;
  maillon=record
    val:passager;
    suiv:pointeur;
  end;
 
var
 
procedure inser(tete:pointeur,v:passager);
var
  p:pointeur
begin
  New(p);
  v:=AAAAAAAAAA;
  p^.val:=v;
  p^.suiv:=tete;
  tete:=p
end;
 
procedure inser_queue(var tete:pointeur , elem:passager);
var
  p,q:pointeur;
begin
  p:=tete;
  q:=p;
  begin
  q:=p;
  p:=p^.suiv;
  end;
  new(p);
  elem:=ZZZZZZZZZZ;
  p^.info:=elem ;
  p^.suiv:=nil;
end;
 
  k,m:passager
 
begin
  inser(k)
  inser_queue(m)
end;

[Alcatîz]

Je trouve très malheureux, de la part de ton enseignant, d'utiliser le mot class comme identificateur. Tout autre compilateur que Turbo Pascal te renverrait un message d'erreur (mais cela, tu n'y peux rien !).

Il y a pas mal d'erreurs de syntaxe. Merci de vérifier, au moins, que ton code compile avant de le soumettre.

Attention à bien respecter les consignes de ton TD au niveau du nommage des types, des variables et des procédures (par exemple, comment devrait s'appeler ton type pointeur ?) !

Déclaration incorrecte : une chaîne de caractères se déclare string[taillestring].
N'oublie pas le end à la fin de la déclaration du type passager :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  passager=record
             nom:string[taillestring];
             class:(eco,sky);
             numsieger:1..maxsiege
           end;

Tu as séparé la directive var de la déclaration des variables :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
var
  k,m:passager;

Et tu dois créer comme variable globale la tête de ta liste chaînée !

La procédure inser est presque correcte. Simplement, la procédure reçoit comme paramètre un enregistrement de type passager, donc tu dois simplement l'affecter à p^val. Les paramètres de types différents doivent être séparés par un point-virgule : (tete:pointeur;v:passager).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure inser(tete:pointeur;v:passager);
var
  p:pointeur;
begin
  New(p);
  p^.val:=v;
  p^.suiv:=tete;
  tete:=p
end;

Par contre, ça ne va pas du tout pour la procédure inser_queue. Il n'y a pas mille manières de réaliser un algorithme d'insertion d'élement dans une liste chaînée : il faut commencer par faire des dessins sur une feuille de papier ! Tu dois tenir un raisonnement de ce genre : http://www.developpez.net/forums/d14...er-comprendre/.

Courage !

[ahmadov47]

oki .....
mes prq la procédure inser_queue n'utilise pas ?
quelle est le but dans cette paragraphe :
Pour simplifier les opérations de traitement de la liste, nous admettons que le fichier des passagers commence toujours par un enregistrement dont le champ NOM est 'AA...A' et se termine toujours par un enregistrement dont le champ NOM est 'ZZ...Z'.
Les entrées du problème:
Le fichier des passagers dans l'ordre alphabétique sur le champ NOM commençant par 'AA...A' et se terminant par 'ZZ...Z'.

?????????