Instruksi Pemilihan Bahasa BASIC
Ringkasan Instruksi Pemilihan Bahasa BASIC beserta contohnya
sebagai berikut :
Algoritma |
BASIC |
If(kondisi) Then aksi-1; Else aksi-2; Endif. |
IF(kondisi) THEN Aksi-1 ELSE Aksi-2 ENDIF |
case(variabel) Nilai-1:statement-1;break; Nilai-2:statement-2;break; Nilai-3:statement-3;break; …. default : statement-n; endcase. |
SELECT CASE variabel CASE nilai-1 Statement-1 CASE nilai-2 Statement-2 CASE nilai-3 Statement-3 … CASE ELSE Statement-n END SELECT |
Contoh : Algoritma Gaji_Karyawan {algoritma yang menerima nama,
golongan serta jam-kerja kemudian menampilkan total gaji yang diterima
karyawan} Deklarasi real
gaji,total,jamkerja,lembur,upah; string nama; char golongan; Dekripsi Write(“masukkan nama karyawan :
“); Read(nama); Write(“masukkan golongan-nya :
“); Read(golongan); Write(“masukkan jam kerjanya :
“); Read(jamkerja); Case(golongan) ‘A’:upah <- 4000;break; ‘B’:upah <- 5000;break; ‘C’:upah <- 6000;break; ‘D’:upah <- 7000;break; Default : write(“golongannya
salah! “); Endcase. If (jamkerja>150) Then lembur <- (jamkerja –
150)*upah*1.25; Gaji<-150*upah; Else lembur<-0 gaji <- jamkerja*upah; endif total<-gaji+lembur; write(“Gaji yang diterima sdr
:”,nama,”adalah = Rp. “, total); |
Contoh : REM Program perhitungan gaji
karyawan ‘Program ini menerima
nama,golongan ‘serta jam-kerja kemudian
menampilkan ‘total gaji yang diterima
karyawan. INPUT “Masukkan nama karyawan
:”;nama$ INPUT “Masukkan golongan-nya
:”;golongan$ INPUT”Masukkan jam kerjanya
:”;jamkerja$ SELECT CASE golongan$ CASE ‘A’ Upah = 4000 CASE ‘B’ Upah = 5000 CASE ‘C’ Upah = 6000 CASE ‘D’ Upah = 7000 CASE ELSE PRINT”golongannya salah !” ENDSELECT IF (jamkerja>150) THEN Lembur=(jamkerja –
150)*Upah*1.25 Gaji=150*Upah; ELSE Lembur=0; Gaji=jamkerja*upah ENDIF Total=Gaji+Lembur PRINT”Gaji yang diterima sdr :
”;nama$;” adalah=Rp. ”;Total END |
Referensi : Suarga.2012.Algoritma
dan Pemrograman.Yogyakarta:ANDI
0 comments:
Post a Comment