Page images
PDF
EPUB

640 PRINT "00000000011111111112222222222333333333344444444445"; 650 PRINT "5555555556" 660 PRINT "12345678901234567890123456789012345678901234567890"; 670 PRINT "1234567890" 680 LET A=.4 690 PRINT TAB(A);"X" 700 PRINT 710 PRINT "*** TEST PASSED IF AN X IS PRINTED IN COLUMN 1, AFTER A" 720 PRINT ! SYSTEM MESSAGE IDENTIFYING THE EXCEPTION ### 730 PRINT 740 PRINT "

END TEST." 750 PRINT 760 PRINT "END PROGRAM 8" 770 END

[ocr errors]
[blocks in formation]

1) A MESSAGE IDENTIFYING THE EXCEPTIONS MUST BE

DISPLAYED, AND

2) THE ARGUMENT TO TAB MUST BE REPLACED WITH A

VALUE OF ONE AND EXECUTION CONTINUES.

SECTION 8.1: TAB ARGUMENT IS 0.

BEGIN TEST.

000000000111111111122222222223333333333444444444455555555556
123456789012345678901234567890123456789012345678901234567890
% TAB OUT OF RANGE IN LINE 190
х

*** TEST PASSED IF AN X IS PRINTED IN COLUMN 1, AFTER A

SYSTEM MESSAGE IDENTIFYING THE EXCEPTION

***

END TEST.

SECTION 8.2: TAB ARGUMENT IS NEGATIVE.

BEGIN TEST.

000000000111111111122222222223333333333444444444455555555556
123456789012345678901234567890123456789012345678901234567890
% TAB OUT OF RANGE IN LINE 340
X

*** TEST PASSED IF AN X IS PRINTED IN COLUMN 1, AFTER A

SYSTEM MESSAGE IDENTIFYING THE EXCEPTION

***

END TEST.

SECTION 8.3: ROUNDED TAB ARGUMENT EQUAL TO ONE.

[merged small][ocr errors][merged small][merged small][merged small][merged small]

SECTION 8.4: FRACTIONAL TAB ARGUMENT LESS THAN ONE AFTER

ROUNDING.

[ocr errors][merged small]

000000000111111111122222222223333333333444444444455555555556
123456789012345678901234567890123456789012345678901234567890
% TAB OUT OF RANGE IN LINE 690
х

*** TEST PASSED IF AN X IS PRINTED IN COLUMN 1, AFTER A

SYSTEM MESSAGE IDENTIFYING THE EXCEPTION

***

END TEST.

END PROGRAM 8

[ocr errors]

10 PRINT "PROGRAM FILE 9: PRINTING NR1 AND NR2 NUMERIC CONSTANTS."
20 PRINT " ANSI STANDARD 5.2, 5.4, 12.4"
30 PRINT
60 PRINT "SECTION 9.1: CONSTANTS IN NR1 FORM (INTEGERS)."
70 PRINT
80 PRINT "COLUMNS 1 AND 3 SHOW THE OUTPUT AS IT SHOULD BE."
100 PRINT "COLUMNS 2 AND 4 SHOW THE ACTUAL OUTPUT."
120 PRINT
130 PRINT"

BEGIN TEST."
140 PRINT
150 PRINT "00000000011111111112222222222333333333344444444445";
160 PRINT "5555555556666666666777"
170 PRINT "12345678901234567890123456789012345678901234567890";
180 PRINT "1234567890123456789012"
190 PRINT "SHOULD BE", "ACTUAL", "SHOULD BE", "ACTUAL"
200 PRINT " O", +0," 0",-0
210 PRINT " 9", +1,"-1",-1
220 PRINT " 12", 12,"-12", -12

.

230 PRINT" 123", +123,"-123", -123 240 PRINT" 1234", 1234,"-1234", -1234 250 PRINT" 12345", +12345,"-12345",-12345 260 PRINT" 123456", 123456,"-123456", -123456 270 PRINT " 999999", +999999,"-999999", -999999 280 PRINT 290 PRINT "*** TEST PASSED IF COLUMNS 1 & 2, AND 3 & 4 CONTAIN THE SAME" 300 PRINT" NUMERIC REPRESENTATION FOR EACH PAIR OF INTEGERS

*** 310 PRINT 320 PRINT"

END TEST." 330 PRINT 340 PRINT "SECTION 9.2: NR1 CONSTANTS SEPARATED BY COMMAS TO PRODUCE" 350 PRINT "

TABULAR OUTPUT." 360 PRINT 370 PRINT !

