Inverser la position d'un nombre avec un autre sans utiliser de IF

**beegees** · 10/08/2008, 11h19

Bonjour tout le monde,

Je suis occupé à faire un exercice qui consiste à inverser les colonnes d'un tableau comme le montre l'exemple ci-dessous :

333639883256

devient

563288393633 (le dernier devient le premier...)

Je me demandais si il y'avait une fonction qui permettait de le faire sans devoir utiliser IF THEN END IF.

J'ai essayé ceci :

MOVE FUNCTION REVERSE(TA2(I,J)) TO TA2(I,NB-K)

Mais il inverse les nombres avant de les positionner au bon endroit, ça donne avec l'exemple ci-dessus :

652388936333

Merci d'avance pour votre aide.

beegees

PS: voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
       IDENTIFICATION DIVISION.
       PROGRAM-ID. ExamenCobol2eSession.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
      *AssignATION NOM PHYSIQUE - NOM LOGIQUE
       SELECT FICH2008 ASSIGN "tableaux.txt"
       ORGANIZATION IS LINE SEQUENTIAL
       ACCESS MODE IS SEQUENTIAL.

       DATA DIVISION.
       FILE SECTION.
       FD FICH2008.
         01 STRUCTURE.
            02 TAB-FICH.
      *Permet de savoir si on est à la fin du fichier
                 88 FIN-FICH   VALUE HIGH-VALUES.
      *Ici on a besoin que de la ligne
      *Je crée un niveau supplémentaire car plus facile de copier la
      *ligne dans le tableau.
                  03 CHIFR.
                     04 C PIC 99 OCCURS 8 TIMES.

       WORKING-STORAGE SECTION.
      *TABLEAU
        01 TABLEAU.
      *les lignes du tableau
          03 TA1 OCCURS 4 TIMES.
      *les colonnes
          04 TA2 PIC XX OCCURS 6 TIMES.

       77 I PIC 99.
       77 J PIC 99.
      * NB-K : nombre de colonne et K la constante de ces colonnes
       77 K PIC 9 VALUE 6.
       77 NB-K PIC 9.
      * VASE : vase pour la permutation des données
       77 VASE PIC 99 VALUE 0.


       PROCEDURE DIVISION.
       PAR.
      ***************DEBUT DU CODE DE L'AFFICHAGE A L'ECRAN*************

      *Ouverture du fichier en lecture
       OPEN INPUT FICH2008.

      *Ce I va servir à sélectionner la colonne du tableau
       MOVE 0 TO I.
      *Lecture de la première ligne
       READ FICH2008
          AT END SET FIN-FICH TO TRUE
       END-READ

      *Tant qu'on est pas à la fin du fichier
       PERFORM UNTIL FIN-FICH
       ADD 1 TO I

       MOVE CHIFR TO TA1(I)

       READ FICH2008
           AT END SET FIN-FICH TO TRUE
       END-READ

       END-PERFORM.
       CLOSE FICH2008.

           DISPLAY "************************************".
           DISPLAY "*        TABLEAU DE DEPART         *".
           DISPLAY "************************************".

       AFFICH-TAB.
      * Affichage du tableau
           PERFORM VARYING I FROM 1 BY 1 UNTIL I > 4
             PERFORM VARYING J FROM 1 BY 1 UNTIL J > 6
                DISPLAY TA2(I,J) " " WITH NO ADVANCING
             END-PERFORM
             DISPLAY ' '
           END-PERFORM.
      **************FIN DU CODE DE L'AFFICHAGE A L'ECRAN****************

       TRAITEMENT.
           DISPLAY " ".
           DISPLAY "************************************".
           DISPLAY "*        TABLEAU ARRIVEE           *".
           DISPLAY "************************************".


      * Traitement de l'information
           MOVE K TO NB-K.
           PERFORM VARYING I FROM 1 BY 1 UNTIL I > 4
             PERFORM VARYING J FROM 1 BY 1 UNTIL J > 3
      *         Si on avait un nombre de colonne impaire on ne devrait
      *         pas remplacer la colonne du milieu
                IF TA2(I,J) <> TA2(I,NB-K)

               MOVE FUNCTION REVERSE(TA2(I,J)) TO TA2(I,NB-K)

      *         Si on avait un nombre de colonne impaire on ne devrait
      *         pas remplacer la colonne du milieu

                END-IF
                ADD -1 TO NB-K
             END-PERFORM
                MOVE K TO NB-K
           PERFORM AFFICH-TAB.


       STOP RUN.

