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;
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.
Posted by , Published at Maret 31, 2019 and have
0
komentar
