Lukman.NET

lSub routine :

CLS
DIM uts, uas, akhir as integer
input "Masukkan nilai UTS anda: ", UTS 
input "Masukkan nilai UAS anda: ", UAS 
GO SUB 10 
print "UTS anda adalah", uts
print "UAS anda adalah", uas
go sub 20
akhir = (((30/100) * uas) + ((70/100) * uts))
print "nilai akhir anda adalah", akhir
END 
10 PRINT STRING$(35 ,"-")
return
20 PRINT STRING$(35 ,"-"), "+"
RETURN

Function :

DIM a AS SINGLE, kal AS STRING
DEF FNkuadrat (x) = x^2
DEF FNfaktorial (n)
DIM Hasil AS DOUBLE
Hasil=1
For I%=1 to n 
Hasil = Hasil * I%
NEXT I%
FNfaktorial = Hasil
END DEF
CLS
INPUT "Masukan Angka Positif > "; a
PRINT a; "! = "; FNfaktorial(a)
PRINT a; "^2 = "; FNkuadrat (a)
PRINT
INPUT "Masukan Kalimat > "; kal
PRINT kal; " >> "; besar(kal)
END

FUNCTION besar$ (kata$)
Besar$ = UCASE$ (kata$)
END FUNCTION

Sub Program dan sebagai kisi-kisi program ujian kalian:

DIM pil AS INTEGER
DIM kembali AS INTEGER
DIM alas, tinggi, sisi, panjang, lebar, luas AS DOUBLE
CLS
PRINT
COLOR 5
10 CLS
LOCATE 5, 15
PRINT "< Menu Utama >"
LOCATE 6, 15
PRINT "1. Menu Segitiga"
LOCATE 7, 15
PRINT "2. Menu persegi"
LOCATE 8, 15
PRINT "3. Menu persegi panjang"
LOCATE 9, 15
INPUT "Pilihan Anda : ", pil

SELECT CASE pil
CASE 1

DO
COLOR 12
CLS
PRINT "------------Luas Segitiga---------------"
PRINT
INPUT "Masukkan alas : ", alas
INPUT "Masukkan tinggi : ", tinggi
luas = alas * tinggi / 2
PRINT "Luas segitiga : "; luas
PRINT
INPUT "mau hitung lagi ? ", lagi$
LOOP UNTIL UCASE$(lagi$) <> "Y"
GOSUB 10
CASE 2
DO
COLOR 10
CLS
PRINT "------------Luas persegi---------------"
PRINT
INPUT "Masukkan sisi : ", sisi
luas = sisi * sisi
PRINT "Luas persegi : "; luas
PRINT
INPUT "mau ngitung lagi ? ", lagi$
LOOP UNTIL UCASE$(lagi$) <> "Y"
GOSUB 10


CASE 3
DO
CLS
COLOR 11
PRINT "------------Luas persegi panjang---------------"
PRINT
INPUT "Masukkan panjang : ", panjang
INPUT "Masukkan lebar : ", lebar
luas = panjang * lebar
PRINT "Luas segitiga : "; luas
PRINT
INPUT "mau itung lagi ? ", lagi$
LOOP UNTIL UCASE$(lagi$) <> "Y"
GOSUB 10

CASE ELSE
PRINT "Pilihan Anda Ngawur !"

END SELECT
END