Listing of file='MATADD.BAS;01' on disk='vmedia/chip_36-sector.ccvf'
1 REM ADDING MATRICES JULY 16, 1981 2 REM 3 REM INPUT TWO MATRICES OF UP TO 5 X 5 SIZE 4 REM COMPUTER WILL ADD 6 REM 7 REM 16K COMPUCOLOR 8 REM 9 REM PROGRAM WRITTEN BY HELEN MAH 10 REM UNDER THE DIRECTION OF MARJORIE A. FITTING 11 REM DEPARTMENT OF MATHEMATICS AND COMPUTER SCIENCE 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 "!!" 50 REM 60 REM 100 PRINT CHR$ (12) 110 PRINT TAB( 12)" PROGRAM TO ADD MATRICES (MAX 5 X 5)" 120 PRINT :PRINT 210 REM 220 PRINT "WHAT IS THE SIZE OF YOUR FIRST MATRIX?" 222 PRINT "(TYPE THE NUMBER OF ROWS, A COMMA, THEN THE NUMBER OF COLUMNS.)" 230 PLOT 3,42,4:INPUT A,B 232 PLOT 3,0,5 235 PRINT " " 237 PLOT 3,0,5 240 PRINT "WHAT IS THE SIZE OF YOUR SECOND MATRIX?" 242 PRINT "(TYPE THE NUMBER OF ROWS, A COMMA, THEN THE NUMBER OF COLUMNS)." 250 PLOT 3,42,5:INPUT C,D 252 PLOT 3,0,6 255 PRINT " " 260 IF A= CAND B= DTHEN 300 270 PRINT "THE TWO MATRICES CANNOT BE ADDED." 272 PRINT "(REMEMBER, THE MATRICES MUST BE OF THE SAME SIZE.)" 276 PRINT 280 INPUT "TYPE 1 TO TRY AGAIN, 2 TO END. ";X 290 ON XGOTO 100,900 300 DIM F(A,B),S(C,D),L(A,B) 320 PRINT "ENTER YOUR FIRST MATRIX." 330 FOR I= 1TO A 340 FOR J= 1TO B 345 PLOT 3,5* (J- 1),7+ 2* I 350 INPUT F(I,J) 360 NEXT J 370 PRINT 380 NEXT I 390 PLOT 3,32,7 400 PRINT "ENTER YOUR SECOND MATRIX." 410 FOR I= 1TO C 420 FOR J= 1TO D 425 PLOT 3,32+ 5* (J- 1),7+ 2* I 430 INPUT S(I,J) 440 NEXT J 450 PRINT 460 NEXT I 462 PLOT 21,3,0,19 465 PRINT "THE SUM OF THE TWO MATRICES IS" 470 FOR I= 1TO A 480 FOR J= 1TO B 500 L(I,J)= F(I,J)+ S(I,J) 515 PLOT 3,18+ 5* (J- 1),21+ 2* (I- 1) 520 PRINT L(I,J); 530 NEXT J 540 PRINT 550 NEXT I 560 PRINT 570 GOTO 280 900 LOAD "MENU":RUN 910 END