GENIA FESTIVAL : PROGRAM ATM SIMPEL BUATANKU

Karena masuk pada jurusan IF, aku pun sadar bahwa bagaimanapun kemampuan programming adalah kemampuan yang utama yang harus digunakan hingga aku bekerja nanti. Karena itu alih-alih merasakan liburan saat Bulan Ramadhan datang, masa-masa mudik alias pulang kampung juga dibebani dengan beberapa macam tugas, salah satunya adalah tugas tentang membuat mesin atm simpel ini.

program ATM;
GENIAFEST TECH
uses crt;

const limit=5000000;

const batas=3;

const batasATM=5;

const uangBank=4300000;

const uangATM=4500000;

const pecahan=100000;



var PIN,ambiluang,j,i,x:longint;

jawab:string;

Label input;

begin{a}

clrscr;

writeln('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');

writeln('>>>>>ATM BANTJOEK | PIN=1234<<<<<'); writeln('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'); writeln(''); begin i:=1; j:=0; repeat begin j:=j+1; i:=i+1; writeln('=====Masukkan PIN Anda=====');readln(PIN); x:=batas-j; writeln('***kesempatan tinggal ',x,' kali lagi***'); end; until (PIN=1234) OR (i>batas);



if PIN=1234 then



begin{b}

i:=1;

j:=0;

writeln('');

writeln('==== PIN BENAR ====');

writeln('');

writeln('Saldo Anda Sebesar ',uangbank,' rupiah');

writeln('Pecahan minimal adalah sebesar ',pecahan,' rupiah');

writeln('dan limit transaksi kami adalah sebesar ',limit,' rupiah');

input:

repeat

begin

j:=j+1;

i:=i+1;

writeln;

writeln('>>>Silahkan masukkan jumlah uang yang akan diambil dengan benar<<<'); readln(ambiluang); writeln; writeln('==================================='); writeln('Anda ingin mengambil uang sejumlah= ',ambiluang,' rupiah'); writeln('==================================='); X:=batasATM-j; writeln; writeln('kesempatan tinggal ',X,' kali lagi'); end; until (ambiluang>=pecahan) OR (i>batasATM);

if (ambiluang>=pecahan) AND (ambiluang<=limit) AND (ambiluang=pecahan) AND (ambiluanguangbank) AND (ambiluang=pecahan) AND (ambiluang0) then

begin

writeln;

writeln('---------------------------------------------------------------');

writeln('Pecahan Minimal Salah, Uang yang diambil minimal =',pecahan,' dan kelipatannya');

goto input;

end

else

if (ambiluang>=pecahan) AND (ambiluang=uangatm) then

begin

writeln;

writeln('---------------------------------------------------------------');

writeln('Saat ini sisa uang di ATM kami= ',uangATM,' silakan ulangi');

goto input;

end

else

if (ambiluang>=pecahan) AND (ambiluang>limit) then

begin

writeln;

writeln('---------------------------------------------------------------');

writeln('Anda tidak boleh mengambil uang melebihi ',limit,' per harinya');

goto input;

end

else

writeln('waktu transaksi habis');

end{b}

else

begin

writeln('Kartu ATM Anda diblokir');

writeln('dan uang tabungan Anda disumbangkan ke Panti Asuhan');

readln;

end;



end{a};

readln;

end.