BELAJAR TURBO PASCAL
KARENA SEKOLAH SAYA SEDANG MENDAPAT BAB TENTANG BAHASA PEMROGRAMAN.. JADI SAYA POST CONTOH SOAL BAHASA PEMROGRAMAN TURBO PASCAL, yaitu tentang program diskon
Soal:
Sebuah pasar swalayan akan memberi diskon 10% jika pembelian lebih dari 50 ribu. Kita akan membuat program pembelian yang memberitahukan berapa jumlah yang harus dibayar. Mula-mula diskon diberi nilai 0 (nol), Jika jumlahnya lebih dari 50 ribu diskon diganti dengan 10% dari jumlah pembelian.
Jawaban:
Program Discount;
Uses wincrt;
Var
Nama:string;
Jumlah, Diskon, Bayar:real;
Begin
writeln(‘Program Discount’);
writeln(‘Oleh Ronny Tri Asmara (S1) STMIKBI BPP’);
writeln(‘======================================’);
repeat
writeln(‘ ‘);
write(‘Masukkan Nama Anda : ‘);
readln(Nama);
write(‘Masukkan Jumlah Pembelian = Rp ‘);
readln(Jumlah);
Diskon := 0;
if Jumlah>50000 then Diskon := Jumlah*0.1;
Bayar := Jumlah-Diskon;
writeln(‘ ‘);
writeln(‘Jumlah Pembelian = Rp’,Jumlah:10:2);
writeln(‘Jumlah Discount = Rp’,Diskon:10:2);
writeln(‘==================================’);
writeln(‘Jumlah Pembayaran = Rp’,Bayar:10:2);
writeln(‘Terima Kasih ‘,Nama);
until keypressed;
readln;
End.
Uses wincrt;
Var
Nama:string;
Jumlah, Diskon, Bayar:real;
Begin
writeln(‘Program Discount’);
writeln(‘Oleh Ronny Tri Asmara (S1) STMIKBI BPP’);
writeln(‘======================================’);
repeat
writeln(‘ ‘);
write(‘Masukkan Nama Anda : ‘);
readln(Nama);
write(‘Masukkan Jumlah Pembelian = Rp ‘);
readln(Jumlah);
Diskon := 0;
if Jumlah>50000 then Diskon := Jumlah*0.1;
Bayar := Jumlah-Diskon;
writeln(‘ ‘);
writeln(‘Jumlah Pembelian = Rp’,Jumlah:10:2);
writeln(‘Jumlah Discount = Rp’,Diskon:10:2);
writeln(‘==================================’);
writeln(‘Jumlah Pembayaran = Rp’,Bayar:10:2);
writeln(‘Terima Kasih ‘,Nama);
until keypressed;
readln;
End.
Penjelasan:
- Program Discount; adalah nama program yang akan dibuat.
- Uses wincrt; adalah index atau kamus yang akan digunakan, ini wajib ada dalam turbo pascal.
- Var adalah variabel yang akan digunakan dalam program, di bagian ini kita memasukkan jenis variabel dan type data yang akan digunakan. Misal: saya ingin membuat sebuah variabel yang menampilkan nama maka kita tinggal mengetik Nama:string;. Maksudnya adalah nama variabelnya ‘Nama’ dan type datanya ‘string’. String adalah type data kumpulan huruf atau kalimat. Variabel yang saya gunakan diatas type datanya ada 2. String artinya kalimat atau kata dan real artinya bilangan pecahan.
- Di bagian ‘Begin’ adalah kumpulan barisan perintah yang harus dikerjakan oleh komputer, diakhir program harus selalu diakhiri dengan ‘End’.
- ‘write/writeln’ digunakan untuk menampilkan isi dari suatu nilai variabel di layar.
- ‘read/readln’ perintah ini digunakan untuk memasukkan (input) data dalam keyboard ke dalam suatu variabel.
- ( := ) tanda di dalam kurung adalah statement penugasan, statement ini berfungsi menyatakan sebuah nilai dari suatu variabel. ‘Diskon := 0’ artinya nilai dari variabel diskon adalah nol.
- Bagian ‘if Jumlah>50000 then Diskon := Jumlah*0.1;’ artinya adalah jika kita mengetik jumlah diatas 50000 maka variabel diskon berubah. Bagian ‘Diskon := Jumlah*0.1’ artinya adalah nilai diskon = jumlah angka yang kita input dikalikan 0.1. bukankah seharusnya 10% ? dalam matematika 0.1 berarti 10%.
- Perintah ‘Bayar := Jumlah-Diskon’ artinya jumlah pembayaran adalah jumlah yang kita input dikurangi jumlah diskon. Perintah ini hanya berjalan jika jumlah yang kita input diatas 50 ribu.
- Setelah itu ada bagian cetak, bagian ini menampilkan hasil dari perintah yang akan ditampilkan ke dalam layar.
Catatan:
Pada saat membuat program perhatikanlah tanda yang wajib digunakan, jangan lupa mengakhiri setiap perintah dengan tanda titik koma ( ; ).
Variabel yang saya gunakan di atas adalah Diskon bukan Discount, saya memang sengaja melakukannya karena jika sama maka komputer akan mendeteksi variabel ganda. Ingat: perhatikan penulisan variabel yang anda gunakan, karena jika tidak sesuai maka komputer akan mendeteksi kesalahan.
