Kodingan Tugas Algoritma 2

CLS
COLOR 30
PRINT "________________________________________________________________________________"
PRINT ""
COLOR 14
PRINT "===============                  SELAMAT DATANG                ================ "
COLOR 30
PRINT "________________________________________________________________________________"
PRINT ""
COLOR 10
PRINT "             MASUKAN DATA PRAKTIKUM  KELAHIRAN PERTAHUN DIBAWAH INI "
PRINT ""
INPUT "   MASUKAN NAMA KOTA                         : ", N$
PRINT ""
INPUT "   MASUKAN TAHUN                             : ", H
PRINT ""
INPUT "   MASUKAN BAHAN PRAKTIKUM                   : ", B$
PRINT ""
INPUT "   MASUKAH JUMLAH AWAL PENDUDUK              : ", A
PRINT ""
INPUT "   MASUKAN PERTAMBAHAN JUMLAH PENDUDUK/TAHUN : ", R
PRINT ""
INPUT "   MASUKAN LAMA WAKTU (TAHUN)                : ", W
PRINT ""
SN = A * (1 - R ^ W) / (1 - R)
COLOR 30
PRINT "________________________________________________________________________________"
MENU:
CLS
COLOR 30
PRINT ""
PRINT "                                 SELAMAT DATANG"
PRINT ""
COLOR 12
PRINT "======================================MENU====================================="
PRINT ""
COLOR 10
PRINT " 1. DATA PRAKTIKUM "
PRINT " 2. MENCARI HASIL PRAKTIKUM "; B$
PRINT " 3. LAPORAN HASIL PRAKTIKUM "
PRINT " 4. KELUAR"
PRINT ""
COLOR 15
INPUT " MASUKKAN PILIHAN ANDA (1-4): ", P$

SELECT CASE P$
    CASE "1"
        GOTO 1
        1 CLS
        PRINT ""
        COLOR 9
        PRINT "                             DATA PRAKTIKUM"
        PRINT ""
        COLOR 10
        PRINT "   NAMA KOTA                         : "; N$
        PRINT ""
        PRINT "   TAHUN                             : "; H
        PRINT ""
        PRINT "   BAHAN PRAKTIKUM                   : "; B$
        PRINT ""
        PRINT "   JUMLAH AWAL PENDUDUK              : "; A
        PRINT ""
        PRINT "   PERTAMBAHAN JUMLAH PENDUDUK/TAHUN : "; R
        PRINT ""
        PRINT "   LAMA WAKTU (TAHUN)                : "; W
        PRINT ""
        PRINT ""

        COLOR 15
        CLOSE
        DO
            INPUT " KEMBALI KE MENU AWAL? [Y/N] : ", M$
            DO: Q$ = UCASE$(M$)
            LOOP UNTIL Q$ = "Y" OR Q$ = "N"
            IF Q$ = "Y" THEN GOTO MENU:
            IF Q$ = "N" THEN GOTO 100:
        LOOP

    CASE "2"
        GOTO 2
        2 CLS
        COLOR 30
        PRINT "________________________________________________________________________________"
        PRINT ""
        COLOR 9
        INPUT "                      CARI HASIL WAKTU PERTUMBUHAN : ", WP
        COLOR 30
        PRINT "________________________________________________________________________________"
        PRINT ""
        COLOR 12
        PRINT "       PENCARIAN DITEMUKAN"
        COLOR 30
        PRINT " _________________________________"
        COLOR 9
        PRINT "|"; TAB(5); "WAKTU"; TAB(13); "|"; TAB(18); "BANYAK"; TAB(25); B$; TAB(35); "|"
        COLOR 30
        PRINT " _________________________________"
        FOR N = 1 TO W
            UN = A * R ^ (N - 1)
            COLOR 9
            IF N = WP THEN PRINT "|"; TAB(4); N; TAB(7); "TAHUN"; TAB(13); "|"; TAB(23); UN; TAB(35); "|"
        NEXT N
        COLOR 30
        PRINT " _________________________________"
        PRINT ""

        COLOR 15
        CLOSE
        DO
            INPUT " KEMBALI MELAKUKAN PENCARIAN? [Y/N] : ", M$
            DO: Q$ = UCASE$(M$)
            LOOP UNTIL Q$ = "Y" OR Q$ = "N"
            IF Q$ = "Y" THEN GOTO 2:
            IF Q$ = "N" THEN GOTO MENU:
        LOOP

    CASE "3"
        GOTO 3
        3 CLS
        PRINT ""
        COLOR 12
        PRINT "    LAPORAN PRAKTIKUM "; B$
        COLOR 30
        PRINT " _________________________________"
        COLOR 9
        PRINT "|"; TAB(5); "WAKTU"; TAB(13); "|"; TAB(18); "BANYAK"; TAB(25); B$; TAB(35); "|"
        COLOR 30
        PRINT " _________________________________"
        COLOR 9
        FOR N = 1 TO W
            UN = A * R ^ (N - 1)
            PRINT "|"; TAB(4); N; TAB(7); "TAHUN"; TAB(13); "|"; TAB(23); UN; TAB(35); "|"
        NEXT N
        COLOR 30
        PRINT " _________________________________"
        COLOR 10
        PRINT ""
        PRINT "NAMA KOTA               : "; N$
        PRINT "TAHUN                   :"; H
        PRINT "BAHAN PRAKTIKUM         : "; B$
        PRINT ""
        PRINT "JUMLAH SELURUH "; B$; "        : "; SN
        PRINT ""

        COLOR 15
        CLOSE
        DO
            INPUT " KEMBALI KE MENU AWAL? [Y/N] : ", M$
            DO: Q$ = UCASE$(M$)
            LOOP UNTIL Q$ = "Y" OR Q$ = "N"
            IF Q$ = "Y" THEN GOTO MENU:
            IF Q$ = "N" THEN GOTO 100:
        LOOP

    CASE "4"
        GOTO 100
END SELECT

100 END
END