Pengulangan menggunakan "IF"

Tugas PTSI 1 = Menghitung Upah Buruh

10 cls
print "Menghitung Upah Buruh"
tunjangan.anak = 100000
ongkos.kerja = 2500
input "NIB"; nib
input "Nama"; nama$

input "Jam Kerja"; jam.kerja
input "Jumlah Anak"; jumlah.anak
let gaji.kotor = ongkos.kerja * jam.kerja + tunjangan.anak * jumlah.anak
let potongan.pajak = gaji.kotor * (5/100)
let gaji.bersih = gaji.kotor - potongan.pajak
print "Gaji Kotor=" ; gaji.kotor
print "Gaji Bersih="; gaji.bersih
print "y. Menghitung Ulang"
print "n. Selesai"
input "y or n "; y.n$
if y.n$ = "y" or y.n$ = "Y" goto 10
if y.n$ = "n" or y.n$ = "N" goto20
20 end

Penjelasan :

• 10 cls => angka 10 ini sebagai tanda alamat, cls = untuk membersihkan hitungan sebelumnya

• tunjangan.anak = 100000 => untuk memberikan nilai pada "tunjangan.anak"

• input "Nama"; nama$ => lambang $ dibaca string, tanda ini digunakan untuk menuliskan huruf. bila tidak menggunakan tanda ini, huruf tidak dapat diketik.
• let potongan.pajak = gaji.kotor * (5/100) => 5/100 arti ny 5%, dalam Qbasic tanda % memiliki arti Integer.
• if y.n$ = "y" or y.n$ = "Y" goto 10 => artinya : jika variable "y.n$" adalah y atau variable "y.n$" adalah Y, maka pergi ke 10. yang berarti, akan mengulang dari awal.
• if y.n$ = "n" or y.n$ = "N" goto 20 => artinya : jika variable "y.n$" adalah n atau variable "y.n$" adalah N, maka pergi ke 20. yang berarti, selesai penghitungan ny

hasil :

Asli buatan tangan 'n no copas dalam penyelesaian materinya.

sumber rumus diambil dari:

• Buku Pengantar Algoritma Dan Pemrograman Basic Dasar
• Pengarang : Suryadi H.S dan Agus Sumin
• Penerbit : Gunadarma