6. Koreksi



6. Koreksi
Disini kita akan membuat program untuk mengoreksi sebuah soal apakan benar atau salah
Mulai dengan membuat input nama dan nomer ujian siswa
Kemudian buat soal yang diinginkan disini saya akan membuat soal simple yang menanyakan tentang warna
Pada soal saya menggunakan COLOR 4 yaitu merah. Dan buatlah input untuk jawaban
Kemudian gunakan command IF THEN untuk melakukan koreksi
Kemudian gunakan IF sekali lagi untuk mem-PRINT benar atau salah sesuai dengan jawaban
END. Silahkan jalankan program
Silahkan input nama dan nomer ujian
Kemudian akan muncul soal silahkan di jawab
Jika benar maka:
Jika salah:
Selesai berikut ini adalah kode penuh nya
CLS
INPUT "NAMA: ", N$
INPUT "NOMER UJIAN: ", C
PRINT ""
PRINT "SOAL"
COLOR 4
PRINT "TULISAN INI BERWARNA? "
COLOR 7
PRINT TAB(1); "A. MERAH"; TAB(10); "B. KUNING"; TAB(20); "C. HIJAU"
INPUT "JAWAB ", X$
IF X$ = "A" THEN
    PRINT "BENAR"
ELSE
    PRINT "SALAH"
END IF
CLS
PRINT TAB(5); "NAMA"; TAB(15); "NOMER UJIAN"; TAB(28); "JAWABAN"
IF X$ = "A" THEN
    PRINT TAB(5); N$; TAB(15); C; TAB(28); "BENAR";
ELSE PRINT TAB(5); N$; TAB(15); C; TAB(28); "SALAH";
END IF
END

5. Rata-rata


Disini kita akan membuat program yang dapat menghitung rata rata data yang kita input, untuk soal nya ini adalah masalah buatan sendiri disini kita ak an menghitung hasil ujian praktek olahraga seorang siswa
Silahkan masukan jumlah siswa yang akan dihitung nilainya berukit nilai nilai nya  disini adalah 2
Kemudian akan muncul seperti ini yaitu nilai masing masing, rata rata dan nilai dalam abjad (rate)
Kode penuh nya adalah sebagai berikut QBASIC RATA-RATA

4. Deret Dengan Contoh Cerita/Kasus



 

Pada soal ini kita akan membuat program Deret yang dapat digunakan dalam kasus sehari hari, untuk program ini saya akan memakai rumus deret aritmatika untuk menghitung tarif taksi
Pada perhitungan tarif taksi terdapat 3 data penting yaitu: 1. Tarif awal, 2. Tarif per Xm (nilai X bervariasi tiap taksi disini kita kan buat 100m) 3. Jarak tempuh. 
masukan data sesuai taksi yg anda tumpangi
Kemudian akan seperti ini
Berikut adalah kode penuh nya QBASIC DERET KASUS