-: TUGAS ALGORITMA DAN PEMROGRAMAN 2 (BU ITO)

QBASIC

MATERI : DERET

1, KODINGAN :

CLS
COLOR 6
PRINT "________________________________________________________________________________"
PRINT ""
COLOR 2
PRINT "=============== MARI MENGHITUNG BILANGAN ARITMATIKA ================"
COLOR 6
PRINT "________________________________________________________________________________"
PRINT ""
COLOR 1
INPUT " MULAI DARI SUKU KE : ", SA
PRINT ""
INPUT " BERAKHIR DI SUKU KE : ", SZ
COLOR 6
PRINT "________________________________________________________________________________"
PRINT ""
COLOR 1
INPUT " NILAI SUKU PERTAMA ADALAH ", A
PRINT ""
INPUT " NILAI SUKU SELANJUTNYA ADALAH ", AA
B = AA - A

MENU:
CLS
COLOR 2
PRINT " SELAMAT DATANG"
COLOR 2
PRINT "======================================MENU====================================="
PRINT ""
COLOR 5
PRINT " 1.LIHAT RUMUS"
PRINT " 2.MENGHITUNG ARITMATIKA "
PRINT " 3.MENCARI BILANGAN ARITMATIKA "
PRINT " 4.KELUAR"
PRINT ""
COLOR 5
INPUT " MASUKKAN PILIHAN ANDA (1-4): ", P$

SELECT CASE P$
CASE "1"
GOTO 1
1 CLS
PRINT ""
COLOR 9
PRINT TAB(5); " _________________________________________________________"
PRINT TAB(5); "\ /"
PRINT TAB(5); "/ RUMUS BILANGAN ARITMATIKA : A + (N - 1) * B \"
PRINT TAB(5); "\ /"
PRINT TAB(5); "/ RUMUS JUMLAH BILANGAN ARITMATIKA : 1 / 2 * N * (A + UN) \"
PRINT TAB(5); "\_________________________________________________________/"
PRINT ""
COLOR 9
PRINT TAB(10); " _____________________________"
PRINT TAB(10); "\ /"
PRINT TAB(10); "/ KETERANGAN : \"
PRINT TAB(10); "\ /"
PRINT TAB(10); "/ A = NILAI AWAL \"
PRINT TAB(10); "\ B = BEDA NILAINYA /"
PRINT TAB(10); "/ N = SUKUNYA \"
PRINT TAB(10); "\_____________________________/"
PRINT ""
PRINT ""

COLOR 9
CLOSE
INPUT " KEMBALI KE MENU AWAL? [Y/N] : ", M$
IF M$ = "Y" THEN GOTO MENU:
IF M$ = "N" THEN GOTO 100:

CASE "2"
GOTO 2
2 CLS
PRINT ""
COLOR 3
PRINT "NILAI A (AWAL) :"; A
PRINT "NILAI B (BEDA) :"; B
PRINT ""
COLOR 3
PRINT " HASIL PERHITUNGAN"
COLOR 7
PRINT " _________________________________"
COLOR 3
PRINT "|"; TAB(5); "SUKU"; TAB(13); "|"; TAB(20); "NILAI SUKU"; TAB(35); "|"
COLOR 7
PRINT " _________________________________"
FOR N = SA TO SZ
UN = A + (N - 1) * B
COLOR 3
PRINT "|"; TAB(5); N; TAB(13); "|"; TAB(23); UN; TAB(35); "|"
SN = 1 / 2 * N * (A + UN)
NEXT N
COLOR 7
PRINT " _________________________________"
COLOR 3
PRINT "|"; TAB(4); "JUMLAH"; TAB(13); "|"; TAB(22); SN; TAB(35); "|"
COLOR 7
PRINT " _________________________________"
PRINT ""
PRINT ""

COLOR 3
CLOSE
INPUT " KEMBALI KE MENU AWAL? [Y/N] : ", M$
IF M$ = "Y" THEN GOTO MENU:
IF M$ = "N" THEN GOTO 100:

CASE "3"
GOTO 3
3 CLS
COLOR 7
PRINT "_____________________________________________________________________"
PRINT ""
COLOR 9
INPUT " CARI SUKU ARITMATIKA : ", NP
COLOR 7
PRINT "_____________________________________________________________________"
COLOR 9
PRINT " HASIL PERHITUNGAN"
COLOR 7
PRINT " _________________________________"
COLOR 9
PRINT "|"; TAB(5); "SUKU"; TAB(13); "|"; TAB(20); "NILAI SUKU"; TAB(35); "|"
COLOR 7
PRINT " _________________________________"
FOR N = SA TO SZ
UN = A + (N - 1) * B
COLOR 9
IF N = NP THEN PRINT "|"; TAB(5); N; TAB(13); "|"; TAB(23); UN; TAB(35); "|"
SN = 1 / 2 * N * (A + UN)
NEXT N
COLOR 7
PRINT " _________________________________"
PRINT ""
PRINT ""

COLOR 9
CLOSE
INPUT " KEMBALI KE MENU AWAL? [Y/N] : ", M$
IF M$ = "Y" THEN GOTO MENU:
IF M$ = "N" THEN GOTO 100:

CASE "4"
GOTO 100
END SELECT

100 END
END

2. OUTPUT PROGRAM

Cari menu RUN lalu pilih START atau langsung tekan F5 pada keyboard untuk menampilkan output program .