Program ATM Pada PASCAL

    Kali ini ane bakal memposting sintaks ATM pada program pascal yang kebetulan menjadi tugas besar ane di striktur data. Heheh ... sory agak curhat dikit OK langsung saja Berikut contoh sintaks-nya

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.