A voir également:
- Besoin d'aide! Tableaux
- Tableaux croisés dynamiques - Guide
- Fusionner deux tableaux excel - Guide
- À l’aide des tableaux ci-dessous, trouvez le mot dont le code ascii est le suivant : - Guide
- Fusionner deux tableaux word ✓ - Forum Word
- Cpl deux tableaux électriques - Forum CPL
3 réponses
program Devoir;
Var i,temp1,temp2 : integer ;
Idem : boolean ;
I :=1 ;
While i<lmax do
listeRes[i] :=0 ;
end;
i:=1 ;
Lg1 :=1 ;
While (lg1<LMAX) do
Idem :=true ;
Lg2 :=1 ;
Temp1 :=liste1[lg1] ;
While (lg2<LMAX) and (idem=true) do
Temp2 :=liste2[lg2] ;
If temp1<>temp2 do
Idem :=false ;
end ;
end.
Voila ce que j'ai réussi à produire, maintenant c'est i,complet je ne sais pas comment faire pour le tri de List1 etList2 et pour le principe des doublons
Var i,temp1,temp2 : integer ;
Idem : boolean ;
I :=1 ;
While i<lmax do
listeRes[i] :=0 ;
end;
i:=1 ;
Lg1 :=1 ;
While (lg1<LMAX) do
Idem :=true ;
Lg2 :=1 ;
Temp1 :=liste1[lg1] ;
While (lg2<LMAX) and (idem=true) do
Temp2 :=liste2[lg2] ;
If temp1<>temp2 do
Idem :=false ;
end ;
end.
Voila ce que j'ai réussi à produire, maintenant c'est i,complet je ne sais pas comment faire pour le tri de List1 etList2 et pour le principe des doublons
KX
Messages postés
16668
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2023
3 005
20 nov. 2012 à 00:27
20 nov. 2012 à 00:27
Tu pourrais déjà commencer par faire un copier-coller de ce qui t'es imposé !
Ensuite, nul part on ne te demande de trier tes listes List1 et List2 !
Alors relis tes consignes, c'est plus simple que ce que tu essayes de nous faire croire...
const
LMAX=30;
var
lg1, lg2 : integer;
liste1, liste2 : array [1..LMAX] of integer;
Ensuite, nul part on ne te demande de trier tes listes List1 et List2 !
Alors relis tes consignes, c'est plus simple que ce que tu essayes de nous faire croire...
RECTIFICATION :
program DEVOIR ;
const
LMAX=30;
var
lg1 , lg2 : integer ;
cpt1, cpt2, cptres : integer ;
existe: boolean;
liste1 , liste2 : array [ 1...LMAX] of integer ;
listeRes : array [1...LMAX] of real;
begin
cptres:=0;
While cptres <lmax do
begin
cptres:=cptres+1;
listeRes[i] :=-1 ;
end;
existe:= false;
cpt1:=0;
cpt2:=0;
cptres:=1;
while (cpt1<lg1) do
begin
cpt1 := cpt1+1 ;
while (cpt2<lg2) do
begin
cpt2:=cpt2+1;
if (liste1[cpt1] =liste2[cpt2]) then
begin
existe:=true;
end;
cpt2:=cpt2+1
end;
if not existe then
listeRes[cptres]:=liste[cpt1] ;
cptres:=cptres+1;
existe :=false ;
cpt1 :=cpt1+1 ;
end;
end.
- Il ne faut pas s'occuper de l'affichege
-Ici je n'ai juste pas la methode tri et la methode pour les doublons
Si vous pouviez m'aider à les rajouter cela m'aiderait vraiment!
program DEVOIR ;
const
LMAX=30;
var
lg1 , lg2 : integer ;
cpt1, cpt2, cptres : integer ;
existe: boolean;
liste1 , liste2 : array [ 1...LMAX] of integer ;
listeRes : array [1...LMAX] of real;
begin
cptres:=0;
While cptres <lmax do
begin
cptres:=cptres+1;
listeRes[i] :=-1 ;
end;
existe:= false;
cpt1:=0;
cpt2:=0;
cptres:=1;
while (cpt1<lg1) do
begin
cpt1 := cpt1+1 ;
while (cpt2<lg2) do
begin
cpt2:=cpt2+1;
if (liste1[cpt1] =liste2[cpt2]) then
begin
existe:=true;
end;
cpt2:=cpt2+1
end;
if not existe then
listeRes[cptres]:=liste[cpt1] ;
cptres:=cptres+1;
existe :=false ;
cpt1 :=cpt1+1 ;
end;
end.
- Il ne faut pas s'occuper de l'affichege
-Ici je n'ai juste pas la methode tri et la methode pour les doublons
Si vous pouviez m'aider à les rajouter cela m'aiderait vraiment!