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 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." 510 PRINT " 520 PRINT " 530 PRINT 560 PRINT " 570 PRINT BEGIN TEST." 580 PRINT "ASSIGNED","OUT PUT","ACTUAL" 590 PRINT "CONSTANT","SHOULD BE","OUTPUT" 600 PRINT 610 LET A=-1.00001E-36 620 LET B=1.00001E-37 690 PRINT "-1.00001E-36","-1.00001E-36", A TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT" END TEST." 1140 PRINT "SECTION 14.3: NR3 NUMERIC CONSTANTS AT EXTREME" MAGNITUDES AS PRINT ITEMS." 1145 PRINT 11 1150 PRINT 1160 PRINT " 1170 PRINT 1180 PRINT "SOURCE","OUT PUT","ACTUAL" 1190 PRINT "CONSTANT","SHOULD BE","OUTPUT" 1200 PRINT BEGIN TEST." 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 "** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT" 1270 PRINT " 1280 PRINT " 1290 PRINT 1300 PRINT " 1310 PRINT SHOULD BE (ALLOWING FOR OPTIONAL TRAILING ZEROS IN" END TEST." 1320 PRINT "SECTION 14.4: NR3 NUMERIC VARIABLES AT EXTREME" MAGNITUDES AS PRINT ITEMS." 1325 PRINT " 1480 PRINT "*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT" 1490 PRINT " SHOULD BE (ALLOWING FOR OPTIONAL TRAILING ZEROS IN" 1500 PRINT " THE SIGNIFICAND AND LEADING ZEROS IN THE EXRAD) ***"1 1510 PRINT 1520 PRINT " 1530 PRINT 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 |