A voir également:
- Besoin d'aide! Tableaux
- Tableaux croisés dynamiques - Guide
- Fusionner deux tableaux excel - Guide
- Barbara veut calculer automatiquement son budget dans un tableau. citez un des logiciels lui permettant de faire des calculs sur des tableaux de nombres (tableur). - Forum Musique / Radio / Clip
- Citez un des logiciels lui permettant de faire des calculs sur des tableaux de nombres (tableur). ✓ - Forum LibreOffice / OpenOffice
- À l’aide des tableaux ci-dessous, trouvez le mot dont le code ascii est le suivant : 50 52 4f 4d 45 4e 45 55 52 - Guide
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
16754
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
25 novembre 2024
3 020
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!