Instruction SWAP sur Qbasic
rsca0123
Messages postés
6
Statut
Membre
-
qbasic45 Messages postés 60 Statut Membre -
qbasic45 Messages postés 60 Statut Membre -
Bonjour,
J'aurai besoin que vous me disiez comment utiliser l'instruction swap sur le Qbasic.
Je sais que c'est pour inverser 2 choses et j'en aurai besoin pour classer plusieurs choses sur le Qbasic.
Dans mon programme, je dois classer par ordre décroissant plusieurs choses. Dois-je les mettre dans une liste avant d'utiliser "swap"?
J'espère que je me suis fais comprendre. Merci pour vos réponses.
J'aurai besoin que vous me disiez comment utiliser l'instruction swap sur le Qbasic.
Je sais que c'est pour inverser 2 choses et j'en aurai besoin pour classer plusieurs choses sur le Qbasic.
Dans mon programme, je dois classer par ordre décroissant plusieurs choses. Dois-je les mettre dans une liste avant d'utiliser "swap"?
J'espère que je me suis fais comprendre. Merci pour vos réponses.
2 réponses
-
Bonsoir,
en QBasic, l'instruction swap permet d'échanger deux variables (pas les inverser), sans passer par une variable temporaire
si a=0 et b=1, après swap(a,b), a=1 et b=0
donc swap(a,b) est équivalent à
temp=a : a=b : b=temp
bonne suite. -
bonjour
dim c$(10)
c$(1)="E"
c$(2)="H"
c$(3)="D"
c$(4)="A"
c$(5)="J"
c$(6)="C"
c$(7)="F"
c$(8)="A"
c$(9)="G"
c$(10)="B"
FOR i = 1 TO 10 - 1
FOR j = i + 1 TO 10
IF c$(j) < c$(i) THEN SWAP c$(i), c$(j)
NEXT j
NEXT i
for a=1 to 10
print c$(a);" ";
next a
donee = A B C D E F G H I J
rem
FOR i = 1 TO 10 - 1
FOR j = i + 1 TO 10
IF c$(j) > c$(i) THEN SWAP c$(i), c$(j)
NEXT j
NEXT i
for a=1 to 10
print c$(a);" ";
next a
donee = J I H G F E D C B A
