Forum des élèves du lycée Avenue Tahar Sfar Sousse
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
-15%
Le deal à ne pas rater :
(Adhérents) LEGO® Icons 10318 Le Concorde
169.99 € 199.99 €
Voir le deal

preparer vous pour l'exam

2 participants

Aller en bas

preparer vous pour l'exam Empty preparer vous pour l'exam

Message par anisagrebi 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

Revenir en haut Aller en bas

preparer vous pour l'exam Empty Exemple

Message par Admin 24th Novembre 2008, 23:39

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

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

https://ltss.forumperso.com

Revenir en haut Aller en bas

preparer vous pour l'exam Empty une solution

Message par Admin 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.
Admin
Admin
Admin

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

https://ltss.forumperso.com

Revenir en haut Aller en bas

preparer vous pour l'exam Empty Remarque

Message par Admin 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.
Admin
Admin
Admin

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

https://ltss.forumperso.com

Revenir en haut Aller en bas

preparer vous pour l'exam Empty un programme qui fonctionne pour tous nombres

Message par Admin 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.
Admin
Admin
Admin

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

https://ltss.forumperso.com

Revenir en haut Aller en bas

preparer vous pour l'exam Empty 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
Ne ratez plus aucun deal !
Abonnez-vous pour recevoir par notification une sélection des meilleurs deals chaque jour.
IgnorerAutoriser