cours numéro 05

Admin Age : 47 Inscrit le : 15 Mar 2008 Messages : 22

13 Fév 2008
Cours No 05 de PASCAL13. Le type caractère

De même qu'une valeur du type INTEGER était un nombre entier, une valeur de type caractère (CHAR) sera un caractère quelconque. Un caractère représente n'importe quel chiffre, lettre ou autre symbole existant dans le jeu de caractères utilisé sur un ordinateur.

Format de déclaration d'une variable de type caractère : Var
y : Char ;

Cette variable peut recevoir n'importe quel caractère pendant l'exécution du programme.
y := 'c' ; Ou bien y := 'l' ;
Remarque :
· Une variable de type caractère ne peut recevoir qu'un seul caractère,
· Généralement une variable de type caractère est représentée en mémoire par un octet,
· Une constante de type caractère est écrite entre deux quotes : ‘A’,’a’,’5’,’ ;’,(‘,…

14. Ordre d'un caractère

A chaque caractère: de l'alphabet utilisé correspond un entier qu'on appelle ordre du caractère, Par exemple l'ordre de ‘A' est 65 suivant la table de codification ASCIl. En Pascal, deux fonctions permettent le passage du caractère à son ordre et inversement. Ces deux fonctions sont les suivantes:

Fonction

Type argument

Type résultat

Rôle

Exemple

ORD

Char

Integer

Retourne l’ordre du caractère donné en argument

ORD(‘B’)

vaut 66

CHR

Integer (compris entre 0 et 255)

Char

Retourne le caractère ayant l’ordre indiqué

CHAR(65)

Vaut ‘A’

Exemple: Program Ordre_De_Caractere;

Var
C : Char ;
I : Integer ;
Begin
Readln(C) ;
I := ord (C) ;
Writeln ('Ordre du caractère ‘, C, ‘ : ',I) ;

END.

15. L'instruction composée

Une instruction composée est une suite d'instructions placées entre les mots clés BEGIN et END. Elle a la structure Suivante :
Begin
Instruction1 ;
instruction2 ;
……………….
instructionn
End;

Notons que les instructions entre BEGIN et END se terminent toutes par un point virgule sauf la dernière.

16. L'instruction de rupture de séquence (l'alternative):

On l'appelle aussi l'instruction conditionnelle, et comme son nom l'indique elle sert à utiliser une condition pour séparer deux cas (ou plusieurs) dans un traitement. Pascal offre deux formes de l'alternative.

a) L'alternative simple:

Sa forme générale est: IF condition THEN

Begin
instruction 1 ;
instruction2 ;
…….. ;
instructionN
End;

condition: est un expression booléen.
L'exécution de l'alternative se fait comme suit:
* Si la condition qui se trouve entre IF et THEN est égale à TRUE alors l’exécution se poursuit à l'instruction composée qui suit THEN.
* Si la condition qui se trouve entre IF et THEN est égale à FALSE alors l'exécution se poursuit directement à l'instruction suivante,

Remarque :
* Si l'instruction composée qui suit THEN contient une seule instruction, alors l’utilisation des mots clés BEGIN et END est facultative.
* L'instruction composée qui suit THEN peut à son tour contenir une instruction conditionnelle, ou toute instruction valide dans Pascal.

Exemple 1 : IF Delta = 0 THEN
Begin
X := -B/(2*A);
Writeln(‘Solution double ‘);
Writeln ('X=' ,X)
End.

Exemple 2: Résolution d'une équation du premier degré

Program PremierDegre;
Var
X, A, B : REAL;
Begin
READLN(A,B);
IF A <>0 THEN
Begin
X := -B / A ;
Writeln ('X=' , X)
End;
IF A= 0 THEN
Writeln ('Pas de solution')

END.

b) L'alternative double :
Pascal offre une deuxième instruction conditionnelle qui permet définir le traitement à effectuer dans le cas où la condition=TRUE et le traitement à effectuer dans le cas où la condition=FALSE. La forme de cette instruction est la suivante.

IF condition THEN
Begin
instruction;
…………..;
Instruction
End
ELSE
Begin
instruction;
………….. ;
instruction
End.

L'exécution de cette instruction se fait comme suit:

* Si la condition=TRUE alors l'exécution se poursuit à l'instruction composée qui suit THEN,
* Si la condition=FALSE alors l'exécution se poursuit à l'instruction composée qui suit ELSE,
* Dans les deux cas, après l'exécution de l'une des deux instructions composées, l'exécution se poursuit à l'instruction suivante.

Remarque: Le mot réservé ELSE ne doit jamais être précédé d'un point virgule.

Exemple 1 : Equation du premier degré
IF A <>0 THEN
Begin
X := -B/A ;
Writeln ('X=', X)
End
ELSE Writeln ('Pas de solution') ;

Exemple 2 : Trouver le plus grand parmi trois entier A, B et C.

Program LePLusGrand;
Var
A, B, C : Integer;
Begin
Readln (A, B, C) ;
IF A>B THEN
IF A>C THEN Writeln(A)
ELSE Writeln (C)
ELSE
IF B>C THEN Writeln(B)
ELSE Writeln (C)
end.