ex2

Type
	Date=enregistrement
		Jj,mm,aa :entier
	Fin enregistrement
	Joueur=enregistrement
		Nom :chaine
		Dn : date
		Cd :entier
		Cl :entier
	Fin enregistrement
	LSC= pointeur sur liste
	Liste=enregistrement
		Val :joeur
		Suiv :LSC
	Fin enregistrement
Fonction Saisir_joueur () :joueur
Var
J :joueur
Debut
	Ecrire (« Saisir le nom : »)
	Lire(J.nom)
	Ecire (« Saisir la date : jj/mm/aa»)
	Lire(j.date.jj)
Lire(j.date.mm)
Lire(j.date.aa)
Ecrire (« Saisir le code d’equipe »)
Lire (j.cd)
Ecrire (« Saisir classement)
Lire (j.cl)
Saisir_joueur<-J
Fin
Fonction compare_date (J1 :joueur,J2 :joueur) :entier
Début
	Si (j1.date.aa==j2.date.aa et j1.date.jj==j2.date.jj et j1.date.mm==j2.date.mm) alors
		Compare_date=  « Les joueurs ont le même âge »
	Si (J1 .date.aa<J2 .date.aa) alors
		Compare_date=  1
	Sinon
		Si (J1 .date.aa>J2 .date.aa) alors
			Compare_date=  2
		Sinon
			Si (J1 .date.mm<J2 .date.mm) alors
				Compare_date=  1
			Sinon
				Si (J1 .date.mm>J2 .date.mm) alors
					Compare_date=  2
				Sinon
					Si (J1.date.jj>J2.date.jj) alors
						Compare_date=  1
					Sinon
						Si (J1.date.jj>J2.date.jj) alors
							Compare_date=  2
					Fin si
				Fin si
			Fin si
		Fin si
Fin
Procedure ajout (var L :LSC)
Var queue,P :LSC
Debut
	P<-allouer (taille(liste))
	*P.val=saisir_joueur()
	*P.suiv<-NULL
	Si (L=NULL) alors
L<-P
	Sinon
		Queue<-L
		Tant que (*queue.suiv !=NULL et compare_date (*queue.val,*p.val )=2) faire
			Pred<-queue
			Queue<-*queue.suiv
		Fin tant que
		Si (*queue.suiv=NULL) alors
			*queue.suiv=P
			Queue=P
		Sinon
			*p.suiv<-*queue.suiv
			*queue.suiv<-p
	Fin si
	Ajout<-L
Fin
Fonction nombre (L :lsc,code :entier) :entier
Var
S :entier
Q :LSC
Debut
	S<-0
	Q<-L
	Tant que (Q !=NULL) faire
		Si ((*Q.val).cd=code) alors
			S<-S+1
		Fin si
		Q<-*Q.suiv
	Fin tant que
Nombre<- S
Fin
Fonction Créer (L :LSC,code :entier) :LSC
P,Q,L2 :LSC
Debut
Q<-L
P<-NULL
Tant Que (Q !=NULL) faire
	Si ((*Q.val).cd=code) alors
		ajoutV2 (P)
	fin si
	Q<-*Q.suiv
Fin tant que
Fin