Remerciez-le!

Remerciez @Admin pour avoir partagé cet document gratuitement, de la manière la plus simple, en partageant sur les réseaux sociaux.

var tableau nomTab[]:entier tableau intermTab[]:entier debut i:=1 repeter lire(

var tableau nomTab[]:entier tableau intermTab[]:entier debut i:=1 repeter lire(nomTab[i]) SI nomTab[i]<>0 alors si i=1 alors max:=nomTab[i] sinon si max<nomTab[i] alors max:=nomTab[i] finsi finsi finsi i:=i+1 jusqua nomTab[i-1]=0 // SOMME DU TABLEAU s:=0 ecrire("elements du tableau\n ") POUR j=1 à i-2 pas 1 faire s:=s+nomTab[j] ecrire(nomTab[i],"-") finpour ecrire(nomTab[i-1]) s:=nomTab[i-1]+s ecrire("somme du tableau est ",s) // VERIFIER SI LE TABLEAU EST TRIE methode 1 sans boolean j:=1 k:=1 tantque (nomTab[j]<nomTab[j+1] et j<=i-2 ) ou (nomTab[k]>nomTab[k+1] et k<=i-2 ) faire j+=1 k+=1 finttanque si j=i-1 ou k=i-1alors ecrire("le tableau est trie") sinon ecrire ("le tableau est non trie") finsi /// RENVERSER UN TABLEAU TECHNIQUE 1 tableau intermediaire k=1 pour j=i-1 à 1 pas -1 faire intermTab[k]=nomTab[j] k:=k+1 finpour pour j=1 à i-1 PAS 1 faire nomTab[j]:=intermTab[j] finpour /// RENVERSER UN TABLEAU TECHNIQUE 2 sans tableau intermediaire k=i-1 pour j=1 à n div 2 pas 1 faire c:=nomTab[j] nomTab[j]:=nomTab[k]; nomTab[k]:=c; k:=k-1 finpour // REMPLISSAGE CLASSIQUE TABLEAU LIRE(n) pour i=1 à n pas 1 faire lire(t[i]) finpour // exercice 4 serie 2 algo flag booleen var tableau t[100]:entier n,i:entier trouve:booleen debut trouve=faux lire(valeur) i:=1 tantque trouve et i<=n faire si t[i]=valeur alors trouve=vrai finsi i:=i+1 fintanque si trouve=vrai alors ecrire("la valeur", valeur,"fait partie du tableau) sinon ecrire("la valeur est introuvable") finsi fin // recherche de position 1 ere Occurence var tableau t[100]:entier n,i:entier debut lire(valeur) i:=n pos:=-100 tantque pos=-100 et i>=1 faire si t[i]=valeur alors pos:=i finsi i:=i-1 fintanque si pos=-100 alors ecrire("la valeu ne fait partie du tableau") sinon ecrire("la valeur SE TROUVE EN derniere Occurence ",pos) finsi fin // afficher tous les positions var tableau t[100]:entier n,i:entier debut lire(valeur) i:=1 trouve:=0 tantque i<=n faire si t[i]=valeur alors ecrire(" la valeur ",valeur, " se trouve en position: ",i) trouve:=1 finsi i:=i+1 fintanque si trouve=0 alors ecrire("la valeu ne fait pas partie du tableau") finsi fin // **********************afficher tous les positions en utilisant tableau intermediaiare var tableau t[100],pos[100]:entier n,i:entier debut lire(valeur) i:=1 k:=1 tantque i<=n faire si t[i]=valeur alors pos[k]:=i k:=k+1 finsi i:=i+1 fintanque si k=1 alors ecrire("la valeu ne fait pas partie du tableau") sinon ecrire("la valeur se trouve en positions:") pour j=1 à k-2 faire ecrire(pos[j],"-") finpour ecrire(pos[k-2]) finsi fin uploads/Litterature/ activite-algo-boucles.pdf