Archive for August 16th, 2008
Multiply Matrix
Posted by: programmervb on: August 16, 2008
‘Multiply Matrix
1040 ‘multiply matrix module
1050 CLS:INPUT “BANYAK BARIS,BANYAK KOLOM MATRIX 1″;P,Q
1060 INPUT “BANYAK BARIS,BANYAK KOLOM MATRIX 2″;R,S
1070 IF Q<>R THEN PRINT “TIDAK TERDEFINISI”:STOP:GOTO 1050
1080 DIM A(P,Q),B(R,S),C(P,S)
1090 PRINT:PRINT”ELEMEN MATRIX 1:”:PRINT
1100 FOR I=1 TO P:FOR J=1 TO A:PRINT”BARIS”;I;”KOLOM”;J;:INPUT A(I,J):NEXT J,I
1110 PRINT:PRINT”ELEMEN MATIRX 2:”:PRINT
1120 FOR I=1 TO R:FOR J=1 TO S:PRINT”BARIS”;I;”KOLOM”;K;:INPUT B(I,J):NEXT J,I
1130 FOR I=1 TO P
1140 FOR [...]
Bergantung Linier
Posted by: programmervb on: August 16, 2008
‘LINIER
10 CLS
20 ‘PROGRAM MEMERIKSA APAKAH 3 VEKTOR DI R3 BERGANTUNG LINIER
30 ‘DAN MENENTUKAN HUBUNGAN KOMBINASI LINIERNYA
40 PRINT “VEKTOR A=”;:INPUT A,B,C
50 PRINT “VEKTOR B=”;:INPUT D,E,F
60 PRINT “VEKTOR C=”;:INPUT G,H,I
70 IF(A*E-B*D)<>0 THEN 100
80 SWAP B,C:SWAP E,F:SWAP H,I
90 IF(A*E-B*D)=0 THEN PRINT “VEKTOR A DAN B BERKELIPATAN”;GOTO 180
100 ALPHA=(G*E-H*D)/(A*E-B*D)
110 BETA=(A*H-B*G)/(A*E-B*D)
120 IF(ALPHA*C+BETA*F)=I THEN 149
130 PRINT “KETIGA VEKTOR BEBAS LINIER”;GOTO 180
140 [...]
Flickr Photos
|
