[TUTORIAL] [PASCAL] Contoh Procedure Pascal | Program Bank dan Perhitungan Bilangan

1.Buatlah sebuah kalkulator sederhana, untuk  operasi tambah, kurang, kali, bagi, kuadrat dan pangkat dengan menggunakan prosedur.

1.Kuadrat 1 parameter (x) = (5) = 25.

2.Pangkat 2 parameter (x,y) = (2,3) = 8.

              uses crt;

              var

   a, b, c, pang, pil : integer;
   yes : string;

   procedure tambah(var x,y,z:integer);
   begin
       z := x+y;
   end;

   procedure kurang(var x,y,z:integer);
   begin
       z := x-y;
   end;

   procedure kali(var x,y,z:integer);
   begin
       z := x*y;
   end;

   procedure bagi(var x,y,z:integer);
   begin
       z := x div y;
   end;

   procedure kuadrat(var x, z: integer);
   Begin
         z:= x * x;
   end;

   procedure pangkat(var x, y, z: integer);
   begin
         z:= z + (x * x);
   end;

begin
     clrscr;
     repeat
     clrscr;
     writeln('---------------');
     writeln('     Menu      ');
     writeln('---------------');
     writeln('1. Penjumlahan');
     writeln('2. Pengurangan');
     writeln('3. Perkalian');
     writeln('4. Pembagian');
     writeln('5. Kuadrat');
     writeln('6. Pangkat');
     writeln('7. Keluar');
     writeln('---------------');
     write('Masukkan pilihan anda (1-7): ');
     readln(pil);
      case pil of
      1 : begin
         clrscr;
          writeln;
          writeln('     PENJUMLAHAN      ');
          write('Angka pertama : '); readln(a);
          write('Angka kedua : '); readln(b);
          tambah(a,b,c);
          writeln(a,' + ',b,' = ',c);
          end;
      2 : begin
         clrscr;
          writeln;
          writeln('     PENGURANGAN       ');
          write('Angka pertama : '); readln(a);
          write('Angka kedua : '); readln(b);
          kurang(a,b,c);
          writeln(a,' - ',b,' = ',c);
          end;
      3 : begin
         clrscr;
          writeln;
          writeln('     PERKALIAN       ');
          write('Angka pertama : '); readln(a);
          write('Angka kedua : '); readln(b);
          kali(a,b,c);
          writeln(a,' * ',b,' = ',c);
          end;
      4 : begin
         clrscr;
          writeln;
          writeln('     PEMBAGIAN       ');
          write('Angka pertama : '); readln(a);
          write('Angka kedua : '); readln(b);
          bagi(a,b,c);
          writeln(a,' : ',b,' = ',c);
          end;
      5 : Begin
         clrscr;
         Writeln;
         Writeln('      Kuadrat         ');
          write('Masukkan angka : '); readln(a);
          kuadrat(a, c);
          writeln(a,' Kuadrat = ', c);
          end;
      6 : begin
         clrscr;
         writeln;
         writeln('      Pangkat     ');
            write('Masukkan Angka : '); readln(a);
            write('Masukkan Banyaknya Pangkat : '); readln(b);
                        pang:= b;
                        repeat
                        begin
                        pangkat(a, b, c);
                        pang:= pang - 1;
                        end;
                        until pang = 1;
            writeln('Pangkat ', b, ' dari ', a, ' = ', c);
          end;
      else
      clrscr;
      write('Keluar dari program...');
      writeln();
      readln;
      end;
      writeln('-------------------------');
      writeln('Lanjutkan (Y/N)');
      readln(yes);
      writeln('-------------------------');
      readln;
      until (yes = 'n') or (yes= 'N') or (pil = 7);

end.

 

 

 

 

2.Buatlah Transaksi perbankan sederhana : Tabung, Tarik dan Transfer dengan menggunakan prosedur. Pada menu awal ditampilkan 3 pilihan menu:

1.Tabung

2.Tarik

3.Transfer

Saldo anda saat ini Rp…

 

uses crt;
var
 menu  : integer;
 sm : longint;
 saldo   : longint;
 setoran : longint;
 tarikan : longint;
 transfer : longint;
 yes : string;

procedure cek ();
        begin
         writeln ('Saldo anda sebesar : RP. ', saldo);
        end;

procedure setor (tunai: longint);
        begin
         writeln ('Saldo Awal anda sebesar : Rp. ',saldo);
         writeln ('Setoran anda sebesar    : Rp. ',tunai);
         saldo := saldo + tunai;
         writeln ('--------------------------------------------------+');
         writeln ('Saldo Akhir anda sebesar: Rp. ',saldo);
        end;

procedure tarik (t: longint);
        begin
         writeln ('Saldo awal anda sebesar : Rp. ',saldo);
         writeln ('Tarikan anda sebesar    : Rp. ',t);
                if ((saldo-t) >= sm) then
                    begin
                     saldo := saldo - t;
                     writeln ();
                     writeln ('Saldo akhir anda sebesar : Rp. ',saldo);
                    end
                else
                    begin
                     writeln ('Saldo anda tidak mencukupi');
                    end;
        end;

procedure transf (t: longint);
         begin
          writeln('Saldo awal anda sebesar : Rp. ', saldo);
          writeln('Anda transfer sebesar : Rp. ', transfer);
          t:= saldo - transfer;

          writeln('Saldo akhir anda sebesar : Rp. ', t);
         end;

begin
clrscr;
randomize;
saldo := random (1000000);
sm    := 100000;

repeat
clrscr;
  writeln ('V-Bank');
  writeln ('MENU UTAMA :');
  writeln ('1. Cek Saldo');
  writeln ('2. Menabung ');
  writeln ('3. Tarik tunai ');
  writeln ('4. Transfer ');
  writeln ('5. Keluar ');
  writeln ('Pilihan anda : '); readln(menu);

  case menu of
  1 : begin
     clrscr;
        cek();
      end;
  2 : begin
       clrscr;
        write ('Jumlah setoran : Rp. '); readln(setoran);
        setor(setoran);
      end;
  3 : begin
       clrscr;
        write ('Jumlah tarikan : Rp. '); readln(tarikan);
        tarik(tarikan);
      end;
  4 : begin
       clrscr;
        write ('Jumlah yang ingin di transfer : Rp. '); readln(transfer);
        transf(transfer);
      end;
  5 : begin
       clrscr;
        writeln('             Terimakasih');
        writeln ('V-Bank, Uang nya masa depan anda');
      end;
  end;
    readln;
    clrscr;

writeln('Lanjutkan (Y/N)');
      readln(yes);
      writeln('-------------------------');
      readln;
      until (yes = 'n') or (yes= 'N') or (menu=5);
      writeln('           Terimakasih');
      write('V-Bank, Uang nya masa depan anda');
      readln;
end.

 

Read More >>