Listing of file='SIMEQ.BAS;01' on disk='vmedia/chip_36-sector.ccvf'
1 REM SIMULTANEOUS EQUATIONS APRIL 1981 2 REM 3 REM GENERATION OF PAIRS OF EQUATIONS IN TWO UNKNOWNS 4 REM WITH INTEGRAL ROOTS 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 90 PRINT CHR$ (12) 100 PRINT "THIS PROGRAM GENERATES 8 SYSTEMS OF EQUATIONS, EACH SYSTEM" 110 PRINT "CONSISTING OF TWO EQUATIONS IN TWO VARIABLES, ALL (X,Y)" 120 PRINT "PAIRS OF ANSWERS ARE SUCH THAT EACH OF X AND Y RANGES OVER" 130 PRINT "THE INTEGERS FROM -10 TO +10. THE COEFFICIENTS OF X AND Y" 140 PRINT "IN EACH EQUATION HAVE THE SAME RANGE, THE (X,Y) SOLUTIONS" 150 PRINT "AND THE COEFFICIENTS ARE GENERATED AT RANDOM WITH THE LIMITS" 160 PRINT "STATED ABOVE." 170 PRINT :PRINT "IF THE USER WISHES TO RUN THIS PROGRAM WITH A DITTO MASTER, " 180 PRINT "(S)HE SHOULD :" 190 PRINT " A. KNOW THAT HE WILL GET EIGHT PROBLEMS-OTHER-" 200 PRINT " WISE, CHANGE P(LINE 270) ACCORDINGLY;" 210 PRINT " B. LET THE ANSWERS PRINT ON THE MASTER. WHEN RUNNING" 220 PRINT " COPIES HE CAN THEN RUN A FEW ANSWERS AND MASK" 230 PRINT " THEM OUT BEFORE RUNNING OTHER(STUDENT) COPIES." 240 DIM A(6) 250 PRINT :PRINT :INPUT "PRESS <RETURN> WHEN READY.";Y$ 260 PRINT :PRINT 270 PRINT "ALGEBRA NAME ________________________" 280 PRINT 290 PRINT "SOLVE EACH OF THE FOLLOWING SYSTEMS OF EQUATIONS. FOLLOW" 300 PRINT "THE DIRECTIONS GIVEN BY YOUR TEACHER. WRITE YOUR ANSWERS" 310 PRINT "IN THE SPACES PROVIDED AT THE RIGHT OF EACH PROBLEM." 320 PRINT 330 PRINT "PROBLEM" 340 REM CHANGE P IF YOU WISH TO GENERATE A DIFFERENT NUMBER OF EXERCISES 350 P= 8 360 FOR N= 1TO P 370 REM LINES 310 TO 380 GENERATE THE + AND - SIGNS FOR X AND Y AND 380 REM FOR THE COEFFICIENTS. 390 FOR K= 1TO 6 400 Z= INT (RND (8)* 10+ 1) 410 IF Z< 5THEN 440 420 S= - 1 430 GOTO 450 440 S= 1 450 A(K)= S 460 NEXT K 470 REM LINES 400 TO 490 FORM X,Y, THE COEFFICIENTS, AND THE 480 REM CONSTANTS. 490 X= INT (RND (8)* 10+ 1) 500 X1= A(5)* X 510 Y= INT (RND (8)* 10+ 1) 520 Y1= A(6)* Y 530 A1= INT (RND (8)* 10+ 1) 540 B1= INT (RND (8)* 10+ 1) 550 A2= INT (RND (8)* 10+ 1) 560 B2= INT (RND (8)* 10+ 1) 570 C1= A(1)* A1* X1+ A(2)* B1* Y1 580 C2= A(3)* A2* X1+ A(4)* B2* Y1 590 PRINT N;"." 600 PRINT " ";A(1)* A1;"X + ";A(2)* B1;"Y = ";C1;TAB( 40);"X=";X1 610 PRINT " ";A(3)* A2;"X + ";A(4)* B2;"Y = ";C2;TAB( 40);"Y=";Y1 620 PRINT 630 PRINT 640 NEXT N 650 FOR K= 1TO 2000:NEXT K 660 LOAD "MENU":RUN 700 END