bwBASIC/NBS2/P039.run

PROGRAM FILE 39: ACCURACY OF ADDITION                                           
    ANSI STANDARD 7.2, 7.4, 7.6                                                 
                                                                                
*** NOTE: THIS PROGRAM MAKES USE OF 'READ' AND 'DATA'                           
    WHICH HAVE NOT YET BEEN TESTED. IF SUBSEQUENT TESTS SHOW                    
    THESE FEATURES TO BE INCORRECTLY IMPLEMENTED, THEN THE                      
    VALIDITY OF THE RESULTS OF THIS TEST ROUTINE IS DOUBTFUL.                   
                                                                                
SECTION 39.1 ACCURACY OF ADDITION.                                              
                                                                                
THIS SECTION TESTS THE ACCURACY OF ADDITION. THE COMPUTED                       
RESULT IS COMPARED WITH A RANGE ESTABLISHED BY PERTURBING                       
EACH OPERAND BY 1 IN ITS 6TH DIGIT. THE RESULT PASSES IF                        
IT FALLS WITHIN THE EXTREME VALUES GENERATED BY THIS                            
PERTURBATION (ACCURATE TO SIX DIGITS).                                          
                                                                                
THIS TEST IS INFORMATIVE ONLY, SINCE THE ANSI STANDARD                          
DOES NOT MANDATE ANY ACCURACY FOR NUMERIC EXPRESSIONS.                          
                                                                                
              BEGIN TEST                                                        
                                                                                
FIRST          SECOND         TRUE           COMPUTED       TEST                
OPERAND        OPERAND        VALUE          VALUE          RESULT              
                                                                                
 0              0              0              0             PASS                
 0              765.432        765.432        765.432       PASS                
 876.543        123.453        999.996        999.996       PASS                
 8.11111E-2     1.11111E-2     9.22222E-2     9.22222E-2    PASS                
-57.9999       -.111111       -58.111        -58.111        PASS                
 1.11111E+6     1.11111E+6     2.22222E+6     2.22222E+6    PASS                
 6.54321        1.23456        7.77777E+6     7.77777       PASS                
 6.54321E-10    1.23456E-10    7.77777E-10    7.77777E-10   PASS                
-6.54321E-20   -1.23456E-20   -7.77777E-20   -7.77777E-20   PASS                
 6.54321E-30    1.23456E-30    7.77777E-30    7.77777E-30   PASS                
 6.54321E-38    1.23456E-38    7.77777E-38    7.77777E-38   PASS                
 1.23456E+10    6.54321E+10    7.77777E+10    7.77777E+10   PASS                
-1.23456E+20   -6.54321E+20   -7.77777E+20   -7.77777E+20   PASS                
 1.23456E+30    6.54321E+30    7.77777E+30    7.77777E+30   PASS                
 1.23456E+37    6.54321E+37    7.77777E+37    7.77777E+37   PASS                
 4.99997E-2     4.99996E-2     9.99993E-2     9.99993E-2    PASS                
 9.99993E-2     4.E-7          9.99997E-2     9.99997E-2    PASS                
 9.99993E-2     4.E-8          9.99993E-2     9.99993E-2    PASS                
 9.99993E-2     4.E-9          9.99993E-2     9.99993E-2    PASS                
 9.99993E-2     4.E-10         9.99993E-2     9.99993E-2    PASS                
 9.99993E-2     4.E-11         9.99993E-2     9.99993E-2    PASS                
-1.0203E+6      4             -1.0203E+6     -1.0203E+6     PASS                
 1.0203E+6     -304            1.02E+6        1.02E+6       PASS                
-1.0203E+6      20304         -1.E+6         -1.E+6         PASS                
-1.0203E+6      1.0203E+6      0              0             PASS                
-.10203         4.E-7         -.10203        -.10203        PASS                
 .10203        -3.04E-5        .102           .102          PASS                
-.10203         2.0304E-3     -.1            -.1            PASS                
-.10203         .10203         0              0             PASS                
-.10203         .10203        -1.E-7         -1.E-7         PASS                
-.10203         .10203         1.E-7          1.E-7         PASS                
                                                                                
*** INFORMATIVE TEST PASSED ***                                                 
                                                                                
               END TEST                                                         
                                                                                
END PROGRAM 39