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

Artikel Terkait:

Posted in: Basic