ALGORITMA DAN PEMROGRAMAN 1 BASIC TOPIC 3 Soal 1

REM Program Perulangan yang menghitung berapa lama sebuah deposito bank disimpan hingga saldo akhir menjadi dua kali lipa dari saldo awal
DIM persenBunga AS DOUBLE = 0.2 'Deklarasi konstanta persenBunga sebagai Double dan menginisialisasikannya dengan nilai 0.2'
DIM bunga AS DOUBLE 'Deklarasi variabel bunga sebagai Double'
DIM saldoAwal AS DOUBLE 'Deklarasi variabel saldoAwal sebagai Double'
DIM saldoBerjalan AS DOUBLE 'Deklarasi variabel saldoBerjalan sebagai Double'
DIM tahun AS INTEGER'Deklarasi variabel tahun sebagai Integer dan menginisialisasikannya dengan nilai 0'

REM Gunakan statement INPUT untuk menyimpan ke variabel saldoAwal yang di-INPUT oleh pengguna
INPUT saldoAwal
PRINT "Saldo awal Anda: "; saldoAwal 'Mencetak dan memanggil variabel saldoAwal'

saldoBerjalan = saldoAwal 'Menugaskan nilai saldoAwal ke variabel saldoBerjalan'

REM Melakukan perulangan hingga nilai pada variabel saldoBerjalan menjadi dua kali lipat dari nilai variabel saldoAwal
DO UNTIL saldoBerjalan > saldoAwal * 2
tahun = 1 + tahun  'Menambahkan tahun dengan 1 ditambah tahun'
bunga = persenBunga * saldoBerjalan'Menghitung bunga dengan mengalikan persenBunga dengan saldoBerjalan'
saldoBerjalan = saldoBerjalan + bunga 'Menghitung saldoBerjalan dengan menambahkan saldoBerjalan dengan bunga'
LOOP
PRINT "Saldo Anda akan menjadi dua kali lipat dalam: "; tahun; " tahun." 'Mencetak dan memanggil variabel tahun'
PRINT "Saldo akhir Anda adalah: "; saldoBerjalan 'Mencetak dan memanggil variabel saldoBerjalan'
END