preparer vous pour l'exam
2 participants
Forum des élèves du lycée Avenue Tahar Sfar Sousse :: Structures de données :: Les tableaux à une dimension
Page 1 sur 1
preparer vous pour l'exam
Structure du programme pascal
Program NOM_DU_PROGRAMME ;
Uses WINCRT;
Type
NOUVEAU_TYPE = TYPE;
................................
Var
OBJET : NOUVEAU_TYPE;
...........................
Begin
{le corps du programme }
End.
Program NOM_DU_PROGRAMME ;
Uses WINCRT;
Type
NOUVEAU_TYPE = TYPE;
................................
Var
OBJET : NOUVEAU_TYPE;
...........................
Begin
{le corps du programme }
End.
anisagrebi- Nombre de messages : 9
Date d'inscription : 12/02/2008
Exemple
Écrire un programme en pascal qui affiche le nombre de chiffres paires dans un nombre de 4 chiffres:
une solution
program chiffres;
uses wincrt;
type
intervalle = 1000..9999;
var
nombre : intervalle;
test : boolean;
ch : string [4];
u,d,c,m,e,i : integer;
BEGIN
{***** remplir la valeur de nombre *****}
writeln('donner un nombre de 4 chiffres : ');
readln(nombre);
{***** initialiser le compteur des chiffres paires *****}
i:=0;
{***** on convertie le nombre en chaine de caractère ***}
str (nombre , CH);
{***** on récupère le premier chiffre ******}
val ( ch[1],m,e);
{****** on vérifie si paire on augmente le compteur + 1 sinon on fait rien *****}
if m mod 2 = 0 then i := i + 1;
{***** on récupère le deuxième chiffre ******}
val ( ch[2],c,e);
{****** on verifie si paire on augmente le compteur + 1 sinon on fait rien *****}
if c mod 2 = 0 then i := i + 1;
{***** on récupère le troisième chiffre ******}
val ( ch[3],d,e);
{****** on vérifie si paire on augmente le compteur + 1 sinon on fait rien *****}
if d mod 2 = 0 then i := i + 1;
{***** on récupère le quatrième chiffre ******}
val ( ch[4],u,e);
{****** on vérifie si paire on augmente le compteur + 1 sinon on fait rien *****}
if u mod 2 = 0 then i := i + 1;
{****** on affiche le résultat *****}
writeln('le nombre de chiffre paire dans le nombre ',nombre,' est ',i);
END.
uses wincrt;
type
intervalle = 1000..9999;
var
nombre : intervalle;
test : boolean;
ch : string [4];
u,d,c,m,e,i : integer;
BEGIN
{***** remplir la valeur de nombre *****}
writeln('donner un nombre de 4 chiffres : ');
readln(nombre);
{***** initialiser le compteur des chiffres paires *****}
i:=0;
{***** on convertie le nombre en chaine de caractère ***}
str (nombre , CH);
{***** on récupère le premier chiffre ******}
val ( ch[1],m,e);
{****** on vérifie si paire on augmente le compteur + 1 sinon on fait rien *****}
if m mod 2 = 0 then i := i + 1;
{***** on récupère le deuxième chiffre ******}
val ( ch[2],c,e);
{****** on verifie si paire on augmente le compteur + 1 sinon on fait rien *****}
if c mod 2 = 0 then i := i + 1;
{***** on récupère le troisième chiffre ******}
val ( ch[3],d,e);
{****** on vérifie si paire on augmente le compteur + 1 sinon on fait rien *****}
if d mod 2 = 0 then i := i + 1;
{***** on récupère le quatrième chiffre ******}
val ( ch[4],u,e);
{****** on vérifie si paire on augmente le compteur + 1 sinon on fait rien *****}
if u mod 2 = 0 then i := i + 1;
{****** on affiche le résultat *****}
writeln('le nombre de chiffre paire dans le nombre ',nombre,' est ',i);
END.
Remarque
Dans ce programme si on introduit un nombre qui n'appartient pas à l'intervalle [1000..9999] le programme l'accepte et fonctionne mai le résultat sera incorrecte.
un programme qui fonctionne pour tous nombres
program chiffres;
uses wincrt;
type
intervalle = 1000..9999;
var
nombre : intervalle;
test : boolean;
ch : string [4];
k,m,e,i : integer;
BEGIN
{***** remplir la valeur de nombre *****}
writeln('donner un nombre de 4 chiffres : ');
readln(nombre);
{***** initialiser le compteur des chiffres paires *****}
K:=0;
{***** on convertie le nombre en chaine de caractère ***}
str (nombre , CH);
{***** on récupère le premier chiffre ******}
for i:= 1 to length(ch) do
begin
val ( ch[i],m,e);
{****** on vérifie si paire on augmente le compteur + 1 sinon on fait rien *****}
if m mod 2 = 0 then k := k + 1;
end;
{****** on affiche le résultat *****}
writeln('le nombre de chiffre paire dans le nombre ',nombre,' est ',K);
END.
uses wincrt;
type
intervalle = 1000..9999;
var
nombre : intervalle;
test : boolean;
ch : string [4];
k,m,e,i : integer;
BEGIN
{***** remplir la valeur de nombre *****}
writeln('donner un nombre de 4 chiffres : ');
readln(nombre);
{***** initialiser le compteur des chiffres paires *****}
K:=0;
{***** on convertie le nombre en chaine de caractère ***}
str (nombre , CH);
{***** on récupère le premier chiffre ******}
for i:= 1 to length(ch) do
begin
val ( ch[i],m,e);
{****** on vérifie si paire on augmente le compteur + 1 sinon on fait rien *****}
if m mod 2 = 0 then k := k + 1;
end;
{****** on affiche le résultat *****}
writeln('le nombre de chiffre paire dans le nombre ',nombre,' est ',K);
END.
Forum des élèves du lycée Avenue Tahar Sfar Sousse :: Structures de données :: Les tableaux à une dimension
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|