BEGIN TEST." 380 PRINT 390 PRINT "00000000011111111112222222222333333333344444444445"; 400 PRINT "5555555556666666666777" 410 PRINT "12345678901234567890123456789012345678901234567890"; 420 PRINT "1234567890123456789012" 430 PRINT 1,-12,123 440 PRINT -1234, 12345,-123456 450 PRINT 123456,-1234, 123 460 PRINT 470 PRINT "*** TEST PASSED IF THE FIRST THREE PRINT ZONES EACH CONTAIN" 480 PRINT ! A COLUMN OF INTEGERS

*** 490 PRINT 500 PRINT"

END TEST." 510 PRINT 520 PRINT "SECTION 9.3: SPACE ALLOTTED FOR PRINTED INTEGER CONSTANTS." 530 PRINT 540 PRINT "PRINTED INTEGER CONSTANTS ARE PRECEDED BY A SPACE IF" 550 PRINT "POSITIVE, A MINUS IF NEGATIVE AND FOLLOWED BY A SPACE." 560 PRINT "THE SPACE FOR THE CONSTANT IS DELIMITED BY ASTERISKS." 570 PRINT 580 PRINT"

BEGIN TEST." 590 PRINT 600 PRINT "00000000011111111112222222222333333333344444444445"; ; 610 PRINT "5555555556666666666777" 620 PRINT "12345678901234567890123456789012345678901234567890"; 630 PRINT "1234567890123456789012" 640 PRINT "SHOULD BE:", 1 *11

"* 456 *1 650 PRINT" ACTUAL:","*1

I1*11

;-23;"*" "*" 660 PRINT 670 PRINT "SHOULD BE:", 7890 "*-12345 ** 11*

678901 680 PRINT" ACTUAL:", "*";7890;"*","*";-12345;"*","*"; +678901;"*" 710 PRINT 720 PRINT "*** TEST PASSED IF 'ACTUAL' LINES MATCH CORRESPONDING" 730 PRINT" 'SHOULD BE" LINES 740 PRINT 750 PRINT "

END TEST."

[ocr errors]

"*-23

[ocr errors]

+1;"*11

; 456;"*"

[ocr errors]

*11

[ocr errors]

***

760 PRINT

770 PRINT "SECTION 9.4: NR1 CONSTANTS SEPARATED BY SEMICOLONS." 780 PRINT

790 PRINT "PRINTED INTEGER CONSTANTS ARE PRECEDED BY A SPACE IF" 800 PRINT "POSITIVE OR A MINUS IF NEGATIVE AND ARE FOLLOWED BY A SPACE." 810 PRINT "THE SEMICOLON SEPARATOR PRODUCES A NULL STRING."

820 PRINT

830 PRINT "

840 PRINT

BEGIN TEST."

850 PRINT "00000000011111111112222222222333333333344444444445"; 860 PRINT "5555555556666666666777"

870 PRINT "12345678901234567890123456789012345678901234567890"; 880 PRINT "1234567890123456789012"

885 PRINT "SHOULD BE: 0 0 1 -12 123 -1234 12345 -123456" 890 PRINT " ACTUAL:";0;-0;1;-12; 123;-1234; 12345;-123456

900 PRINT

910 PRINT "*** TEST PASSED IF 'ACTUAL' LINE MATCHES CORRESPONDING" 920 PRINT " 'SHOULD BE' LINE

***11

930 PRINT

940 PRINT

950 PRINT

END TEST."

960 PRINT "SECTION 9.5: CONSTANTS IN NR2 FORM."

970 PRINT

980 PRINT "COLUMNS 1 AND 3 SHOW THE OUTPUT AS IT SHOULD BE." 995 PRINT "COLUMNS 2 AND 4 SHOW THE ACTUAL OUTPUT."

1001 PRINT

1002 PRINT "EXPECTED OUTPUT IS DISPLAYED WITH TRAILING ZEROS"

1003 PRINT "SUPPRESSED. IMPLEMENTATIONS MAY ADD TRAILING ZEROS UP TO" 1004 PRINT "THEIR SIGNIFICAND-WIDTH, D. THUS .12 MAY BE DISPLAYED AS" 1005 PRINT "'.1200' OR '.1200000' IF, FOR INSTANCE, D = 7."

1010 PRINT

1020 PRINT "

1030 PRINT

BEGIN TEST."

1040 PRINT "00000000011111111112222222222333333333344444444445"; 1050 PRINT "5555555556666666666777"

1060 PRINT "12345678901234567890123456789012345678901234567890"; 1070 PRINT "1234567890123456789012"

1080 PRINT "SHOULD BE","ACTUAL","SHOULD BE","ACTUAL"

[merged small][ocr errors][merged small][ocr errors][merged small][merged small][ocr errors]

.123 ,.123,"-.123 ",-.123

1130 PRINT " .1234",+.1234,"-.1234 ",-.1234

12345",-.12345

[ocr errors]

