Listing Program Permutasi dan Kombinasi dgn Basic

PERMUTASI

CLS
INPUT "MASUKKAN BILANGAN KE1:", N
FOR I = 1 TO N
TEMP1 = 1
FOR J = 1 TO I
TEMP1 = TEMP1 * J
NEXT J
FAK = FAK + TEMP1
NEXT I
INPUT "MASUKKAN BILANGAN KE2:", M
X = N - M
FOR I = 1 TO X
TEMP2 = 1
FOR J = 1 TO I
TEMP2 = TEMP2 * J
NEXT J
FAK = FAK + TEMP2
NEXT I
Y = TEMP1 / TEMP2
PRINT "PERMUTASINYA:", Y
END

Read more »

Posted in: Basic

Perintah case pada Basic

Listing Sederhana :


DIM BID AS INTEGER
DIM A, T, L AS SINGLE
CLS
PRINT "BIDANG : 1.LUAS SEGITIGA"
PRINT "BIDANG : 2.LUAS KUBUS"
PRINT "BIDANG : 3.LUAS LINGKARAN"
INPUT "MASUKAN NOMOR :"; BID
SELECT CASE BID

CASE 1
INPUT "MASUKAN ALAS:", A
INPUT "MASUKAN TINGGI:", T
L = (A * T) / 2
PRINT "LUAS SEGITIGA=", L

CASE 2
INPUT "MASUKAN SISI:", A
L = A ^ 2
PRINT "LUAS KUBUS=", L

CASE 3
INPUT "MASUKAN JARI-JARI:", A
L = (A ^ 2) * 3.14
PRINT "LUAS LINGKARAN:", L
END SELECT
END

program ini digunakan untuk melakukan perhitungan matematika seperti luas segitiga,kubus dan lingkaran,dalam program ini mengunakan perintah select case,jadi setelah kita selesai membuat program ini,kita hanya tinggal memasukan angka atau perintah perhitungan yang kita inginkan.misal setelah kita running program ini kita ingin melakukan prhitungan luas segitiga dan kita hanya tinggal memasukan angka 1,dan selanjutnya melakukan proses penginputan data seperti “masukan alas” dan “masukan tinggi”.

Output Program    :

BIDANG : 1.LUAS SEGITIGA
BIDANG : 2.LUAS KUBUS
BIDANG : 3.LUAS LINGKARAN
MASUKAN NOMOR :? 1
MASUKAN ALAS:2
MASUKAN TINGGI:3
LUAS SEGITIGA=               3

Read more »

Posted in: Basic

Perintah IF pada Basic

Listing Sedehana :

DIM BID AS INTEGER
DIM A, T, L AS SINGLE
CLS
10  INPUT A
20 IF A = 1 THEN 50
30 IF A = 2 THEN 60
40 IF A = 3 THEN 70

50  INPUT "MASUKAN ALAS:", A
   INPUT "MASUKAN TINGGI:", T
   L = (A * T) / 2
   PRINT "LUAS SEGITIGA=", L
   END
60 INPUT "MASUKAN SISI:", A
   L = A ^ 2
   PRINT "LUAS KUBUS=", L
   END
70 INPUT "MASUKAN JARI-JARI:", A
  L = (A ^ 2) * 3.14
  PRINT "LUAS LINGKARAN:", L
  END

Read more »

Posted in: Basic