Advertisement
m301w

Algoritma dan Pemrograman 1 BASIC Topic 2 soal 1

Nov 7th, 2022 (edited)
1,745
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 0.66 KB | None | 0 0
  1. REM Program Hitung Nilai
  2. DIM uts AS INTEGER 'Deklarasi variabel uts dengan tipe data interger'
  3. DIM uas AS INTEGER 'Deklarasi variabel uas dengan tipe data interger'
  4. DIM rata AS DOUBLE 'Deklarasi variabel rata dengan tipe data double'
  5.  
  6. REM Melakukan INPUT variabel uts dan uas
  7. INPUT "Masukan nilai uts: ", uts
  8. INPUT "Masukan nilai uas: ", uas
  9.  
  10. PRINT "Nilai UTS Anda: "; uts
  11. PRINT "Nilai UAS Anda: "; uas
  12.  
  13. rata = (uts+uas)/2 'Melakukan perhitungan nilai rata-rata ujian yang menjumlahkan uts dan uas kemudian dibagi 2'
  14.  
  15. IF rata >= 85 THEN 'Melakukan pengecekan pada kondisi jika nilai rataRata lebih dari atau sama dengan 85'
  16. PRINT "Selamat Anda lulus!"
  17. END IF
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement