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 PRINT “KETIGA VEKTOR BERGANTUNG LINIER”
150 PRINT “DENGAN HUBUNGAN:”
160
IF BETA A>=0 THEN PRINT “C=”;ALPHA;”*A+”;BETA;”*B”;GOTO 180
170 PRINT “C=”;ALPHA;”*A”;BETA;”*B”
180 END
Matrix Transpose
Posted by: programmervb on: August 7, 2008
‘Transpose Matrix
CLS
‘PROGRAMME MATRIX TRANSPOSE’
PRINT “UKURAN MATRIX:”
INPUT “BANYAK BARIS”;M
INPUT “BANYAK KOLOM”;N
DIM A(M,N),AT(N,M)
PRINT:PRINT “ELEMEN MATRIX:”:PRINT
FOR I=1 TO M :FOR J=1 TO N:PRINT”BARIS”;I;”KOLOM”;J;:INPUT A(I,J):NEXT j:NEXT I
FOR I=1 TO M
FOR J=1 TO N
AT(I,J)=A(I,J)
NEXT J
NEXT I
‘PRINT TRANSPOSE’
CLS:PRINT”MATRIX TRANSPOSE:”:PRINT
FOR I=1 TO N:FOR J=1 TO M:PRINT USING “####.#”;AT(I,J)
NEXT J:PRINT:NEXT I
END
Ordo 3 – Aljabar Linier Dengan QBasic
Posted by: programmervb on: August 6, 2008
10 CLS:PRINT “MENGHITUNG DETERMINANT ORDO 3″
20 PRINT “DETERMINANT:”;PRINT
30 PRINT “A B C”
40 PRINT “D E F”
50 PRINT “G H I”:PRINT
60 PRINT “HARGA A:”;INPUT A
70 PRINT “HARGA B:”;INPUT B
80 PRINT “HARGA C:”;INPUT C
90 PRINT “HARGA D:”;INPUT D
100 PRINT “HARGA E:”;INPUT E
110 PRINT “HARGA F:”;PRINT F
120 PRINT “HARGA G:”;PRINT G
130 PRINT “HARGA H:”;INPUT H
140 PRINT “HARGA I:”;INPUT I
150 DET+=A*E*I+B*F*G+C*D*H
160 DET-=C*E*G+A*F*H+B*D*I
170 DET=DET+-DET-
180 PRINT “DETERMINANT=”;USING”###.##”;DET
190 END
Flickr Photos
|
