NUMERIC - Setzen des numerischen Formats

REXX Instruktionen
Andere Instruktionen

Syntax:                                 
NUMERIC  DIGITS <zahl>
NUMERIC  FUZZ <zahl>
NUMERIC  FORM <SCIENTIFIC / ENGINEERING>
NUMERIC  FORM <VALUE> <ausdruck>

/* REXX NUMERIC Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
a = 1.123456789
b = 1.124444444
c = 123456789e5
  /* */
c = c + 1
SAY a                     /* Ausgabe: 1.123456789           */
SAY b+0                   /* Ausgabe: 1.12444444            */
SAY b+10                  /* Ausgabe: 11.1244444            */
SAY c                     /* Ausgabe: 1.23456789E+13        */
  /* */
NUMERIC FUZZ 7            /* 7 Zahlen werden bei einem Vergleich */
                          /* nicht beruecksichtigt               */
  /* */
IF a = b THEN
   SAY "REXX"             /* Ausgabe: REXX                  */
  /* */
NUMERIC FUZZ 0            /* alle Decimals werden bei einem      */
                          /* Vergleich beruecksichtigt           */
  /* */
NUMERIC DIGITS 4          /* nur 3 Zahlen nach dem Komma    */
  /* */
SAY a + 1                 /* Ausgabe: 2.123                 */
SAY b + 1                 /* Ausgabe: 2.124                 */
  /* */
NUMERIC FORM ENGINEERING  /* Exponential Format             */
  /* */
SAY c + 1                 /* Ausgabe: 12.35E+12             */
  /* */