1 CLS
DIM a AS INTEGER
PRINT ; "--------PROGRAM MENU--------"
PRINT ; "1. Program Biodata"
PRINT ; "2. Program For-Next"
PRINT ; "3. Program Do Until"
PRINT ; "4. Program Do While"
PRINT ; "5. EXIT"
PRINT ; "----------------------------"
INPUT "Masukkan Pilihan Anda (angka) : ", a
SELECT CASE a
CASE 1
CLS
PRINT "------Program Biodata------"
INPUT "Masukan Nama Anda : ", nama$
INPUT "Masukan Kelas Anda : ", kelas$
INPUT "Masukan NPM Anda : ", npm$
CLS
PRINT "-----BIODATA ANDA-----"
PRINT "Nama Anda : "; nama$
PRINT "Kela Anda : "; kelas$
PRINT "NPM Anda : "; npm$
2 INPUT "", q
INPUT "Tekan Enter untuk kembali ke menu", r
GOTO 1
END
CASE 2
CLS
PRINT "Program FOR - NEXT"
PRINT "------------------"
INPUT "Masukan Angka : ", a
FOR b = 1 TO a
FOR c = 1 TO b
PRINT ""; c;
NEXT c
NEXT b
GOTO 2
CASE 3
CLS
PRINT "-----Program Do Until------"
INPUT "Masukan Angka : ", j
DO UNTIL j >= 50
PRINT j
j=j+2
LOOP
PRINT "Proses Selesai"
GOTO 2
CASE 4
CLS
PRINT "------Proram Do While------"
INPUT "Masukan Angka : ", h
DO WHILE i >= 1
i = i - 2
PRINT i;
LOOP
GOTO 2
CASE 5
CLS
LOCATE 8
PRINT , , "-------Harus Keluar Yah-------"
END
CASE ELSE
PRINT "Angka Yang Anda Masukkan Salah"
INPUT "", o
GOTO 1
END SELECT
0 komentar:
Posting Komentar