Listing of file='DIFSQR.BAS;01' on disk='vmedia/chip_36-sector.ccvf'
1 REM DIFFERENCE BETWEEN TWO SQUARES APRIL 1981 2 REM 3 REM GENERATION OF EXERCISES IN FACTORING 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 100 PLOT 12,18 110 PRINT " FACTORING THE DIFFERENCE OF TWO SQUARES " 120 PRINT 130 PRINT "I WILL GIVE YOU PRACTICE IN FACTORING THE DIFFERENCE" 140 PRINT "OF TWO SQUARES" 150 PRINT 160 PRINT 170 PRINT "REMEMBER THAT AN EXPRESSION OF THE FORM" 180 PRINT 190 PRINT "X 2 - B 2 " 200 PRINT 210 PRINT "HAS TWO LINEAR FACTORS OF THE FORM (X+B)(X-B)" 220 PRINT 230 PRINT "EXAMPLE: X 2 - 25 = ( X + 5 ) ( X - 5 ) 240 FOR K= 1TO 12 250 PRINT 260 A= INT (11* RND (1)+ 1) 270 C= A^ 2 280 PRINT :PRINT :PRINT 290 PRINT "X 2 - ";C;" = ( X + B ) ( X - B ) " 300 PRINT :PRINT 310 PRINT "WHAT IS B "; 320 INPUT B 330 IF A= BTHEN 360 340 PRINT "NO, FOR YOUR VALUE OF B, B 2 = ";B^ 2;". TRY AGAIN." 350 GOTO 290 360 PRINT :PRINT "RIGHT ON ... X 2 - ";C;" = (X +";B;") (X - ";B;")." 370 NEXT K 380 PRINT :PRINT :PRINT 390 INPUT "WOULD YOU LIKE TO TRY AGAIN (Y OR N)? ";Y$ 400 IF Y$> = "Y"THEN GOTO 100 500 LOAD "MENU":RUN 600 END