PASCAL: AN INTRODUCTION

TYPES ENUMERES
Les types ennumérés sont définis par le programmeur. Ils vous permettent de créer vos propres types, qui consistent en un ensemble de symboles. Vous créez d'abord l'ensemble de symboles et leur donnez un nouveau nom de type.

L'étape suivante consiste à créer des variables de ce type. Les portions de codes ci-dessous montrent comment créer des variables énumérées.


	type  civil_servant = ( clerk, police_officer, teacher, mayor );
	var   job, office : civil_servant;

Le nouveau type créé est civil_servant. C'est un ensemble de valeurs entouré par des parenthèses. Ces valeurs sont les seules qui peuvent être comparées ou assignées aux variables de type civil_servant.

La ligne suivante déclare deux variables, job et office, qui seront du nouveau type civil_servant.

Les instructions suivantes sont correctes,


	job := mayor;
	office := teacher;

	if office = mayor then writeln('Hello mayor!');

La liste des valeurs ou symboles entre parenthèses est un ensemble ordonné. Le premier symbole dans l'ensemble a une valeur ordinale de zéro, et chaque symbole successif a une valeur plus grande de un que celle de son prédécesseur.


	police_officer < teacher

est evalué comme étant vrai, parce que police_officer se trouve avant teacher dans l'ensemble.

AUTRES EXEMPLES DE TYPES ENUMERES


	type beverage = ( coffee, tea, cola, soda, milk, water );
	     color    = ( green, red, yellow, blue, black, white );
	var  drink : beverage;
	     chair : color;

	beverage := coffee;
	chair    := green;

	if chair = yellow then beverage := tea;