hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, vous devez
 
inscrire sur notre forum a partir d'ici
 
  NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
forum d'aide informatique : internet, réseau, programmation informatique ...
Ch3 - Leçon 3 ex4 p102
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Sam 29 Nov - 13:37 (2008)    Sujet du message: Ch3 - Leçon 3 ex4 p102 Répondre en citant

PublicitéSupprimer les publicités ?
{Type : Manipulation des caractères}
{Ex4 - page 102 : Afficher selon le cas la nature d'un caractère saisi
Consonne, voyelle, chiffre ou symbole (Tout est en miniscule)}

Program nature_caractere;
Uses wincrt ;
Var
c :char;
begin
write('tapez un caractère : ');
readln(c);
case ORD(c) of
48..57 : write('Le caractère crypté est : ',CHR(ORD(c)+1)); {ou bien SUCC(c)}
33..47,58..64,91..96,123..127 : write('Le caractère crypté est : ',CHR(ORD(c)+2)); {ou bien SUCC(SUCC(c))}
97,101,105,111,117,121 : write('Le caractère crypté est : ',CHR(ORD(c)-1)); {ou bien PRED(c)}
else
write('Le caractère crypté est : ',CHR(ORD(c)-2)); {ou bien PRED(PRED(c))}
end;
End.


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 13:05 (2016)    Sujet du message: Ch3 - Leçon 3 ex4 p102

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation