Algoritma dan Pemrograman 1 BASIC Topic 3 soal 2

REM Program Perulangan
DIM uts AS INTEGER 'Deklarasi variabel uts dengan tipe data Integer'
DIM uas AS INTEGER 'Deklarasi variabel uas dengan tipe data Integer'
DIM rataRata AS DOUBLE 'Deklarasi variabel rataRata dengan tipe data Double'
DIM pilihan AS STRING 'Deklarasi variabel pilihan dengan tipe data String'

REM Melakukan INPUT Pilihan
PRINT "Ketik Y/N untuk melakukan perhitungan rata-rata program (Y = Yes/N = No)"
INPUT pilihan 'Melakukan input nilai pada variabel pilihan'
PRINT "Y/N? "; pilihan

DO WHILE pilihan = "Y" 'Menggunakan perulangan do-while-loop'
INPUT uts 'Melakukan input nilai pada variabel uts'
INPUT uas 'Melakukan input nilai pada variabel uas'
PRINT "Nilai UTS: "; uts
PRINT "Nilai UAS: "; uas
rataRata = (uts + uas) / 2 'Melakukan perhitungan rata-rata nilai UTS dan UAS'
PRINT "Nilai Rata-Rata Ujian: "; rataRata
PRINT "Apakah Anda ingin melakukan perhitungan rata-rata lagi?"
INPUT pilihan 'Melakukan input nilai pada variabel pilihan'
PRINT "Y/N? "; pilihan
LOOP
END