Contoh Sederhana Membuat Program Dengan Turbo Pascal For Windows

Nih artikelnya saya tulis karena teman di kampus minta diajarin cara memakai turbo pascal, sebenarnya sih saya sendiri juga masih dalam tahap belajar namun akan saya jelaskan sesederhana mungkin dengan menggunakan contoh soal yang pernah diberikan di mata kuliah pemrograman…

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.

Penjelasan:

  1. Program Discount; adalah nama program yang akan dibuat.
  2. Uses wincrt; adalah index atau kamus yang akan digunakan, ini wajib ada dalam turbo pascal.
  3. 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.
  4. Di bagian ‘Begin’ adalah kumpulan barisan perintah yang harus dikerjakan oleh komputer, diakhir program harus selalu diakhiri dengan ‘End’.
  5. ‘write/writeln’ digunakan untuk menampilkan isi dari suatu nilai variabel di layar.
  6. ‘read/readln’ perintah ini digunakan untuk memasukkan (input) data dalam keyboard ke dalam suatu variabel.
  7. ( := ) 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.
  8. 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 sederhana 0.1 berarti 10%.
  9. 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.
  10. 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.

Bagi yang belum memiliki aplikasi Turbo Pascal For Windows, tidak usah bingung nanya sana-sini sama mbah Google. Saya sudah menyediakan aplikasi tersebut, silahkan download di sini.

About these ads

Perihal Ronny Tri Asmara
University Student | Computer Technician | Programmer | Webmaster | Blogger | Pusamania | Metalheads

5 Responses to Contoh Sederhana Membuat Program Dengan Turbo Pascal For Windows

  1. Gandi mengatakan:

    terimakasih kawan sangat membantu pembelajaran saya

  2. tomy pradita mengatakan:

    asiekkk,. trima kasih buat akang ronny,..

  3. veryyy mengatakan:

    thank u,,,(y)

Tinggalkan Komentar

Isikan data di bawah atau klik salah satu ikon untuk log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Logout / Ubah )

Twitter picture

You are commenting using your Twitter account. Logout / Ubah )

Facebook photo

You are commenting using your Facebook account. Logout / Ubah )

Google+ photo

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Ikuti

Get every new post delivered to your Inbox.

%d bloggers like this: