m301w

Algoritma dan Pemrograman 1 BASIC Topic 2 soal 3

Nov 7th, 2022 (edited)
215
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 0.62 KB | None | 0 0
  1. Rem Program Angka
  2. DIM angka AS INTEGER 'Deklarasi variabel angka dengan tipe data integer'
  3.  
  4. INPUT "Masukkan angka: "; angka 'Melakukan input variabel angka'
  5.  
  6. IF angka > 1 THEN 'Pengecekan kondisi jika angka yang di-input lebih besar dari 0'
  7.  
  8. PRINT "Ini adalah bilangan positif" 'Mencetak kalimat jika kondisi pertama benar'
  9. ELSEIF angka < 0 THEN 'Pengecekan kondisi jika angka yang di-input lebih kecil dari 0'
  10. PRINT "Ini adalah bilangan negatif" 'Mencetak kalimat jika kondisi kedua benar'
  11. ELSE 'Kondisi selain kedua kondisi di atas'
  12. PRINT "Ini adalah bilangan nol" 'Mencetak kalimat jika kedua kondisi tidak terpenuhi'
  13. END IF
Add Comment
Please, Sign In to add comment