Skip to main content

Posts

Showing posts from September, 2012

Turbo Basic -Inverse Matrik-

CLS 10 REM * PROGRAM : INVERSE MATRIX * 20 REM 90 INPUT "ORDE DARI MATRIX";N 100 DIM X(N,N) 110 ' 120 'MEMASUKAN DATA MATRIX 130 PRINT 140 PRINT "DATA MATRIK YANG AKAN DIINVERSE :" 150 FOR I=1 TO N 160     FOR J=1 TO N 170     PRINT "NILAI("I","J")"; : INPUT X(I,J) 180     NEXT J 190     PRINT 200 NEXT I 210 ' 220 ' MENAMPILKAN NILAI MATRIX SEMULA 230 PRINT 240 PRINT "NILAI MATRIX SEMULA :" 250 PRINT "---------------------" 260 FOR I=1 TO N 270     FOR J=1 TO N 280         PRINT USING "#####.###";X(I,J); 290     NEXT J 300     PRINT 310 NEXT I 320 ' 330 'MENGHITUNG INVERSE MATRIX 340 GOSUB 1000 'MENGHITUNG INVERSE MATRIX 350 ' 360 'MENCETAK HASIL INVERSE 370 PRINT 380 PRINT "INVERSE MATRIXNYA ADALAH :" 390 PRINT "--------------------------" 400 PRINT 410 FOR I=1 TO N 42...

Turbo basic -pers. Kuadrat-

CLS 10 REM *PROGRAM MENGHITUNG AKAR PERSAMAAN KUADRAT* 20 REM * PERSAMAAN KUADRAT : AX^2 + BX + C = * 30 REM 40 REM --- MEMASUKAN NILAI A, B, DAN C --- 50 GOSUB 1000 60 REM 70 REM --- HITUNG NILAI DISKRIMINAN --- 80 GOSUB 1200 90 REM 100 REM SELEKSI NILAI DISKRIMINAN DAN TAMPILKAN HASILNYA 110 GOSUB 1300 120 END 1000 ' 1010 'SUBROUTINE MEMASUKAN NILAI A, B DAN C 1020 INPUT "NILAI A";A 1030 IF A=0 THEN 1020 1040 INPUT "NILAI B";B 1050 INPUT "NILAI C";C 1060 RETURN 1200 ' 1210 'SUBROUTINE MENGHITUNG DISKRIMINAN 1220 D=B^2-4*A*C 1230 RETURN 1300 ' 1310 'SUBROUTIN SELEKSI NILAI DISKRIMINAN 1320 IF D>0 THEN GOSUB 1400 1330 IF D=0 THEN GOSUB 1600 1340 IF D<0 THEN GOSUB 1800 1350 RETURN 1400 ' 1410 'SUBROUTINE MENGHITUNG NILAI 2 AKAR REAL BERLAINAN 1420 X1=(-B+SQR(D))/(2*A) 1430 X2=(-B-SQR(D))/(2*A) 1440 PRINT "AKARNYA ADALAH 2 AKAR REAL BERLAINAN:" 1450 PRINT "X1 = ";X1...