Belajar Algoritma dan Pemrograman Menggunakan Free Pascal


Bismillahirrohmanirrohim. Sebelum membahas tentang pemrograman, sebaiknya kita pahami dulu apa itu algoritma. Menurut sepengetahuan saya dari beberapa referensi yang pernah saya baca, algoritma merupakan langkah-langkah penyelesaian suatu masalah secara terstruktur dan masuk akal (logis). Nah kemudian langkah-langkah inilah yang akan diimplementasikan ke dalam bahasa pemrograman. Bahasa pemrograman yang digunakan pada pembahasan kita kali ini adalah Pascal yang bisa kalian coba menggunakan Free Pascal IDE yang bisa didownload dari website resminya di sini.

Free Pascal sendiri gratis dan powerfull untuk kita gunakan dalam implementasi kemampuan algoritma kita dalam menyelesaikan permasalahan-permasalahan. Oh ya, matakuliah algoritma dan pemrograman ini biasanya disajikan di semester awal bagi mahasiswa prodi manajemen informatika, teknik informatika, sistem informasi, dll.

Kali ini kita akan mencoba suatu memecahkan suatu kasus yang terjadi pada kasir, misalnya dengan contoh kasus seperti ini:

Sebuah kasir ABCD memerlukan sebuah aplikasi sederhana yang dapat mengakumulasi harga-harga barang yang dibeli oleh pelanggannya. Aplikasi harus dapat menghitung berapa biaya yang harus dibayarkan oleh pembeli apabila data inputan berupa: jumlah item yang dibeli secara keseluruhan, kode barang (barcode), jumlah item per-barang;

Nah, disini cara saya selesaikannya ialah dengan menggunakan perulangan dan percabangan. Dengan membaca kasus diatas, dapat dilihat berapa jumlah variabel yang akan digunakan, yaitu jumlah item, barcode, item per-barang. Berikut adalah program yang saya buat (tanpa saya tulis di Free Pascal IDE maupun saya compile, hehe).

program kasir;
uses crt;

var item, i, jumlah, sub : integer;
    nama : string;
    harga, total: longint;

begin
  clrscr;
  writeln('--------------------------------');
  writeln('******* TOKO KANGRIYANTO *******');
  writeln(---------------------------------');
  writeln;
  write('Jumlah barang yang dibeli: '); readln(item);

  for i:= 1 to item do
  begin
    sub := 0;

    write('Kode Barang: '); readln(kode);
    if (kode = '12345678') then
    begin
      nama := 'Sabun Mandi';
      harga:= 3000;
    end

    else if (kode = '23456781') then
    begin
      nama := 'Shampo';
      harga:= 15000;
    end

    else
    begin
      nama := 'Pasta Gigi';
      harga:= 7500;
    end;

    write('Jumlah beli: '); readln(jumlah);
    sub := harga * jumlah;
    
    writeln('Nama barang: ', nama);
    writeln('Harga satuan: ', harga);
    writeln('Sub total: ', sub);

    total := total + sub;
  end;
  write('TOTAL BAYAR: ', total);
  readln;
end.

Nah, demikianlah program sederhana dengan menggunakan bahasa pemrograman Pascal untuk menyelesaikan kasus diatas. Ingat ya, program yang saya tulis diatas belum saya compile sehingga saya belum bisa jamin keberhasilan program ketika dijalankan, maklum rada males.. hehe

Untuk itu silakan teman-teman coba terlebih dahulu, jika ada error atau tidak faham, silakan tanyakan di kolom komentar, hehehe…. Terima kasih dan happy coding! 🙂

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google photo

You are commenting using your Google account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s

This site uses Akismet to reduce spam. Learn how your comment data is processed.