CONTOH PROGRAM dalam QBASIC ke Empat

PROGRAM GO TO

LISTING PROGRAM :

LOGIKA

Jadi Program GOTO ini adalah untuk menghitung jumlah harga yang harus dibayar dari hasil barang yang ingin dibeli, dan mendapatkan diskon. Listing program GOTO dibawah ini:

·         10 CLS
yaitu dimana 10 CLS terdapat pada baris 10 dan CLS, yang berfungsi untuk membersihkan area layar pada program QBasic.

·         20 INPUT “HASIL BARANG=”,A
yaitu di mana 20 input adalah baris 20, dan A adalah data barang yang ingin dimasukkan.

·         30 DATA 100
yaitu dimana 30 data 100 adalah DATA tersebut baris 30 dan DATA tersebut nilainya 100

·         40 READ HARGA
yaitu 40 READ adalah READ terdapat di baris 40, HARGA adalah nilainya 100. jadi READ dan DATA itu saling berkaitan.

·         50 LET BAYAR = A * HARGA
yaitu dimana LET BAYAR adalah rumus, sdgkn A*HARGA adalah nilai barang yang ingin dimasukkan akan dikalikan dengan harga 100.

·         60 IF A > 55 THEN 100
yaitu IF A>55 THEN 100 adalah barang yang dibeli kurang dari 55 sampai 100.

·         70 PRINT “HARGA YANG HARUS DIBAYAR=”, BAYAR
yaitu PRINT “HARGA YANG HARUS DIBAYAR=” adalah hasil dari barang yang dibeli kurang dari 55 sampai 100 dan BAYAR,BAYAR adalah penjumlahan nilai barang yang ingin dimasukkan akan dikalikan 100(A*HARGA).

·         80 GOTO 110
yaitu dimana 80 GOTO 110 adalah GOTO terdpt dibaris 80 dan jika perintah yang sebelumnya sudah terpakai jadi langsung menuju baris 110 yaitu END atau selesai.

·         90 HASIL = BAYAR – (BAYAR*10/100)
yaitu HASIL = BAYAR – (BAYAR*10/100) adalah jumlah barang yang di beli lebih dari 55 sampai 100 jadi data tersebut langsung di masukkan kedalam perintah ini yaitu memberikan diskon sebesar 10 % dengan rumus hasil = bayar - ( bayar * 10 /100) . 100 PRINT “HARGA YANG HARUS DIBAYAR=”, HASIL
yaitu PRINT “HARGA YANG HARUS DIBAYAR=” adalah memasukkan nilai hasil yang sudah di hitung dengan rumus(HASIL=BAYAR-(BAYAR*10/100)) pada perintah sebelumnya yaitu mendapatkan diskon 10%, pada program ini jika data lebih dari 90 maka pembeli tetap di kenakan diskon sebasar 100, namun jika kurang dari 55 maka pelanggan tidak mendapatkan diskon.

·         110 END
yaitu 110 END adalah terdapat pada baris 110 dan END adalah mengakhiri program.