Tugas Algoritma Pemrograman 1B, Ito Riris Immasari (Searching)

Halo semuanya, selamat datang di blog saya. Kebetulan ini adalah postingan pertama saya mengenai blog ini. Postingan pertama saya ini tentang QBASIC. Apa itu QBASIC? 

Qbasic adalah salah satu bahasa pemrograman yang menggunakan bahasa basic, Qbasic sendiri singkatan dari Quick Basic yang merupakan salah satu produk Microsoft Qbasic yang cukup baik untuk belajar dasar pemrograman.

Langsung saja, saya akan menunjukkan hasil kerja saya selama menggunakan QBASIC.

DERET ARITMATIKA, GEOMETRI, KUADRAT, KUBIK.

Disini saya mengambil contoh deret aritmatika.
Berikut adalah kodingan dari sebuah deret aritmatika :

REM GO FOR IPK 3,7
MENU:
CLS
COLOR 15
PRINT "=================MENU DERET=================="
PRINT ""
PRINT " 1) DERET ARITMATIKA"
PRINT " 2) DERET GEOMETRI"
PRINT " 3) DERET KUADRAT"
PRINT " 4) DERET KUBIK"
PRINT " 5) KELUAR"
COLOR 15
PRINT ""
INPUT "MASUKKAN PILIHAN ANDA = ", pil
SELECT CASE pil
    P:
    CASE 1
        CLS
        LOCATE 1, 34
        COLOR 15
        PRINT "DERET ARITMATIKA"
        PRINT ""
        PRINT "1. INPUT DATA DERET"
        PRINT "2. TABEL DERET"
        INPUT "PILIHAN ANDA : ", a
        SELECT CASE a
            CASE 1
                CLS
                INPUT "MASUKKAN SUKU PERTAMA : ", Q
                INPUT "MASUKAN JUMLAH SUKU : ", J
                INPUT "MASUKKAN BEDA : ", B
                PRINT ""
                PRINT ""
                INPUT "APAKAH ANDA INGIN MELIHAT TABEL? (Y / N) ", B$
                IF B$ = "Y" THEN GOTO P:
                IF B$ = "y" THEN GOTO P:
                IF B$ = "n" THEN GOTO 100
                IF B$ = "N" THEN GOTO 100
END SELECT
100 END

Nah dibawah ini merupakan hasil dari kodingan diatas.

NOTES:

CLS : Menghapus tugas sebelumnya, agar output(tekan f5) pengerjaan tugas sebelumnya tidak tersisipi pada output yang baru

PRINT : Perintah mencetak hasil, ini merupakan perintah untuk mengeluarkan output

LET : memberikan nilai pada suatu variabel.

GOTO : Untuk merubah urutan eksekusi

END : untuk mengakhiri coding

COLOR : memberikan warna

SELECT CASE : memberikan kemungkinan nilai variabel yang ingin dicari

In case, berikut kodingan geometri, kuadrat dan kubik.

