0  BEGIN PGM 8185_FR MM 
1  ;Programme CN permettant d'arrondir
2  ;une valeur. En début de programme,
3  ;vous définissez la valeur, et la
4  ;valeur avant ou après la virgule à
5  ;laquelle vous souhaitez l’arrondir.
6  ;La CN effectue ensuite deux calculs
7  ;et enregistre la valeur arrondie au
8  ;paramètre Q31.
9  ;
10 ;
11 ;Saisie des valeurs
12 Q30 = 12.6453 ;Valeur qui doit être arrondie
13 FN 0: Q40 =+0.02 ;Valeur à laquelle il faut arrondir
14 ;
15 ;Calculs
16 FN 4: Q41 =+1 DIV +Q40
17 Q31 = INT ( ( Q30 * Q41 ) + ( 0.5 * SGN ( Q30 * Q41 ) ) ) / Q41
18 ;
19 ;La valeur arrondie est configurée
20 ;au paramètre Q31.
21 STOP
22 ;
23 ;Fin du programme
24 M30
25 END PGM 8185_FR MM