TRI d'un Tableau par la méthode des Bules

[@missjulia7071]

Merci bcp, j'aime votre travail et votre méthode d'explication,, que dieu vous garde 😇😇

[@algo-prog]

De rien. Merci pour votre commentaire

[@missjulia7071]

Je vous en prie ❤😊

[@kipshobotch1821]

mash'Allah mon frere tu explique vraiment bien barak'Allahwfik

[@algo-prog]

Wa fika baraka Allah.

[@loulitailaa8340]

svp jai compris comment on utulise les variables booleanes

[@algo-prog]

Bonjour, Vous avez compris ou pas compris l'utilisation des variables booléennes ? Cordialement.

[@loulitailaa8340]

@@algo-prog j'ai pas compris l'utilisation des variables booleennes

[@algo-prog]

Bonsoir, Le type booléen contient uniquement deux valeurs : True et False. On utilise des variables de ce type pour indiquer l'existence ou l'inexistence d'une information. Par exemple la recherche d'une valeur dans un vecteur. Voir ce lien: Cordialement.

[@algo-prog]

Pardon, j'ai oublié le lien : onlinegdb.com/JMS3Lh1mA

[@hi_lemmoui]

est-ce que quelqu'un peut m'aider à trouver l'erreur program trie_methode_bule; Uses WinCrt; Var T : Array[1..50] of real; N ,i :Integer; temp:real; permut:Boolean; Begin WriteLn('donner la taille du vecteur T : '); read(N); writeln ('donner les valeurs du T :'); for i:= 1 to N Do Read(T[i]); Repeat permut:=False; for i:= 1 to (N-1) Do If (T[i] > T[i+1] ) Then Begin temp:=T[i]; T[i] := T[i+1]; T[i+1] := temp; end; permut := false; Until Not (permut); WriteLn; WriteLn; WriteLn('le tab aprée trie (croissant ) '); for i:= 1 to N Do Write(T[i]:0:2,' '); end.

[@algo-prog]

Bonsoir, Saha Aidkoum. Voici un lien, pour lire le code source et l'exécuter en ligne : onlinegdb.com/rkGMQxju_ Cordialement

[@algo-prog]

Si vous n'arriver pas à ouvrir le lien, voici votre problème qui a été corrigé : program trie_methode_bule; Uses wincrt; {Pour moi, j'ai utilisé crt (avec LINUX)} Var T : Array[1..50] of real; N ,i :Integer; temp:real; permut:Boolean; Begin WriteLn('donner la taille du vecteur T : '); read(N); writeln ('donner les valeurs du T :'); for i:= 1 to N Do Read(T[i]); Repeat permut:=False; for i:= 1 to (N-1) Do If (T[i] > T[i+1] ) Then Begin temp:=T[i]; T[i] := T[i+1]; T[i+1] := temp; permut := true; end; Until Not (permut); WriteLn; WriteLn; WriteLn('le tab aprée trie (croissant ) '); for i:= 1 to N Do Write(T[i]:0:2,' '); end. Bon courage & Travaillez bien.