Discussion :

[doumb91]

Bonjour,

Un étudiant de MI dispose des données de deux tableaux de taille 20 chacun. Les tableaux T1 et T2 contiennent respectivement des éléments pairs et impairs. Cet étudiant veut transférer les données de T1 et T2 dans un tableau T3 dans un processus d'inter-classement (prendre un élément de T1 suivi d'un élément de T2, etc.). Aide-le à écrire le programme et faire la somme des éléments de T3.

Aidez-moi à résoudre cet exercice, SVP.

[anapurna]

salut

et qu'a tu essayer de faire ? .... nous ne somme pas la pour faire ton exercice a ta place

[anapurna]

salut

en pascal tu ne peut pas utiliser la boucle for donc il va falloir utiliser la boucle while

Code :

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

1
2
3
4
5
6
7
8
 
 i:=0 
 while i < (NombreIteration) do 
 begin
   tab[i] := Je fais mon truc 
  ...
   i := i+2  // ou  Inc(i,2);
 end;

[doumb91]

VOICI CE MON PROGRAMME MAIS JAI PAS LA REPONSE QUE J'ATTENDS

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
20
21
22
23
24
25
26
27
28
29
30
31
32
program project1;
  const n=5;
    m=10;
    x=1;
  type tab=array [1..n] of integer;
       tab1=array [1..n] of integer;
       tab2=array [x..m] of integer;
  var t:tab;
      t1:tab1;
      t2:tab2;
i:integer;
 
begin
  writeln('entrer les donnees du tableau 1');
  for i:=1 to n  do
  begin
    readln(T1[i]);
  end;
  writeln('entrer les donnees du tableau 2 ');
  for i:=1 to n do
  begin
    readln(T2[i]);
  end;
 
  for i:=1 to n do
  begin
     T[i]:= T1[i];
     T[i]:= T2[i];
     writeln('t3=',T[i],'  ');
 end;
  readln;
end.

[droggo]

Bonjour,

en pascal tu ne peut pas utiliser la boucle for donc il va falloir utiliser la boucle while

Ça vient de sortir ?

[doumb91]

VOICI CE MON PROGRAMME MAIS JAI PAS LA REPONSE QUE J'ATTENDS

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
20
21
22
23
24
25
26
27
28
29
30
31
32
program project1;
const n=5;
m=10;
x=1;
type tab=array [1..n] of integer;
tab1=array [1..n] of integer;
tab2=array [x..m] of integer;
var t:tab;
t1:tab1;
t2:tab2;
i:integer;
 
begin
writeln('entrer les donnees du tableau 1');
for i:=1 to n do
begin
readln(T1[i]);
end;
writeln('entrer les donnees du tableau 2 ');
for i:=1 to n do
begin
readln(T2[i]);
end;
 
for i:=1 to n do
begin
T[i]:= T1[i];
T[i]:= T2[i];
writeln('t3=',T[i],' ');
end;
readln;
end.

[Roland Chastain]

@doumb91

Bonjour ! Merci de ne pas créer inutilement plusieurs discussions sur le même sujet. Rappelez-vous également que le but de ce forum est de vous aider à progresser, et non pas de faire votre travail à votre place.

[anapurna]

VOICI CE MON PROGRAMME MAIS JAI PAS LA REPONSE QUE J'ATTENDS

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
20
21
22
23
24
25
26
27
28
29
30
31
32
program project1;
const n=5;
m=10;
x=1;
type tab=array [1..n] of integer;
tab1=array [1..n] of integer;
tab2=array [x..m] of integer;
var t:tab;
t1:tab1;
t2:tab2;
i:integer;
 
begin
writeln('entrer les donnees du tableau 1');
for i:=1 to n do
begin
readln(T1[i]);
end;
writeln('entrer les donnees du tableau 2 ');
for i:=1 to n do
begin
readln(T2[i]);
end;
 
for i:=1 to n do
begin
T[i]:= T1[i];
T[i]:= T2[i];
writeln('t3=',T[i],' ');
end;
readln;
end.

salut ça aurais presque pu marche sauf que la valeur indiqué dans le T seras toujours la valeur de T2
si je dis que l'on ne peut pas le faire avec For c'est que je connais assez bien le pascal et qu'il n'existe pas de step pour la boucle for
donc il est plus simple d'utiliser le while

sinon tu peut effectivement utiliser une boucle For mais a chaque boucle il te faudra calculer l'indice
reprenons ton exemple

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
20
21
22
23
24
25
26
27
28
29
 
...
const 
n  = 5;
m =10;
x  = 1;
var
t1:array [1..n] of integer;
t2:array [1..m] of integer;
//T étant la résultante elle doit obligatoirement faire la taille des deux tableau réunie
 t : array [1..n+m] of integer;
 
i:integer;
...
for i:=1 to n do //ici tu vas que j'usqu'a 5 
begin
  T[i*2-1] := T1[i]; 
  T[i*2]    := T2[i];
  ...
end;
// ton tableau a déjà 10 cases de pris 
// pour compléter la fin du t2
for i:=n to m do //ici tu vas que jusqu’à 5 
begin
  T[i+(n*2)]    := T2[i];
  ...
end;
... voila le tableau est complet
end.

voila ce qui peut être fait avec les boucle For mais je trouve cela moins parlant qu'une boucle While

[droggo]

Bonjour,

si je dis que l'on ne peut pas le faire avec For c'est que je connais assez bien le pascal et qu'il n'existe pas de step pour la boucle for
donc il est plus simple d'utiliser le while

En quoi while est-il mieux dans ce cas : la boucle for a obligatoirement un step de 1 (ou -1), et comme le compteur de boucle sert à adresser les cellules de tableaux, c'est précisément ce dont on a besoin.

Ceci étant dit, utilise while si TOI tu préfères ça, mais ne dit pas que c'est mieux (c'est exactement la même chose de dire "ce n'est pas bon" quand on te donne à manger quelque chose que tu n'aimes pas...).

[doumb91]

merci les garsde m'avoir aider moi aussi je le ferais dans mon pays .