preparer vous pour l'exam

Aller en bas

preparer vous pour l'exam

Message par anisagrebi le 24th Novembre 2008, 23:33

Structure du programme pascal

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

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Exemple

Message par Admin le 24th Novembre 2008, 23:39

Écrire un programme en pascal qui affiche le nombre de chiffres paires dans un nombre de 4 chiffres:
avatar
Admin
Admin

Masculin
Nombre de messages : 42
Age : 41
Date d'inscription : 12/02/2008

Voir le profil de l'utilisateur http://ltss.forumperso.com

Revenir en haut Aller en bas

une solution

Message par Admin le 25th Novembre 2008, 00:10

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.
avatar
Admin
Admin

Masculin
Nombre de messages : 42
Age : 41
Date d'inscription : 12/02/2008

Voir le profil de l'utilisateur http://ltss.forumperso.com

Revenir en haut Aller en bas

Remarque

Message par Admin le 25th Novembre 2008, 00:15

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.
avatar
Admin
Admin

Masculin
Nombre de messages : 42
Age : 41
Date d'inscription : 12/02/2008

Voir le profil de l'utilisateur http://ltss.forumperso.com

Revenir en haut Aller en bas

un programme qui fonctionne pour tous nombres

Message par Admin le 25th Novembre 2008, 00:23

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.
avatar
Admin
Admin

Masculin
Nombre de messages : 42
Age : 41
Date d'inscription : 12/02/2008

Voir le profil de l'utilisateur http://ltss.forumperso.com

Revenir en haut Aller en bas

Re: preparer vous pour l'exam

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum