PROGRAM ATM STANDAR DENGAN PASCAL

SELAMAT MEMBACA TUTORIALKU INI . . .Okay Semuanya. . .

langsung saja yahh buat para calon programmer pemula seperti saya... wkwkwkwkw

kali ini saya akan memposting contoh program sederhana ATM yang menggunbkan bahasa Pascal...

 memang pascal adalah bahasa pemrograman yang udah tua banget, tapii dengan adanya pascal kita bisa melatihh menguatkan loggika kita dalam membuat suatu program lanjutan seperti di vb, delphi dan yang lainnya. . .

Okay mas n mba brow, ini listingnya yang saya buat semalaman. . . 

program buat_atm;

uses wincrt;

label a,b,c,d,e,f,g,h,k;

var

   ma: string;

   t: char;

   pil,pin: byte;

   uang,ing,i: longint;

  

begin

gotoxy(16,2);writeln('SELAMAT DATANG DI PROGRAM ATM');

GOTOXY(16,3);WRITELN('   MANAJEMEN INFORMATIKA    ');

writeln('==========================================================');

writeln;

write('Inputkan Huruf Y Untuk Menggunkan Program ATM Ini : ');readln(t);

if (t='y') or (t='Y') then

goto a

else

writeln;

h:

clrscr;

writeln('Saldos What You Have Is Rp. 134.800.000,00');

writeln('*************************************************');

write('Ingin Transaksi Lagi Y/T : ');readln(t);

 IF (t='Y') or (t='y') then

 goto a

 else

 writeln;

k:

clrscr;

writeln('Saldo Yang Anda Miliki Adalah Rp. 30.000.800,00');

writeln('*************************************************');

write('Ingin Transaksi Lagi Y/T : ');readln(t);

 IF (t='Y') or (t='y') then

 goto a

 else

 writeln;

g:

 clrscr;

 gotoxy(12,2);writeln('MENTION YOUR TOTAL WAHAT WILL YOU TAKE');

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

  write('MENTION MONEY TOTAL WHAT WILL TAKE : ');readln(uang);

  for i:= 10000 to uang do write(i:5);

  clrscr;

  gotoxy(12,2);writeln('    Please Take Your Money');

  gotoxy(12,3);writeln('Thank You Has Used Our Service');

 writeln;

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

 write('Want To Transaction Again Y/T : ');readln(t);

 IF (t='Y') or (t='y') then

 goto a

 else

 writeln;

f:

 clrscr;

 gotoxy(12,2);writeln('       Please Wait a Few Minute!');

 gotoxy(12,3);writeln('Please Take Your Money. Thank You ^_^');

 writeln;

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

 write('Want To Transaction Again Y/T : ');readln(t);

 IF (t='Y') or (t='y') then

 goto a

 else

 writeln;

 e:

 clrscr;

 gotoxy(12,2);writeln('      Mohon Tunggu Beberapa Menit!');

 gotoxy(12,3);writeln('Silahkan Ambil Uang Anda . Terima Kasih ^_^');

 writeln;

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

 write('Ingin Transaksi Lagi Y/T : ');readln(t);

 IF (t='Y') or (t='y') then

 goto a

 else

 writeln;

 d:

 clrscr;

 gotoxy(12,2);writeln('MASUKKAN JUMLAH UANG YANG ANDA AKAN AMBIL');

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

  write('Masukkan Jumlah Uang Yang Akan Diambil : ');readln(uang);

  for i:= 10000 to uang do write(i:5);

  clrscr;

  gotoxy(12,2);writeln('          Silahkan Ambil Uang Anda');

  gotoxy(12,3);writeln('Terima kasih Telah Menggunakan Layanan Kami');

 writeln;

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

 write('Ingin Transaksi Lagi Y/T : ');readln(t);

 IF (t='Y') or (t='y') then

 goto a

 else

 writeln;

 c:

 begin

 clrscr;

 gotoxy(12,2);writeln('PLEASE CHOOSE THESE ITEM');

 writeln('=================================================');

 writeln;

 writeln('1. Rp. 100.000'); gotoxy(22,5);writeln('7. Your Saldo');

 writeln('2. Rp. 200.000'); gotoxy(22,6);writeln('8. Other Transaction');

 writeln('3. Rp. 250.000');

 writeln('4. Rp. 1.000.000');

 writeln('5. Rp. 2.000.000');

 writeln('6. Rp. 3.000.000');

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

 writeln;

 write('PLEASE INPUT YOUR CHOOSE  1/2/3/4/5/6 : ');readln(ing);

 if (ing=1) or (ing=2) or (ing=3)or (ing=4) or (ing=5) or (ing=6) then

 goto f

 else

 if ing= 8 then

 goto g

 else

 if ing= 7 then

 goto h

 end;

  b:

 begin

 clrscr;

 gotoxy(12,2);writeln('SILAHKAN MASUKKAN PILIHAN ANDA');

 writeln('=================================================');

 writeln;

 writeln('1. Rp. 100.000'); gotoxy(22,5);writeln('7. Info Saldo Anda');

 writeln('2. Rp. 200.000'); gotoxy(22,6);writeln('8. Transaksi Lain');

 writeln('3. Rp. 250.000');

 writeln('4. Rp. 1.000.000');

 writeln('5. Rp. 2.000.000');

 writeln('6. Rp. 3.000.000');

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

 writeln;

 write('Silahkan Input Pilihan Anda  1/2/3/4/5/6 : ');readln(uang);

 if (uang=1) or (uang=2) or (uang=3)or (uang=4) or (uang=5) or (uang=6) then

 goto e

 else

 if uang=8 then

 goto d

 else

 if uang= 7 then

 goto k

 end;

 a:

  clrscr;

       gotoxy(12,2);writeln('.....SELAMAT DATANG DI.....');

       gotoxy(12,3);writeln('....ATM BANK BRI KENDARI....');

       WRITELN('***************************************************************');

       writeln;

       write('MASUKKAN KARTU ATM ANDA  ');readln(ma);

       clrscr;

       gotoxy(12,2);writeln('---------MASUKKAN PIN ATM ANDA--------- ');

       gotoxy(12,3);writeln('------------YOUR ATM"S PIN--------------');

       writeln('*****************************************************************');

       write('PIN ANDA    : ');readln(pin);

 clrscr;

 gotoxy(12,2);writeln('SILAHKAN PILIH BAHASA YANG INGIN ANDA GUNAKAN');

 Gotoxy(12,3);writeln('             CHOOSE YOUR LANGUAGE ');

 writeln('===========================================================');

 writeln;

 writeln('1. Bahasa Indonesia');

 writeln('2. English Language');

 writeln('===========================');

 writeln;

 write('Masukkan Pilihan Anda  1 / 2 : ');readln(pil);

 if pil = 1 then

 goto b

 else

 if pil= 2 then

 goto c

 end.      

Semoga bermanfaat ki'nah. . . . .