Algoritma dan Pemrograman 1 BASIC Topic 3 soal 3

REM Program Perulangan yang menghitung total jumlah penjualan dan rata rata penjualan selama periode yang ditentukan
DIM banyakHari AS INTEGER 'Deklarasi variabel banyakHari dengan tipe data integer'
DIM penjualan AS DOUBLE 'Deklarasi variabel penjualan dengan tipe data double'
DIM totalPenjualan AS DOUBLE 'Deklarasi variabel totalPenjualan dengan tipe data double'
DIM ratarataPenjualan AS DOUBLE 'Deklarasi ratarataPenjualan dengan tipe data double'
DIM hari AS INTEGER 'Deklarasi variabel hari dengan tipe data integer'

REM Gunakan statement INPUT untuk menyimpan ke variabel banyakHari yang di-INPUT oleh pengguna
INPUT banyakHari
PRINT "Berapa hari Anda ingin menginputkan penjualan? "; banyakHari 'Mencetak dan memanggil variabel banyakHari'

REM Melakukan perulangan pada variabel hari dengan kondisi awal adalah 1 dan kondisi akhirnya sampai banyakHari yang di-INPUT
FOR hari = 1 TO banyakHari

REM Gunakan statement INPUT untuk menyimpan ke variabel penjualan yang di-INPUT oleh pengguna
INPUT penjualan
PRINT "Masukkan penjualan hari ke-"; hari; " : "; penjualan 'Mencetak dan memanggil variabel penjualan'

REM Menghitung variabel totalPenjualan dengan menjumlahkan totalPenjualan ditambah dengan penjualan
totalPenjualan = totalPenjualan + penjualan

NEXT hari

REM Tampilkan total penjualan
PRINT "Total Penjualan = Rp."; totalPenjualan

REM Menghitung ratarataPenualan dengan membagi totalPenjualan dengan banyakHari
ratarataPenjualan = totalPenjualan / banyakHari
PRINT "Rata-rata penjualan per hari = Rp."; ratarataPenjualan 'Tampilkan rata-rata penjualan'

END