Listing of file='DSTRIB.BAS;01' on disk='vmedia/chip_36-sector.ccvf'
1 REM DISTRIBUTIVE PROPERTY APRIL 1981
2 REM
3 REM GENERATION OF EXERCISES USING THE DISTRIBUTIVE PROPERTY
5 REM 16K COMPUCOLOR
6 REM
10 REM PROGRAM WRITTEN BY JOSEPH SOUSA
11 REM MILPITAS HIGH SCHOOL, AND STUDENT AT
12 REM SAN JOSE STATE UNIVERSITY, SAN JOSE, CA 95192
20 REM
21 REM "______________________________"
22 REM "! SAN MATEO COUNTY !"
23 REM "! OFFICE OF EDUCATION !"
24 REM "! & !"
25 REM "! COMPUTER-USING EDUCATORS !"
26 REM "! !"
27 REM "! SOFTSWAP !"
28 REM "! !"
29 REM "!333 MAIN STREET, REDWOOD CITY!"
30 REM "!CA 94063 (415)364-5600 EX4401!"
31 REM "_______________________________"
40 REM "_______________________________"
41 REM "! PROGRAMS MAY BE COPIED FOR !"
42 REM "! EDUCATIONAL USE ONLY AND !"
43 REM "! ARE NOT TO BE SOLD. !"
44 REM "!!"
45 REM
49 PRINT CHR$ (12)
50 PRINT "THIS PROGRAM GENERATES 30 EXERCISES OF THE TYPE"
100 PRINT "A(BX+C)=__. ACTIVATE YOUR PRINTER AND PRINT THIS ON A MASTER."
120 PRINT :PRINT :PRINT
130 INPUT "PRESS <RETURN> WHEN READY. ";Y$
150 REM WHERE THE STUDENT IS EXPECTED TO PRODUCE THE
200 REM PRODUCT ABX+AC
300 REM ANSWERS ARE NOT INCLUDED IN THE PROGRAM! !
400 REM A DITTO MASTER MAY BE MADE IN THE USUAL WAY PROVIDED
450 REM THE PAPER IS SET PROPERLY (EXPERIMENT A BIT).
460 REM TO SET FOR PRINTING, INCLUDE ANOTHER PRINT STATEMENT
461 REM OR TWO AT STEP NUMBER 2400
500 N= 1
550 DIM A(6)
600 FOR L= 1TO 5
650 PRINT
700 NEXT L
740 PRINT CHR$ (12):PRINT ""
750 PRINT "ALGEBRA NAME ___________________"
800 PRINT
850 PRINT "USE THE DISTRIBUTIVE PROPERTY TO COMPLETE THE FOLLOWING:"
950 PRINT
1000 PRINT
1050 FOR K= 1TO 6
1100 S= INT (RND (8)* 9+ 1)
1150 IF S> 5THEN 1300
1200 Z= 1
1250 GOTO 1350
1300 Z= - 1
1350 A(K)= Z
1400 NEXT K
1450 A1= INT (RND (8)* 9+ 1)
1500 B1= INT (RND (8)* 9+ 1)
1550 C1= INT (RND (8)* 9+ 1)
1600 A2= INT (RND (8)* 9+ 1)
1650 B2= INT (RND (8)* 9+ 1)
1700 C2= INT (RND (8)* 9+ 1)
1750 IF N> = 4THEN 1800
1760 IF A1< = 4THEN 1800
1770 IF A(1)> = 0THEN 1800
1780 GOTO 1050
1800 IF N< = 7THEN 1850
1810 IF A1> = 5THEN 1850
1820 GOTO 1450
1850 A1= A(1)* A1
1900 B1= A(2)* B1
1950 C1= A(3)* C1
2000 A2= A(4)* A2
2050 B2= A(5)* B2
2100 C2= A(6)* C2
2150 PRINT N;". ";A1;"(";B1;"X + ";C1;") =";" ";
2160 PRINT N+ 15;". ";A2;"(";B2;"X + ";C2;") ="
2350 PRINT
2450 IF N= 15THEN 2600
2500 N= N+ 1
2550 GOTO 1050
2600 FOR K= 1TO 2000:NEXT K
2700 LOAD "MENU":RUN
2800 END