| | cours numéro 05 |  Sam 15 Mar - 23:10 par Admin | 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.
| | Commentaires: 0 |
| | Qui est en ligne ? | Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité
Utilisateurs enregistrés : Aucun
[ Voir toute la liste ]
Le record du nombre d’utilisateurs en ligne est de 5 le Lun 26 Mai - 20:41
|
| Statistiques | Nous avons 16 membres enregistrés
L’utilisateur enregistré le plus récent est HAKIKI MUSTAPHA YACINE
Nos membres ont posté un total de 58 messages dans 21 sujets
|
|
