270 PRINT "*** TEST PASSED IF THE CONSTANTS IN ROWS 1, 2 AND 3 PRINTED" 280 PRINT " IN NR1 FORMAT; IN ROWS 4, 5 AND 6 IN NR2 FORMAT; AND IN" ROWS 7, 8 AND 9 IN NR3 FORMAT ***"1 290 PRINT " 300 PRINT 310 PRINT "EXCEPT: IF SIGNIFICANCE-WIDTH FOR THIS IMPLEMENTATION IS" 320 PRINT "GREATER THAN 9, ROWS 7, 8, AND 9 MUST BE IN NR1, NR2," 330 PRINT "AND NR1 FORMAT, RESPECTIVELY." 340 PRINT 350 PRINT " 360 PRINT 370 PRINT "SECTION 13.2: ROUNDING RESULTS." 380 PRINT END TEST." 390 PRINT "THE NUMBER OF SIGNIFICANT DIGITS PRINTED IS IMPLEMENTATION" 400 PRINT "DEFINED; HOWEVER, NR2 AND NR3 CONSTANTS WHICH CONTAIN EXCESS" 410 PRINT "DIGITS SHOULD BE PRINTED IN A STANDARD REPRESENTATION." 420 PRINT 430 PRINT " 440 PRINT 450 LET T1=30 BEGIN TEST." 460 PRINT "SOURCE CONSTANT"; TAB(T1); "PROCESSOR OUTPUT" .000001234567886";TAB(T1);.000001234567886 470 PRINT 480 PRINT "1 1234567886"; TAB(T1); 1234567886 490 PRINT "2 500 PRINT "3 510 PRINT "4 9.999999999"; TAB(T1);9.999999999 923456.7886";TAB(T1);923456.7886 520 PRINT "5 -0.09234567886"; TAB(T1);-0.09234567886 530 PRINT "6 540 PRINT "7 550 PRINT .04444444444";TAB(T1);.04444444444 .001200000004"; TAB(T1); .001200000004 560 PRINT "CORRECT REPRESENTATION FOR PROCESSORS PRINTING FROM 6 TO 9" 570 PRINT "SIGNIFICANT DIGITS" 580 PRINT 590 PRINT "D = 6","D = 7","D = 8","D = 9" 600 PRINT 610 PRINT "1 620 PRINT "2 1.23457E+9","1.234568E+9","1.2345679E+9","1.23456789E+9" 1.23457E-6","1.234568E-6","1.2345679E-6","1.23456789E-6" 4.44444E-2","4.444444E-2","4.4444444E-2","4.44444444E-2" .001200",".0012000",".00120000",".001200000" 720 PRINT "*** TEST PASSED IF THE PROCESSOR OUTPUT IN THE FIRST SET" OF NUMBERED ROWS MATCHES THE COLUMN CORRESPONDING" TO THE IMPLEMENTATION-DEFINED SIGNIFICANCE-WIDTH" (ALLOWING FOR OPTIONAL TRAILING ZEROS IN THE" SIGNIFICAND AND LEADING ZEROS IN THE EXRAD) ***" 750 PRINT " 755 PRINT " 760 PRINT 762 PRINT " END TEST." 765 PRINT 770 PRINT "END PROGRAM 13" 780 END PROGRAM FILE 13: FORMAT AND ROUNDING OF PRINTED ANSI STANDARD 12.4, 5.2, 5.4 SECTION 13.1: PRINTED REPRESENTATION OF CONSTANTS. THE FORMAT OF A PRINTED CONSTANT IS DETERMINED BY THE VALUE *** TEST PASSED IF THE CONSTANTS IN ROWS 1, 2 AND 3 PRINTED IN NR1 FORMAT; IN ROWS 4, 5 AND 6 IN NR2 FORMAT; AND IN ROWS 7, 8 AND 9 IN NR3 FORMAT *** EXCEPT: IF SIGNIFICANCE-WIDTH FOR THIS IMPLEMENTATION IS END TEST. SECTION 13.2: ROUNDING RESULTS. THE NUMBER OF SIGNIFICANT DIGITS PRINTED IS IMPLEMENTATION SOURCE CONSTANT BEGIN TEST. PROCESSOR OUTPUT CORRECT REPRESENTATION FOR PROCESSORS PRINTING FROM 6 TO 9 *** TEST PASSED IF THE PROCESSOR OUTPUT IN THE FIRST SET END PROGRAM 13 ** END TEST. 10 PRINT "PROGRAM FILE 14: PRINTING AND ASSIGNING NUMERIC VALUES" 20 PRINT " ANSI STANDARD 5.4, 9.4, 30 PRINT 40 PRINT "SECTION 14.1: PRINTING NR3 CONSTANTS OF SIX SIGNIFICANT" ** 190 PRINT "-9.99999E34 ","-9.99999E+34 ",-9.99999E34 260 PRINT 270 PRINT 280 PRINT " 290 PRINT " 300 PRINT 480 PRINT " 490 PRINT TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT" END TEST." 500 PRINT "SECTION 14.2: ASSIGNING NR3 CONSTANTS OF SIX SIGNIFICANT" DIGITS WHICH ARE NEAR THE MAGNITUDE OF:" 1E+38 OR 1E-38." BEGIN TEST." 510 PRINT " 520 PRINT " 530 PRINT 560 PRINT " 570 PRINT 580 PRINT "ASSIGNED","OUTPUT","ACTUAL" 590 PRINT "CONSTANT","SHOULD BE","OUTPUT" 600 PRINT 610 LET A=-1.00001E-36 620 LET B=1.00001E-37 630 LET C=+1.00001E-38 650 LET E=-9.99999E34 660 LET F=+9.99999E+35 670 LET G=-9.99999E+36 680 LET H=9.99999E37 690 PRINT "-1.00001E-36","-1.00001E-36", A 700 PRINT " 1.00001E-37"," 1.00001E-37",B 710 PRINT "+1.00001E-38"," 1.00001E-38",C 730 PRINT "-9.99999E34 ","-9.99999E+34",E 740 PRINT "+9.99999E+35"," 9.99999E+35",F 750 PRINT "-9.99999E+36","-9.99999E+36",G 760 PRINT" 9.99999E37"," 9.99999E+37",H 770 PRINT 775 PRINT "*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT" 780 PRINT " SHOULD BE (ALLOWING FOR OPTIONAL TRAILING ZEROS IN" THE SIGNIFICAND AND LEADING ZEROS IN THE EXRAD) ***" 790 PRINT " 800 PRINT 810 PRINT " 1130 PRINT END TEST." 1140 PRINT "SECTION 14.3: NR3 NUMERIC CONSTANTS AT EXTREME" 1210 PRINT "+1E38"," 1.E+38",+1E38 1220 PRINT " 1E-38"," 1.E-38", 1E-38 1230 PRINT "-1E+38","-1.E+38",-1E+38 1240 PRINT "-1E-38","-1.E-38",-1E-38 1250 PRINT 1260 PRINT 1270 PRINT " 1280 PRINT " 1290 PRINT 1300 PRINT " 1310 PRINT TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT" END TEST." 1320 PRINT "SECTION 14.4: NR3 NUMERIC VARIABLES AT EXTREME" MAGNITUDES AS PRINT ITEMS." 1325 PRINT " 1480 PRINT "* 1490 PRINT " 1500 PRINT " 1510 PRINT 1520 PRINT " 1530 PRINT TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT" 1540 PRINT "END PROGRAM 14" 1550 END END TEST." PROGRAM FILE 14: PRINTING AND ASSIGNING NUMERIC VALUES ANSI STANDARD 5.4, 9.4, 12.4 SECTION 14.1: PRINTING NR3 CONSTANTS OF SIX SIGNIFICANT |