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]

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]

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