Program dengan statement READ

Berikut ini saya akan menjelaskannya..

CODE: 

10 CLS

20 Rata = 0

30 No = 0

40 PRINT "No", "NPM", "Nama", "Rata-rata", "Keterangan"

50 READ NPM$, NAMA$, n1, n2, n3, n4

60 IF NPM$ = "0" THEN END

70 Rata = (n1 + n2 + n3 + n4) / 4

80 IF Rata >= 80 THEN

    Ket$ = "Baik"

90 ELSEIF Rata >= 60 AND Rata < 80 THEN

    Ket$ = "Cukup"

100 ELSE Ket$ = "Kurang"

110 END IF

120 No = No + 1

130 PRINT No, NPM$, NAMA$, Rata, Ket$

140 GOTO 50

DATA "1","FAIZ",80,60,70,100

DATA "2","DEVA",60,50,100,100

DATA "3","DAVID",80,80,90,75

DATA "4","JOKO",80,50,81,60

DATA "5","DENNY",50,80,79,30

DATA 0,0,0,0,0,0

REM outputnya : No, NPM, NAMA, Rata,Ket$

OUTPUT:

Penjelasan: 

1. Statement READ ini di gunakan saat datanya sudah di ketahui oleh pemrogram. seperti contoh di atas datanya sudah di ketahui yaitu : NPM(Nomor Pokok Mahasiswa), Nama mahasiswa, nilai1,nilai2,nilai3,dan nilai4.

statement READ ini harus di pasangkan dengan statement DATA , seperti program di atas. kalo tidak di sertakan dengan statement DATA maka program akan error karena tidak ada data yang akan di baca oleh program.

 nah seperti ini screenshot nya, akan muncul pop-up yang mengatakan out of data. 

2. IF NPM$ = "0" THEN END

kutipan kodingan diatas ini di gunakan untuk menghentikan program ketika data NPM$ bernilai "0". pertanyaan: kenapa dia berhenti??

Jawab: karena di dalam DATA program di atas saya sudah memberikan data yang memiliki nilai "0" untuk NPM$. selain nilai "0" kita juga bisa menggantinya dengan nilai lain seperti alfabet. contoh:

DATA "XXX","XXX",0,0,0,0

Jika kodingan DATA 0,0,0,0,0,0 pada program di atas di hapus makan akan out of data, karena data yang di baca sudah tidak ada namun program tetap jalan terus haha (unlimited looping)

3.  IF Rata >= 80 THEN

    Ket$ = "Baik"

90 ELSEIF Rata >= 60 AND Rata < 80 THEN

    Ket$ = "Cukup"

100 ELSE Ket$ = "Kurang"

110 END IF 

Kegunaan statement if disini untuk menyeleksi nilai rata-rata agar saat di cetak/di output maka mendapat keterangan Baik, Cukup, maupun Kurang.

Ket$ = "Baik"

Nah ini dia, variabel Ket$ yang bertipe data String di berikan nilai "Baik" jika Rata-rata mahasiswa tersebut lebih besar atau sama dengan 80.

mokingjay-art.blogspot.com

END IF untuk menutup blok kode dari Statement IF.

4. 120 No = No + 1

Disebut sebagai Counter: Sebagai penghitung data

variabel No ini yang akan di cetak di outputan 1, 2, 3 ..dst (sebanyak data yang di baca)

5. 130 PRINT No, NPM$, NAMA$, Rata, Ket$

Digunakan untuk mencetak variabel variabel.

No yang di dapat dari No=No+1, 

NPM$ yang di dapat dari DATA,

NAMA$ yang di dapat dari DATA,

Rata yang di dapat dari penjumlahan 4 nilai yang di ada dalam DATA lalu di bagi 4.

70 Rata = (n1 + n2 + n3 + n4) / 4

Ket$ yang di dapat dari statement IF.

6. 140 GOTO 50

Melakukan perulangan(looping) ke line nomor 50

Sekian penjelasan dari saya, silahkan lihat juga program qbasic yang lainnya di sini qbasic