Ini adalah salah satu contoh program sederhana pengguna statement REM-LOOP :
10 CLS
20 PRINT "HASIL KALI 2 BILANGAN"
30 REM LOOP
40 PRINT "AMBIL 2 BILANGAN"
50 INPUT "A =",A
60 INPUT "B =",B
70 PRINT "HASIL KALI ="; A * B
80 PRINT "KETIK 1 BILA TERUS, KETIK 2 BILA BERHENTI"
90 INPUT K
100 IF K = 1 THEN 40
110 END
*pada QBASIC*
*hasil saat di run*
10 CLS
20 PRINT "HASIL KALI 2 BILANGAN"
30 REM LOOP
40 PRINT "AMBIL 2 BILANGAN"
50 INPUT "A =",A
60 INPUT "B =",B
70 PRINT "HASIL KALI ="; A * B
80 PRINT "KETIK 1 BILA TERUS, KETIK 2 BILA BERHENTI"
90 INPUT K
100 IF K = 1 THEN 40
110 END
*pada QBASIC*
Tidak ada komentar:
Posting Komentar