program Bank

program perbankan dalam pascal

membuat transaksi perbankan sederhana, Tabung, tarik dan transfer dengan menggunakan procedure, pada menu awal ditampilkan 5 pilihan menu

1. cek saldo

2. tabung

3. tarik

4. transfer

5. keluar

saldo anda sebesar ....

uses crt;

var

 saldo,tabung,tarik,transfer,n : longint;

 pil : integer;

procedure pceksaldo();

begin

 randomize();

 saldo := random(10000000);

 n := 100000;

 writeln('saldo anda sebesar :Rp. ',saldo);

end;

procedure ptabung(tabung:longint);

begin

 writeln('saldo awal anda sebesar       :Rp. ',saldo);

 writeln('tabungan anda sebesar         :Rp. ',tabung);

 saldo := saldo + tabung;

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

 writeln('saldo akhir anda sebesar      :Rp. ',saldo);

end;

procedure ptarik(tarik:longint);

begin

 writeln('saldo awal anda sebesar       :Rp. ',saldo);

 writeln('tarikan anda sebesar          :Rp. ',tarik);

 if ((saldo-tarik)>=n) then

  begin

   saldo := saldo - tarik;

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

   writeln('saldo akhir anda sebesar    :Rp. ',saldo);

  end

 else

  begin

    writeln('saldo anda tidak mencukupi');

  end;

 end;

procedure ptransfer(transfer:longint);

begin

 writeln('saldo awal anda sebesar       :Rp. ',saldo);

 writeln('transfer sebesar              :RP. ',transfer);

 if ((saldo-transfer)>=n) then

  begin

   saldo := saldo - transfer;

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

   writeln('saldo akhir anda sebesar     :Rp. ',saldo);

  end

 else

  begin

   writeln('saldo anda tidak cukup untuk ditransfer');

  end;

   end;

begin

clrscr;

 repeat

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

 writeln('|SELAMAT DATANG DI BANK t-U|');

 writeln('|         MENU UTAMA        |');

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

 writeln();

 writeln('1. Cek Saldo');

 writeln('2. Tabung');

 writeln('3. tarik');

 writeln('4. Transfer');

 writeln('5. keluar');

 writeln;

 write('Pilihan Anda : '); readln(pil);

 case (pil) of

   1 : begin

        pceksaldo();

       end;

   2 : begin

        write('jumlah tabungan anda     :Rp. '); readln(tabung);

         ptabung(tabung);

       end;

   3 : begin

        write('jumlah tarikan anda      :Rp. '); readln(tarik);

         ptarik(tarik);

       end;

   4 : begin

        write('jumlah anda transfer     :Rp. '); readln(transfer);

         ptransfer(transfer);

       end;

   5 : begin

         writeln('Terimakasih');

       end;

 else

  writeln('Pilihan Tidak Ada ');

 end;

  writeln('press enter to continue ...');

  readln();

  until (pil=5);

end.