**Hédhili Jaïdane** · 10/08/2008, 15h43

Bonjour beegess.

Envoyé par doc IBM

The REVERSE function returns a character string that is exactly the same length as the argument, whose characters are exactly the same as those specified in the argument, except that they are in reverse order.

Donc la fonction REVERSE inverse l'ordre des charactères dans une zone alphanumérique. "ABCD" devient "DCBA". C'est comme si tu le lisais en sens inverse.
Comme dans ton exemple tu veux inverser l'ordre de nombres de 2 chiffres dans une suite, ça ne marche pas.
La bonne inversion devrait se faire par le MOVE d'un élément de la ligne I de la position J (colonne) à la position NB-K en passant par la zone de travail de permutation VASE.

**el_slapper** · 11/08/2008, 08h37

Je ne vois pas l'utilité du IF. En fait, tu as déjà quasiment tout dans ta boucle d'affichage. Sur le compteur secondaire J, tu calcules un compteur J2 qui vaut 7 - J, et tu places l'occurence J dans l'occurence J2. Quand la boucle est finie, hop, l'inversion est faite.

Hedhili a raison, il faut éviter la fonction dans ce cas là. Elle ne marche que pour paquets de 1 seul caractères.

**beegees** · 11/08/2008, 15h06

Envoyé par Hédhili Jaïdane

Bonjour beegess.

Donc la fonction REVERSE inverse l'ordre des charactères dans une zone alphanumérique. "ABCD" devient "DCBA". C'est comme si tu le lisais en sens inverse.
Comme dans ton exemple tu veux inverser l'ordre de nombres de 2 chiffres dans une suite, ça ne marche pas.
La bonne inversion devrait se faire par le MOVE d'un élément de la ligne I de la position J (colonne) à la position NB-K en passant par la zone de travail de permutation VASE.

Envoyé par el_slapper

Je ne vois pas l'utilité du IF. En fait, tu as déjà quasiment tout dans ta boucle d'affichage. Sur le compteur secondaire J, tu calcules un compteur J2 qui vaut 7 - J, et tu places l'occurence J dans l'occurence J2. Quand la boucle est finie, hop, l'inversion est faite.

Hedhili a raison, il faut éviter la fonction dans ce cas là. Elle ne marche que pour paquets de 1 seul caractères.

Bonjour,

Merci à vous deux pour vos réponses.

J'ai donc laisser le move pour ce genre d'opération.

Je vous remercie encore pour votre aide.

beegees

**Hédhili Jaïdane** · 11/08/2008, 15h56

Envoyé par beegees

Bonjour,

Merci à vous deux pour vos réponses.

J'ai donc laisser le move pour ce genre d'opération.

Je vous remercie encore pour votre aide.

beegees

Oui mais est ce que le résultat est bon ? enfin celui que tu attendais.

**beegees** · 11/08/2008, 15h59

Envoyé par Hédhili Jaïdane

Oui mais est ce que le résultat est bon ? enfin celui que tu attendais.

Le résultat attendu est rencontré, merci de t'en enquiêter.

C'est juste que le Prof souhaîte qu'on utilise des fonctions et non des boucles pour l'exam.

Merci encore.

beegees

Inverser la position d'un nombre avec un autre sans utiliser de IF

Cobol

Discussions similaires

Partager

Partager