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