Advertisement
m301w

Algoritma dan Pemrograman 1 BASIC Topic 3 soal 3

Nov 28th, 2022 (edited)
1,830
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 1.58 KB | None | 0 0
  1. REM Program Perulangan yang menghitung total jumlah penjualan dan rata rata penjualan selama periode yang ditentukan
  2. DIM banyakHari AS INTEGER 'Deklarasi variabel banyakHari dengan tipe data integer'
  3. DIM penjualan AS DOUBLE 'Deklarasi variabel penjualan dengan tipe data double'  
  4. DIM totalPenjualan AS DOUBLE 'Deklarasi variabel totalPenjualan dengan tipe data double'
  5. DIM ratarataPenjualan AS DOUBLE 'Deklarasi ratarataPenjualan dengan tipe data double'
  6. DIM hari AS INTEGER 'Deklarasi variabel hari dengan tipe data integer'
  7.  
  8. REM Gunakan statement INPUT untuk menyimpan ke variabel banyakHari yang di-INPUT oleh pengguna
  9. INPUT banyakHari
  10. PRINT "Berapa hari Anda ingin menginputkan penjualan? "; banyakHari 'Mencetak dan memanggil variabel banyakHari'
  11.  
  12. REM Melakukan perulangan pada variabel hari dengan kondisi awal adalah 1 dan kondisi akhirnya sampai banyakHari yang di-INPUT
  13. FOR hari = 1 TO banyakHari
  14.  
  15. REM Gunakan statement INPUT untuk menyimpan ke variabel penjualan yang di-INPUT oleh pengguna
  16. INPUT penjualan
  17. PRINT "Masukkan penjualan hari ke-"; hari; " : "; penjualan 'Mencetak dan memanggil variabel penjualan'
  18.  
  19. REM Menghitung variabel totalPenjualan dengan menjumlahkan totalPenjualan ditambah dengan penjualan
  20. totalPenjualan = totalPenjualan + penjualan
  21.  
  22. NEXT hari
  23.  
  24. REM Tampilkan total penjualan
  25. PRINT "Total Penjualan = Rp."; totalPenjualan
  26.  
  27. REM Menghitung ratarataPenualan dengan membagi totalPenjualan dengan banyakHari
  28. ratarataPenjualan = totalPenjualan / banyakHari
  29. PRINT "Rata-rata penjualan per hari = Rp."; ratarataPenjualan 'Tampilkan rata-rata penjualan'
  30.  
  31. END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement