Skip to main content

Posts

Showing posts from October, 2012

Pengurangan Matrik

CLS 10   REM "PENGURANGAN MATRIK" 20   REM 25   PRINT "PROGRAM PENGURANGAN MATRIK" 26   PRINT 30   INPUT "Baris matrik=";M 35   IF M=0 THEN GOSUB 30 40   INPUT "Kolom matrik=";N 45   IF N=0 THEN GOSUB 40 50   DIM A(M,N), B(M,N), C(M,N) 60   'Memasukan data matrik A' 65   PRINT 70   PRINT "Data untuk matrik A" 80   FOR I=1 TO M 90   FOR J=1 TO N 100  PRINT "A(";I;",";J;")" ; : INPUT A(I,J) 110  NEXT J 120  NEXT I 130  ' 135  'Memasukan data Matrik B' 140  PRINT 150  PRINT "Data untuk matrik B" 160  FOR I=1 TO M 170  FOR J=1 TO N 180  PRINT "B(";I;",";J;")" ; : INPUT B(I,J) 190  NEXT J 200  NEXT I 210  GOSUB 500 215  ' 220  'Menampilkan Matrik hasil Pengurangan' 225  PRINT 230  PRINT "Matrik Hasil Pengur...