program QBasic ku; luas segitiga

5 CLS

COLOR (11): PRINT " ***** MENU LUAS SEGITIGA ***** ": PRINT

PRINT " 1. INPUT DATA ": PRINT

PRINT " 2. LIHAT HASIL AKHIR ": PRINT

PRINT " 3. KELUAR ": PRINT

INPUT " PILIHAN [1..3] "; PIL

SELECT CASE PIL

CASE 1

CLS

I = 1

20 INPUT "ALAS = ", A(I)

INPUT "TINGGI = ", T(I)

LET L(I) = (A(I) * T(I)) / 2

INPUT "APAKAH DATA SUDAH BENAR ?(Y/T)= ", D$

IF D$ = "T" THEN 20

INPUT "MAU TAMBAH DATA ?(Y/T)= ", F$

IF F$ = "Y" THEN I = I + 1: GOTO 20

IF F$ = “T” THEN 5

END

CASE 2

CLS

COLOR (3): PRINT TAB(4); "***** LUAS SEGITIGA *****": COLOR (6): PRINT

PRINT "ALAS", "TINGGI", "LUAS": PRINT "--------------------------------"

FOR J = 1 TO I

PRINT A(J), T(J), L(J)

NEXT J: PRINT

INPUT "BACK KE MENU TEKAN ENTER", B

GOTO 5

CASE 3

CLS

PRINT

INPUT "MAU COBA LAGI ? (Y/T) = ", R$

IF R$ = "Y" THEN GOTO 5

END

END SELECT

END