Les structures de contrôle conditionnelles/EX 1

-->

Ecrire un programme Pascal qui permet de saisir un caractére et d’afficher sa nature (lettre alphabétique, signe de ponctuation …)

Première Méthode:

program nature;

uses wincrt;

var c:char;

begin

writeln('saisir un caractere');

readln(c);

if (upcase(c)) in ['A'..'Z'] then

writeln('ce caractere est une lettre alphabetique')

else

if c in ['0'..'9'] then

writeln('ce caractere est un chiffre')

else

if c in [',',';',':','!','?','.'] then

writeln('ce caractere est un signe de ponctuation')

else

writeln('ce caractere est un symbole');

end.

-->
Deuxième Méthode:

program nature;

uses wincrt;

var c:char;

begin

writeln('saisir un caractere');

readln(c);

case c of

'A'..'Z' , 'a'..'z': writeln('ce caractere est une lettre alphabetique');

'0'..'9': writeln('ce caractere est un chiffre');

'+','-','*','/': writeln('ce caractere est un operateur arithmetique');

',',';',':','!','?','.': writeln('ce caractere est un signe de ponctuation')

else

writeln('ce caractere est un symbole');

end;

end.

-->