REM GO FOR IPK 3,7
MENU:
CLS
COLOR 15
PRINT "=================MENU DERET=================="
PRINT ""
PRINT " 1) DERET ARITMATIKA"
PRINT " 2) DERET GEOMETRI"
PRINT " 3) DERET KUADRAT"
PRINT " 4) DERET KUBIK"
PRINT " 5) KELUAR"
COLOR 15
PRINT ""
INPUT "MASUKKAN PILIHAN ANDA = ", pil
SELECT CASE pil
    P:
    CASE 1
        CLS
        LOCATE 1, 34
        COLOR 15
        PRINT "DERET ARITMATIKA"
        PRINT ""
        PRINT "1. INPUT DATA DERET"
        PRINT "2. TABEL DERET"
        INPUT "PILIHAN ANDA : ", a
        SELECT CASE a
            CASE 1
                CLS
                INPUT "MASUKKAN SUKU PERTAMA : ", Q
                INPUT "MASUKAN JUMLAH SUKU : ", J
                INPUT "MASUKKAN BEDA : ", B
                PRINT ""
                PRINT ""
                INPUT "APAKAH ANDA INGIN MELIHAT TABEL? (Y / N) ", B$
                IF B$ = "Y" THEN GOTO P:
                IF B$ = "y" THEN GOTO P:
                IF B$ = "n" THEN GOTO 100
                IF B$ = "N" THEN GOTO 100
            CASE 2
                CLS
                LET S = 1
                LET T = Q
                PRINT "==============================="
                PRINT TAB(3); "|"; TAB(5); "SUKU"; TAB(12); "|"; TAB(15); "NILAI"; TAB(23); "|"
                PRINT "==============================="
                FOR C = 1 TO J
                    PRINT TAB(3); "|"; TAB(6); C; TAB(12); "|"; TAB(16); Q; TAB(23); "|",
                    S = S + 1
                    Q = Q + B
                    T = T + Q
                    IF S = J THEN
                    END IF
                NEXT C
                PRINT ""
                PRINT "==============================="
                COLOR 11
                PRINT TAB(3); "|"; TAB(5); "TOTAL"; TAB(12); "|"; TAB(16); T; TAB(23); "|"
                COLOR 15
                PRINT ""
                PRINT ""
                INPUT "APAKAH ANDA INGIN KEMBALI KE MENU? (Y / N) ", B$
                IF B$ = "Y" THEN GOTO MENU:
                IF B$ = "y" THEN GOTO MENU:
                IF B$ = "n" THEN GOTO 100
                IF B$ = "N" THEN GOTO 100
        END SELECT
    CASE 2
        R:
        CLS
        LOCATE 1, 37
        COLOR 15
        PRINT "DERET GEOMETRI"
        PRINT "1. INPUT DATA DERET"
        PRINT "2. TABEL DERET"
        INPUT "PILIHAN ANDA : ", B
        SELECT CASE B
            CASE 1
                CLS
                INPUT "MASUKKAN SUKU PERTAMA : ", Q
                INPUT "MASUKKAN JUMLAH SUKU : ", J
                INPUT "MASUKKAN BEDA : ", B
                PRINT ""
                PRINT ""
                INPUT "APAKAH INGIN MELIHAT TABEL? (Y / N) ", P$
                IF P$ = "Y" THEN GOTO R:
                IF P$ = "y" THEN GOTO R:
                IF P$ = "n" THEN GOTO 100
                IF P$ = "N" THEN GOTO 100
            CASE 2
                CLS
                LET S = 1
                LET T = Q
                PRINT "==============================="
                PRINT TAB(3); "|"; TAB(5); "SUKU"; TAB(12); "|"; TAB(15); "NILAI"; TAB(23); "|"
                PRINT "==============================="
                FOR C = 1 TO J
                    PRINT TAB(3); "|"; TAB(6); C; TAB(12); "|"; TAB(16); Q; TAB(23); "|",
                    S = S + 1
                    Q = Q * B
                    T = T + Q
                    IF S = J THEN
                    END IF
                NEXT C
                PRINT ""
                PRINT "=============================="
                COLOR 11
                PRINT TAB(3); "|"; TAB(5); "TOTAL"; TAB(12); "|"; TAB(16); T; TAB(23); "|"
                COLOR 15
                PRINT ""
                PRINT ""
                INPUT "APAKAH ANDA INGIN KEMBALI KE MENU? (Y / N) ", P$
                IF P$ = "Y" THEN GOTO MENU:
                IF P$ = "y" THEN GOTO MENU:
                IF P$ = "n" THEN GOTO 100
                IF P$ = "N" THEN GOTO 100
        END SELECT
    CASE 3
        CLS
        LOCATE 1, 37
        COLOR 15
        PRINT "DERET KUADRAT"
        PRINT "1. INPUT DATA DERET"
        PRINT "2. TABEL DERET"
        INPUT "PILIHAN ANDA : ", a
        SELECT CASE a
            CASE 1
                CLS
                INPUT "MASUKKAN SUKU PERTAMA : ", Q
                INPUT "MASUKKAN JUMLAH SUKU : ", J
                INPUT "MASUKKAN BEDA : ", B
                PRINT ""
                PRINT ""
                INPUT "APAKAH ANDA INGIN MELIHAT TABEL? (Y / N) ", B$
                IF B$ = "Y" THEN GOTO P:
                IF B$ = "y" THEN GOTO P:
                IF B$ = "n" THEN GOTO 100
                IF B$ = "N" THEN GOTO 100
            CASE 2
                CLS
                LET S = 1
                LET T = Q
                PRINT "==============================="
                PRINT TAB(3); "|"; TAB(5); "SUKU"; TAB(12); "|"; TAB(15); "NILAI"; TAB(23); "|"
                PRINT "==============================="
                FOR C = 1 TO J
                    PRINT TAB(3); "|"; TAB(6); C; TAB(12); "|"; TAB(16); Q; TAB(23); "|",
                    S = S + 1
                    Q = Q ^ B
                    T = T + Q
                    IF S = J THEN
                    END IF
                NEXT C
                PRINT ""
                PRINT "==============================="
                COLOR 11
                PRINT TAB(3); "|"; TAB(5); "TOTAL"; TAB(12); "|"; TAB(16); T; TAB(23); "|"
                COLOR 15
                PRINT ""
                PRINT ""
                INPUT "APAKAH ANDA INGIN KEMBALI KE MENU? (Y / N) ", B$
                IF B$ = "Y" THEN GOTO MENU:
                IF B$ = "y" THEN GOTO MENU:
                IF B$ = "n" THEN GOTO 100
                IF B$ = "N" THEN GOTO 100
        END SELECT
    CASE 4
        CLS
        LOCATE 1, 37
        COLOR 15
        PRINT "DERET KUBIK"
        PRINT "1. INPUT DATA DERET"
        PRINT "2. TABEL DERET"
        INPUT "PILIHAN ANDA : ", a
        SELECT CASE a
            CASE 1
                CLS
                INPUT "MASUKKAN SUKU PERTAMA : ", Q
                INPUT "MASUKKAN JUMLAH SUKU : ", J
                INPUT "MASUKKAN BEDA : ", B
                PRINT ""
                PRINT ""
                INPUT "APAKAH ANDA INGIN MELIHAT TABEL? (Y / N) ", B$
                IF B$ = "Y" THEN GOTO P:
                IF B$ = "y" THEN GOTO P:
                IF B$ = "n" THEN GOTO 100
                IF B$ = "N" THEN GOTO 100
            CASE 2
                CLS
                LET S = 1
                LET T = Q
                PRINT "==============================="
                PRINT TAB(3); "|"; TAB(5); "SUKU"; TAB(12); "|"; TAB(15); "NILAI"; TAB(23); "|"
                PRINT "==============================="
                FOR C = 1 TO J
                    PRINT TAB(3); "|"; TAB(6); C; TAB(12); "|"; TAB(16); Q; TAB(23); "|",
                    S = S + 1
                    Q = Q ^ B
                    T = T + Q
                    IF S = J THEN
                    END IF
                NEXT C
                PRINT ""
                PRINT "==============================="
                COLOR 11
                PRINT TAB(3); "|"; TAB(5); "TOTAL"; TAB(12); "|"; TAB(16); T; TAB(23); "|"
                COLOR 15
                PRINT ""
                PRINT ""
                INPUT "APAKAH ANDA INGIN KEMBALI KE MENU? (Y / N) ", B$
                IF B$ = "Y" THEN GOTO MENU:
                IF B$ = "y" THEN GOTO MENU:
                IF B$ = "n" THEN GOTO 100
                IF B$ = "N" THEN GOTO 100
        END SELECT
END SELECT
100 END