« COBOL/Opérations arithmétiques » : différence entre les versions
Contenu supprimé Contenu ajouté
mAucun résumé des modifications |
maintenance |
||
Ligne 12 :
L'instruction <code>MOVE</code> permet d'affecter la valeur d'une variable ou d'un littéral à une ou plusieurs variables :
{{Définition
| contenu =
MOVE x TO var1 var2 ...
</source>
}}
Ligne 21 ⟶ 26 :
Il est permis d'affecter des expressions plus complexes à des variables après un calcul. Pour cela, nous utilisons l'instruction COMPUTE, dont le format est le suivant :
{{exemple
| contenu = <source lang="cobol"> COMPUTE {identificateur [ROUNDED]} ... = expression arithmétique
[SIZE ERROR instructions]
[END-COMPUTE].
</source> }} Ligne 39 ⟶ 48 :
L'instruction <code>ADD</code> permet d'ajouter une liste de valeurs à une liste de variables :
{{Définition
▲{{exemple|contenu=<source lang="cobol">
| contenu =
ADD a1 a2 ... TO {identificateur [ROUNDED]} ...
[SIZE ERROR instructions]
[END-ADD].
</source> }} Ligne 51 ⟶ 64 :
L'instruction <code>SUBTRACT</code> permet de soustraire une liste de valeurs d'une liste de variables :
{{Définition
▲{{exemple|contenu=<source lang="cobol">
| contenu =
SUBTRACT a1 a2 ... FROM {identificateur [ROUNDED]} ...
[SIZE ERROR instructions]
[END-SUBTRACT].
</source> }} Ligne 63 ⟶ 80 :
L'instruction <code>MULTIPLY</code> permet de multiplier une valeur à une liste de variables :
{{Définition
▲{{exemple|contenu=<source lang="cobol">
| contenu =
MULTIPLY x BY {identificateur [ROUNDED]} ...
[SIZE ERROR instructions]
[END-MULTIPLY].
</source> }} Dans ce cas, chacune des variables placées après le <code>BY</code> est multipliée par x. Il est également possible de stocker le résultat de cette multiplication dans d'autres variables, pour cela, nous utilisons le format suivant :
{{Définition
▲{{exemple|contenu=<source lang="cobol">
| contenu =
MULTIPLY x BY y GIVING {identificateur [ROUNDED]} ...
[SIZE ERROR instructions]
[END-MULTIPLY].
</source> }} Ligne 83 ⟶ 108 :
Ici aussi, nous avons 2 formats possibles. Voici le premier :
{{Définition
▲{{exemple|contenu=<source lang="cobol">
| contenu =
DIVIDE diviseur INTO {identificateur [ROUNDED]} ...
[SIZE ERROR instructions]
[END-DIVIDE].
</source> }} Ligne 93 ⟶ 122 :
Il est également possible de stocker le résultat de cette division dans d'autres variables, pour cela nous utilisons le second format de l'instruction <code>DIVIDE</code> :
{{Définition
▲{{exemple|contenu=<source lang="cobol">
| contenu =
<source lang="cobol">
DIVIDE x BY y GIVING {identificateur [ROUNDED]} ...
[REMAINDER reste]
[SIZE ERROR instructions]
[END-DIVIDE].
</source> }} Ligne 108 ⟶ 141 :
Voici un programme récapitulatif qui reprend toutes ces notions. Cette mini-calculatrice vous demande de saisir deux opérandes et un opérateur, puis vous affichera le résultat du calcul ou un message d'erreur. Essayez de refaire ce programme vous-mêmes pour vous exercer ou améliorez-le.
{{exemple
| contenu = <source lang="cobol"> 000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. calculatrice.
Ligne 139 ⟶ 174 :
000029 DISPLAY a SPACE op SPACE b " = " result.
000030 STOP RUN.
000031 END PROGRAM calculatrice.
</source> }} | |||