Simple Pascal Programming: Program ATM Sederhana


Program sederhana kali ini adalah program ATM Sederhana dimana sebelum melakukan penarikan uang, nasabah akan dimintai keterangan jenis ATM (Gold atau Silver), kemudian ketika nasabah melakukan penarikan dengan nominal tertentu, biaya yang dibebankan berbeda antara nominal satu dengan lainnya. Ada batasannya.
- Bila ATMnya jenis Gold, maka biaya penarikan di bawah 1 juta, maka biayanya hanya 5000, jika lebih maka dikenakan biaya tambahan sebesar 10% dari total penarikan.
- Bila ATMnya jenis Silver, maka biaya penarikan dibawah 1 juta, maka biayanya hanya 2000, jika lebih maka dikenakan biaya tambahan sebesar 10% dari total penarikan.
Program ini menggunakan nested if (If Bertingkat). Bagi sobat yang sedang belajar nested if, semoga program ini dapat membantu. Program ini juga memakai go to, jadi semoga bermanfaat. Source Code nya sebagai berikut;




program bayarATM;
uses crt;

label
awal, akhir;

var
jns_atm: integer;
ket, ulang : string;
jmltrk, biatrk, biaatm, ttlbiaya :real;

BEGIN
 awal:
  clrscr;
    writeln('Selamat datang di menu penarikan tunai ATM Bank Pascal');
    writeln('Silakan masukan kode jenis kartu ATM Anda');
    writeln('<1> Gold');
    writeln('<2> Silver');
    write('Kode ATM Anda: ');
     readln(jns_atm);

    writeln();
    write('Silakan masukan nominal penarikan: ');
     readln(jmltrk);
    writeln();

    if(jns_atm = 1) then
     begin
      biatrk := 5000;
      writeln('Anda menggunakan ATM jenis Gold');
      if(jmltrk > 1000000) then
        biaatm := (jmltrk * 10/100)
      else
        biaatm := 0;
     end
    else if (jns_atm = 2) then
     begin
      biatrk := 2000;
      writeln('Anda menggunakan ATM jenis Silver');
      if(jmltrk > 1000000) then
       biaatm := (jmltrk * 10/100)
      else
       biaatm :=0;
     end
    else
     begin
      jmltrk := 0;
      ttlbiaya := 0;
      biaatm :=0;
      writeln('!!! Jenis ATM Anda tidak terdaftar, transaksi dibatalkan !!!');
      writeln();
     end;

    ttlbiaya := biatrk + biaatm;

    writeln('Anda telah melakukan penarikan sebesar: Rp.',jmltrk:7:0);
    writeln('Total biaya transaksi: Rp.',ttlbiaya:7:0);

  writeln();
  writeln('Transaksi selesai.');
  writeln('Ulangi transaksi? Y/N');
  readln(ulang);

  if (ulang = 'Y') then
   goto awal
  else if (ulang = 'y') then
   goto awal
  else
   goto akhir;

  akhir:

END.

Hasilnya adalah sebagai berikut;




Catatan Kaki:
Tulisan kali ini adalah tugas awal mata kuliah pemrograman penulis. Meskipun ini adalah pemrograman sederhana, pemulis berharap kode sederhana ini dapat menjadi referensi bagi pembaca untuk memasuki dunia pemrograman. Penulis tidak berkeberatan bila kode program di atas di copy-paste hanya saja penulis sangat menyarankan agar tidak copy-paste untuk sekedar memenuhi tugas mata kuliah sobat tanpa sobat paham apa yang penulis tulis. Mohon maaf dan terima kasih.

No comments:

Post a Comment