program sederhana. buat tugas sih..

CLS
5
CLS
PRINT " ***** MENU ***** "
PRINT " 1. BIODATA "
PRINT " 2. LUAS SEGITIGA "
PRINT " 3. KELUAR "
INPUT " PILIHAN [1..3]= "; PIL
SELECT CASE PIL
CASE 1
DIM NAMA(10) AS STRING
DIM ALAMAT(10) AS STRING
DIM NPM(10) AS STRING
CLS
INPUT "BANYAK DATA = ", N: FOR I = 1 TO N
INPUT "NAMA = ", NAMA(I)
INPUT "ALAMAT = ", ALAMAT(I)
INPUT "NPM = ", NPM(I)
NEXT I
CLS
PRINT TAB(8); "***** BIODATA *****": PRINT
PRINT "NAMA", "ALAMAT", "NPM": PRINT "------------------------------------"
FOR I = 1 TO N
PRINT NAMA(I), ALAMAT(I), NPM(I)
NEXT I
PRINT
INPUT "MAU KEMBALI KE MENU ? (Y/N) ", R$
IF R$ = "Y" GOTO 5

end
CLS
CASE 2
CLS
I = 1
20 INPUT "ALAS = ", A(I)
INPUT "TINGGI = ", T(I)
L(I) = (A(I) * T(I)) / 2
PRINT "LUAS ="; L(I)
INPUT "APAKAH DATA SUDAH BENAR ?(Y/T)= ", D$
IF D$ = "T" THEN 20 ELSE
IF D$ = "Y" THEN 25
25 INPUT "MAU TAMBAH DATA ?(Y/T)= ", F$
IF F$ = "Y" THEN I = I + 1: GOTO 20
CLS
COLOR (3): PRINT TAB(4); "***** LUAS SEGITIGA *****": COLOR (6): PRINT
30 PRINT "ALAS", "TINGGI", "LUAS": PRINT "--------------------------------"
FOR J = 1 TO I
PRINT A(J), T(J), L(J)
NEXT J
PRINT
INPUT "MAU KEMBALI KE MENU ? (Y/N) ", R$
IF R$ = "Y" GOTO 5
END
GOTO 5
CASE 3
PRINT
INPUT "MAU COBA LAGI ? (Y/T) = ", R$
IF R$ = "Y" THEN GOTO 5
END
END SELECT
END