UPCASE |
Casse haute |
|---|---|
| QuickPascal | System |
Syntaxe
| Function UpCase(ch:Char):Char; |
Paramètres
| Nom | Description |
|---|---|
| ch | Ce paramètre permet d'indiquer la chaîne de caractères à convertir |
Description
Cette fonction permet de convertir un caractère de format standard Pascal en majuscule.
Remarque
- La fonction UpCase renvoie la majuscule d'un caractère minuscule ; sinon, UpperCase renvoie le caractère lui-même.
Algorithme
|
MODULE UpCase(letter) EVALUER CAS letter CASE 'a': letter ← 'A' CASE 'b': letter ← 'B' CASE 'c': letter ← 'C' CASE 'd': letter ← 'D' CASE 'e': letter ← 'E' CASE 'f': letter ← 'F' CASE 'g': letter ← 'G' CASE 'h': letter ← 'H' CASE 'i': letter ← 'I' CASE 'j': letter ← 'J' CASE 'k': letter ← 'K' CASE 'l': letter ← 'L' CASE 'm': letter ← 'M' CASE 'n': letter ← 'N' CASE 'o': letter ← 'O' CASE 'p': letter ← 'P' CASE 'q': letter ← 'Q' CASE 'r': letter ← 'R' CASE 's': letter ← 'S' CASE 't': letter ← 'T' CASE 'u': letter ← 'U' CASE 'v': letter ← 'V' CASE 'w': letter ← 'W' CASE 'x': letter ← 'X' CASE 'y': letter ← 'Y' CASE 'z': letter ← 'Z' FIN EVALUER CAS RETOURNE letter |
Exemple
Voici un exemple typique de l'utilisation de cette fonction :
- Program UpCaseSamples;
-
- Function StrToUpper(Chaine:string):String;
- Var
- I:Byte;
- Begin
- For I := 1 to Length(Chaine) do Chaine[I] := UpCase(Chaine[I]);
- strtoupper:=Chaine;
- End;
-
- BEGIN
- WriteLn(StrToUpper('Sylvain Maltais'));
- WriteLn(StrToUpper('SYLVain MALTais'));
- WriteLn(StrToUpper('SYLVAIN MALTAIS'));
- END.
on obtiendra le résultat suivant :
SYLVAIN MALTAISSYLVAIN MALTAIS
SYLVAIN MALTAIS
Dernière mise à jour : Vendredi, le 13 février 2015