Section courante

A propos

Section administrative du site

UPCASE

Casse haute
Turbo Pascal 3+ System

Syntaxe

Function UpCase(ch:Char):Char;

Paramètres

Nom Description
ch Ce paramètre permet d'indiquer la chaine de caractères à convertir

Description

Cette fonction permet de convertir un caractère en majuscule.

Remarque

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 :

  1. Program UpCaseSamples;
  2.  
  3. Function StrToUpper(Chaine:string):String;
  4. Var
  5.  I:Byte;
  6. Begin
  7.  For I := 1 to Length(Chaine) do Chaine[I] := UpCase(Chaine[I]);
  8.  strtoupper:=Chaine;
  9. End;
  10.  
  11. BEGIN
  12.  WriteLn(StrToUpper('Sylvain Maltais'));
  13.  WriteLn(StrToUpper('SYLVain MALTais'));
  14.  WriteLn(StrToUpper('SYLVAIN MALTAIS'));
  15. END.

on obtiendra le résultat suivant :

SYLVAIN MALTAIS
SYLVAIN MALTAIS
SYLVAIN MALTAIS

Références

Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 444.

Dernière mise à jour : Dimanche, le 8 février 2015