Bonjour tout le monde,
Je suis face à une division que voici :
Ne saurions-nous pas face à un modulo ? car :
Code : Sélectionner tout - Visualiser dans une fenêtre à part DIVIDE C BY 2 GIVING P REMAINDER PAIRE
Merci d'avance pour votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 PERFORM VARYING C FROM 1 BY 1 UNTIL C > 5 DIVIDE C BY 2 GIVING P REMAINDER PAIRE IF PAIRE = 0 THEN MOVE 0 TO TAB-MIN(C) ELSE MOVE 99 TO TAB-MIN(C) END-IF
beegees
Partager