Discussion :

[159753]

Je voudrais faire un programme en Pascal qui résoud ce problème : j'ai un ensemble de nombres pairs et impairs et je voudrais afficher dans un tableau les nombres impairs et l'autre les pairs.
Merci d'avance...

[Alcatîz]

Bonjour,

Si tu veux de l'aide, le mieux est de poster ce que tu as fait et d'expliquer précisément ce qui te pose problème.

[159753]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
program pair&impair;
uses wincrt;
var
  v:integer;
begin
  writeln('donner un nombre entier');
  read(v);
  if (odd(v)) then 
    write('entier impair');
  if  (not(odd(v)))  then  
    writeln('entier pair');
end.

Mais ça pour un seul nombre. Donc, si c'est possible, un programme qui permet à l'utilisateur d'afficher les impairs dans un tableau et les pairs dans un autre tableau... Merci d'avance.

[richard]

Bonsoir,

Utilise les balises <CODE> que tu trouves avec le bouton '#' de ta fenêtre d'édition de post.

Pour ton problème, il te faut tout simplement une boucle du type Repeat ... Until ou While Do selon que tu veux l'exécuter au moins une fois ou pas.

L'algo serait le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 Repeter 
  Debut 
    Lire valeur
    Si valeur=> paire Alors 
      Debut
       TableauPair[IndicePair] := valeur
        Incremente(IndicePair)
       Fin 
     Autrement
       Début
        TableauPair[IndiceImpair] := valeur
        Incremente(IndiceImpair)
       Fin
     Afficher('Voulez-vous trier un autre nombre ? (oui/ non)')
     Jusqu'à ce que reponse='non'
    Fin

[Alcatîz]

Une remarque par rapport à ce que tu as écrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
  if (odd(v)) then 
    write('entier impair');
  if  (not(odd(v)))  then  
    writeln('entier pair');

peut (doit) être remplacé par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
  if (odd(v)) then 
    write('entier impair')
  else
    writeln('entier pair');

[159753]

merci c est gentil je vais essayer de le transformer en program sur le pascal à demain merci encore bonne nuit ...

[159753]

salut j'ai ce algo : je voudrai le traduiser en program pascal

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Repeter 
  Debut 
    Lire valeur
    Si valeur=> paire Alors 
      Debut
       TableauPair[IndicePair] := valeur
        Incremente(IndicePair)
       Fin 
     Autrement
       Début
        TableauPair[IndiceImpair] := valeur
        Incremente(IndiceImpair)
       Fin
     Afficher('Voulez-vous trier un autre nombre ? (oui/ non)')
     Jusqu'à ce que reponse='non'
    Fin

-le problemme ce que je n arrive pas le traduiser en pascal tpw1.5
voulez-vous m'aider .
Aussi
je voudrai faire un d'autre programme qui conserne les nombres paires & impairs.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program   pair&impair;
uses wincrt;
type   tab=array[1..6] of integer;
var
t:tab;
j,i,k,n:integer
begin
for i:=1 to 6 do 
begin
writeln('donnez vos nombres paire ou impair ');
read(t[i]);
end;
if  (odd(t[i])) then
 t[j]:=(' les nombres  pair') // je ne sais quoi ecrire pour afficher les pairs 
writeln(t[j]);
if (not(odd(t[i]))) then 
 t[k]:=('les nobres impairs') // je ne sais pas comment s ecrire pour afficher tout les impairs
writeln(t[k]);
end.

[richard]

Pour l'algo que je t'ai donné, la traduction en Pascal est simple : il suffit d'utiliser les notions élémentaires du langage.

Tu peux trouver ça ici :
http://www-ipst.u-strasbg.fr/pat/program/pascal_t.htm

Répeter se traduit par un "Repeat ... until" etc. Ecris au moins un bout de code on regardera.

[159753]

je vous remerci bref
danc tout simplement je n arrive pas faire un programme qui afffiche les nombres impairs dans un tableau par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
t[i]:=1 2 3 4 5 6;
pair est :
t[j]:= 2 4 6 
impair est :
t[k]:=1 3 5

danc exite-t-il un programme en pascal
merci d'avance.

[richard]

if (odd(t[i])) then

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

t[j]:=(' les nombres  pair')

// je ne sais quoi ecrire pour afficher les pairs
writeln(t[j]);

ceci va afficher l'élément pair de rang 'j' (donc un seul). Sinon il faut parcourir tout le tableau avec une instruction FOR pour afficher toutesles valeurs du tableau. Même chose pour les impairs bien sûr.

if (not(odd(t[i]))) then

Il me semble qu'on t'a déjà dit quelque chose à ce propos.

[159753]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
program pair&impair;
uses wincrt;
type tab=array[1..6] of integer;
var
t:tab;
i,j,k,n:integer
repeat
begin
writeln(' donnez des nombres pairs & impairs' );

je n 'arrive pas à compléter pardon je suis faible

[M.Dlb]

Il va falloir faire un effort, car personne ici ne fera ton travail à ta place. Tu as dû avoir un cours, alors tu peux t'en servir pour terminer ton exercice. Petit rappel: merci de lire les règles du forum ici : http://club.developpez.com/regles

[richard]

je vous remerci bref
danc tout simplement je n arrive pas faire un programme qui afffiche les nombres impairs dans un tableau par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
t[i]:=1 2 3 4 5 6;
pair est :
t[j]:= 2 4 6 
impair est :
t[k]:=1 3 5

danc exite-t-il un programme en pascal
merci d'avance.

la question est mal formulée et révèle un manque de connaissances sur les bases du langage et de la prorammation.

On n'affiche rien dans un tableau vu qu'un tableau est une structure de données, on stocke des valeurs dans un tableau, c'est tout.

On peut afficher ce qui est stocké dans un tableau, c'est différent.

Pour ton exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12

  For i:=0 to 6 DO
    Begin
      If condition Then
        Begin 
           traitement pairs
        End
       Else
         Begin
           Traitements impairs
          End;

Ne pas oublier de déclarer et d'initialiser toutes les variables bien entendu.

[159753]

Merci mais j'aimerais bien vous dire que je suis nouveau ici, aussi je maîtrise un peu le français. D'une part je peux envoyer le message, d'autre part j'adore les programmes et je vais suivre tous vos conseils et, savez-vous bien que j'adore toutes les personnes & developpeurs de ce site. Donc je vais réviser les leçons de Pascal que vous m'avez données et de ma part je vous souhaite bonne nuit car j'ai d'autres obligations. Merci de votre aide bn8.

[159753]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program pair&impair;
uses wincrt;
type tab=array[1..6] of integer;
var 
t:tab;
i,j,n:integer;
begin
for i:=1 to 6 do
begin
writeln('donnez vos nombres entiers');
read(n);
end;
if n mod 2=0 then 
writeln(' les nombres entiers & pairs sont     :');
for i:=1 to 6 do 
t[i]:=n
else 
t[j]:=n
end.

donc vraiment je ne sais même pas ou est l 'erreur
il y a t-il un développeur qui puisse m'aider? je suis débutant en pascal.
Je voudrais afficher les impairs sur un tableau et les pairs sur d'autre tableau
merci d'avance...

[richard]

Bonjour,

(ça fait toujours plaisir)

Tout le monde n'est pas connecté 24 h sur 24 h sur ton problème. Nous avons aussi un vrai métier dans la vraie vie, il faut être un peu patient...

Il y a un problème dans cette boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
for i:=1 to 6 do 
t[i]:=n
else 
t[j]:=n
end.

Revois les boucles 'if' et 'for'

[159753]

je vous remerci c est gentil