ChipMaster
/
bwBASIC
1
0
Fork 0
Code Issues 22 Pull Requests 0 Releases 17 Wiki Activity
ChipMaster's bwBASIC This also includes history going back to v2.10. *WARN* some binary files might have been corrupted by CRLF.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
11 Commits
3 Branches
4.5 MiB
 
 
 
 
 
 
Tree: 5a220d5b6b
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '5a220d5b6b'
${ noResults }
bwBASIC/NBS2/P012.run

89 lines
7.0 KiB
Raw Blame History 

  1. PROGRAM FILE 12: PRINTING NUMERIC VARIABLES ASSIGNED                            

  2.        NR3 CONSTANTS.                                                           

  3.     ANSI STANDARD 5.2, 5.4, 6.2, 6.4, 9.2, 9.4, 12.4                            

  4.                                                                                 

  5. SECTION 12.1: ASSIGNING NR3 CONSTANTS WHICH PRINT EITHER                        

  6.         AS NR1 OR NR2 CONSTANTS, SIGNED AND UNSIGNED.                           

  7.                                                                                 

  8.                                BEGIN TEST.                                      

  9.                                                                                 

  10. ASSIGNED       OUTPUT         ACTUAL                                            

  11. CONSTANT       SHOULD BE      OUTPUT                                            

  12.                                                                                 

  13.  1.05E02        105            105                                              

  14. -7.6E1         -76            -76                                               

  15. +332.4E0        332.4          332.4                                            

  16.  51.32E-1       5.132          5.132                                            

  17. +5.34E-3        .00534         .00534                                           

  18. -14.19E-2      -.1419         -.1419                                            

  19. -9.9E+2        -990           -990                                              

  20. +10.5210E+3     10521          10521                                            

  21.  4.56E+1        45.6           45.6                                             

  22.                                                                                 

  23. *** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT                           

  24.     SHOULD BE (ALLOWING FOR OPTIONAL TRAILING ZEROS) ***                        

  25.                                                                                 

  26.                                 END TEST.                                       

  27.                                                                                 

  28. SECTION 12.2: ASSIGNING NR3 FORM CONSTANTS WHICH PRINT AS                       

  29.         NR3 CONSTANTS, SIGNED AND UNSIGNED.                                     

  30.                                                                                 

  31.                                BEGIN TEST.                                      

  32.                                                                                 

  33. ASSIGNED       OUTPUT         ACTUAL                                            

  34. CONSTANT       SHOULD BE      OUTPUT                                            

  35.                                                                                 

  36.  1.E30          1.E+30         1.E+30                                           

  37. +123.E20        1.23E+22       1.23E+22                                         

  38. -11.E30        -1.1E+31       -1.1E+31                                          

  39.  144.E-21       1.44E-19       1.44E-19                                         

  40. -12.E-22       -1.2E-21       -1.2E-21                                          

  41. +3645.E-23      3.645E-20      3.645E-20                                        

  42.  1.E+34         1.E+34         1.E+34                                           

  43. -200.E+21      -2.E+23        -2.E+23                                           

  44. +99.E+32        9.9E+33        9.9E+33                                          

  45.  .234E20       2.34E+19        2.34E+19                                         

  46. -.3E22         -3.E+21        -3.E+21                                           

  47. +.44E17         4.4E+16        4.4E+16                                          

  48.  .36E-33        3.6E-34        3.6E-34                                          

  49. +.9E-24         9.E-25         9.E-25                                           

  50. -.10E-25       -1.E-26        -1.E-26                                           

  51.  .777E+18       7.77E+17       7.77E+17                                         

  52. -.29E+31       -2.9E+30       -2.9E+30                                          

  53. +.04E+26        4.E+24         4.E+24                                           

  54.  70987600000000E+22                                                             

  55.                 7.09876E+35    7.09876E+35                                      

  56. +81E36          8.1E+37        8.1E+37                                          

  57. -000.000000000192837E-25                                                        

  58.                -1.92837E-35   -1.92837E-35                                      

  59.  627E+27        6.27E+29       6.27E+29                                         

  60. +53E+19         5.3E+20        5.3E+20                                          

  61. -4E+28         -4.E+28        -4.E+28                                           

  62.  1463E-29       1.463E-26      1.463E-26                                        

  63. +2E-37          2.E-37         2.E-37                                           

  64. -355E-19       -3.55E-17      -3.55E-17                                         

  65.                                                                                 

  66. *** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT                           

  67.     SHOULD BE  (ALLOWING FOR OPTIONAL TRAILING ZEROS IN                         

  68.     THE SIGNIFICAND OR LEADING ZEROS IN THE EXRAD)  ***                         

  69.                                                                                 

  70.                                 END TEST.                                       

  71.                                                                                 

  72. SECTION 12.3: TRANSITIVE ASSIGNMENT OF AN NR3 CONSTANT.                         

  73.                                                                                 

  74.                                BEGIN TEST.                                      

  75.                                                                                 

  76.                                                                                 

  77. ASSIGNED       OUTPUT         ACTUAL                                            

  78. CONSTANT       SHOULD BE      OUTPUT                                            

  79.                                                                                 

  80.  1.E30          1.E+30         1.E+30                                           

  81.                                                                                 

  82. *** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT                           

  83.     SHOULD BE  (ALLOWING FOR OPTIONAL TRAILING ZEROS IN                         

  84.     THE SIGNIFICAND OR LEADING ZEROS IN THE EXRAD)  ***                         

  85.                                                                                 

  86.                                   END TEST.                                     

  87.                                                                                 

  88. END PROGRAM 12