1140 PRINT " .12345 ", .12345,"-.12345 ".
1150 PRINT " .123456 ",+.123456,"-.123456 ",-. 123456
1160 PRINT " .234567",.234567,"
..234567,"-.234567 " ,-.234567
1170 PRINT " .345678 " +.345678, "-.345678 " -.345678
1180 PRINT " .456789 " ,.456789,"-.456789 " .-.456789
1190 PRINT
"1
.56789 +.567890,"-.56789 ",-.567890
1200 PRINT " .6789 ",.678900,"-.6789 ",-.678900
1210 PRINT " .789 ",+.789000,"-.789",-.789000
1220 PRINT "1 .89 11 ',.890000,"-.89 ",-.890000
1230 PRINT " .9",+.900000,"-.9 ",-.900000

11

[ocr errors]

1240 PRINT " 0 ",0.0," O ",-0.0

1250 PRINT " 1.23456", 1.23456,"-1.23456",-1.23456 1260 PRINT " 9.876 ",+9.87600,"-9.876 ",-9.87600

.

1270 PRINT " 12.3456", 12.3456,"-12.3456", -12.3456 1280 PRINT" 123.456 ", +123.456,"-123.456", -123.456 1290 PRINT" 1234.56 ", 1234.56,"-1234.56 ".-1234.56 1300 PRINT" 12345.6", +12345.6,"-12345.6", -12345.6

,1310 PRINT " 23456.7 ",23456.7,"-23456.7",-23456.7

" 1320 PRINT" 34567.8 ", +34567.8,"-34567.8 ",-34567.8 1330 PRINT " 45678.9 ",45678.9,"-45678.9",-45678.9 1340 PRINT " 56789.1 ", +56789.1,"-56789.1 " ".-56789.1 1350 PRINT " 67891.2 ",67891.2,"-67891.2 ",-67891.2

, 1360 PRINT" 78912.3 ", +78912.3,"-78912.3", -78912.3 1370 PRINT " 89123.4 "

.4 ",89123.4,"-89123.4 ",-89123.4 1380 PRINT" 91234.5 ",+91234.5,"-91234.5 ",-91234.5 1390 PRINT " 99999.9"

99999.9",99999.9,"-99999.9",-99999.9 1400 PRINT 1410 PRINT "*** TEST PASSED IF COLUMNS 1 & 2, AND 3 & 4 CONTAIN THE 1420 PRINT" SAME REPRESENTATION FOR EACH PAIR OF NUMBERS 1425 PRINT" (ALLOWING FOR OPTIONAL TRAILING ZEROS) *** 1430 PRINT 1433 PRINT

END TEST." 1436 PRINT 1440 PRINT "SECTION 9.6: USING NR2 INSTEAD OF NR3 FORMAT FOR" 1450 PRINT"

SIX-DIGIT CONSTANTS." 1460 PRINT 1490 PRINT "NUMBERS THAT CAN BE REPRESENTED IN THE UNSCALED" 1500 PRINT "REPRESENTATION NO LESS ACCURATELY THAN AS IN" 1510 PRINT "SCALED FORMAT, SHALL BE OUTPUT USING THE UNSCALED FORMAT." 1520 PRINT 1523 PRINT "

BEGIN TEST." 1526 PRINT 1540 PRINT "SHOULD BE", "ACTUAL", "SHOULD BE", "ACTUAL" 1550 PRINT 1560 PRINT " .022222", +.022222,"-.022222",-.022222 1570 PRINT .004444 1.004444,"-.004444 " -.0044 44 1580 PRINT .000888 +.000888,"-.000888 " -.000888 1590 PRINT " .000044 ", .000044,"-.000044 " 000044 1600 PRINT .000002 ', +.000002,"-.000002 -.000002 1610 PRINT 1620 PRINT "*** TEST PASSED IF COLUMNS 1 & 2, AND 3 & 4 CONTAIN THE " 1630 PRINT" SAME REPRESENTATION FOR EACH PAIR OF NUMBERS 1635 PRINT" ( ALLOWING FOR OPTIONAL TRAILING ZEROS) 1640 PRINT 1650 PRINT "

END TEST." 1660 PRINT 1670 PRINT "SECTION 9.7: NR2 CONSTANTS SEPARATED BY COMMAS TO PRODUCE" 1680 PRINT"

TABULAR OUTPUT." 1690 PRINT 1700 PRINT "

BEGIN TEST." 1710 PRINT 1720 PRINT "00000000011111111112222222222333333333344444444445"; 1730 PRINT "5555555556666666666777" 1740 PRINT "12345678901234567890123456789012345678901234567890"; 1750 PRINT "1234567890123456789012" 1760 PRINT .123456,-99999.9,91234.5

[ocr errors]
[ocr errors]
[ocr errors]

.

[ocr errors]
[ocr errors]
[ocr errors]

11

11

***11

[ocr errors]
« PreviousContinue »