Program Pascal Transfer Pulsa

Program Transfer Pulsa


       Program kali ini, saya membuat sebuah program sederhana yaitu transfer pulsa. program ini bisa dijadikan simulasi untuk melakukan transfer pulsa ke sebuah nomor. No User dan Jumlah pulsa user telah di tentukan dalam program terlebih dahulu, namun No dan jumlah pulsa ini masih dapat diubah sesuai keinginan user. Postingan berikutnya saya akan membuat program yang semua sub programnya adalah procedure deh biar adil.
       Dalam program ini, semua sub program merupakan function. yah hitung-hitung teman-teman sekalian belajar gimana sih, cara menggunakan function. Function pada program ini saya menggunakan berbagai macam function, dari function tanpa parameter, parameter input, parameter output dan juga function passing by reference dan value. Nah dibawah ini listing programnya :



program P7;
uses crt;
var
b,d, pulsa : longint;
f,g,a : integer;
MyNomor,c : string;
pilih:array[1..3] of integer;

function menu: string;
         begin
         writeln ('Menu Utama Telkomsel');
         writeln ('1. Cek Pulsa');
         writeln ('2. Cek Nomor');
         writeln ('3. Transfer Pulsa');
         end;
function submenu1: string;
         begin
         writeln ('Menu Cek Pulsa');
         writeln ('1. Keluar')
         end;
function submenu2: string;
         begin
         writeln ('Menu Cek Nomor');
         writeln ('1. Keluar')
         end;
function submenu3(var pulsa, d : longint):longint;
         begin
         Pulsa:= Pulsa - d - 1500;
         end;
function submenu3_2: string;
         begin
         writeln ('Menu Transfer Pulsa');
         writeln ('1. Keluar');
         end;
function Submenu1_2(pulsa : longint): longint;
         begin
         writeln ('Sisa Pulsa Anda Sekarang Rp.',pulsa,' . Aktif sd 02/04/2018');
         end;
function Transfer_Pls (var d : longint): longint;
         begin
Ö         write ('Silahkan Memasukkan Jumlah Pulsa yg Ditransfer : '); readln(d);
         end;
function Seleksi : string;
         begin
         case pilih[a] of
  1 : begin
      clrscr;
      writeln ('Sisa Pulsa Rp.',pulsa,' Aktif sd 02/04/2018.');
      writeln ('Dapat Kuota 3GB & GARENA 25 Shell di Paket GAMESMAX.');
      readln;
      clrscr;
      submenu1;
      end;
  2 : begin
      clrscr;
      writeln ('Nomor Anda : ', MyNomor);
      writeln ('Layanan Ini dikenakan tarif Rp. 25(Termasuk PPN).');
      writeln ('Info CS: 188.');
      readln;
      clrscr;
      submenu2;
      end;
  3 : begin
      clrscr;
      write ('Silahkan Memasukkan Nomor Tujuan yg Anda Transfer Pulsa : ');
      readln (c);
      transfer_pls(d);
      writeln ('Anda akan Mengirim Pulsa ',d,' ke Nomor : ',c,' ? (Biaya Rp.1.500)');
      write ('Pilih 1. Setuju : '); readln (f);
       if f=1 then
        begin
             submenu3(Pulsa,d);
        end;
      writeln;
      submenu3_2;
      end;
  else writeln ('Masukkan Anda tidak Terdaftar');
  end;
  end;
function Aray: string;
         begin
         write ('Masukkan Pilihan Anda : '); readln (pilih[a]);
         end;
begin
clrscr;
Pulsa:=100000;
repeat
clrscr;
repeat
  MyNomor := '083139446360';
  menu;
  aray;
  seleksi;
until a <=3;
      writeln ('Masukkan pilihan Anda : '); readln(g);
until g=1;
readln;
submenu1_2(pulsa);
readln;
end.



Comments

Post a Comment

Popular posts from this blog

Program Pascal Penjualan Tiket

Image
Program Penjualan Tiket Bioskop         Nah sesuai janji saya, kali ini saya membuat sebuah program yang berisikan sub program procedure dari awal hingga akhir program tentunya, seperti program sebelumnya. Kali ini program tentang penjualan tiket bioskop. Seperti halnya program sebelumnya, kali ini saya memakai procedure tanpa parameter, parameter input dan parameter output. oh iya dalam program ini saya juga menggunakan tipe data array yah, namun array ini sebenarnya sih bisa diganti dengan variabel biasa sih. hitung-hitunglah teman-teman belajar procedure dan array sekaligus juga. Nah dibawah ini listing programnya :  program P6; uses crt; var  Nama : string;  a,b,c : longint;  ulang : char;  j: integer;  film:array[1..4] of longint; procedure Menu;           begin           writeln ('Daftar Film Tayang');           writeln ('1.     Jumanji : Welcome to the Jungle      = Rp 50.000');           writeln ('2.     Insidious : The Last Key       
Read more

Program Pascal Data Mahasiswa

Image
Program Data Mahasiswa       Sebelum menuju ke program, saya menjelaskan sedikit tentang program ini. Program ini merupakan program yang mana user akan menginput data mahasiswa kemudian akan disimpan dan ditampilkan dalam bentuk tabel sederhana.        Untuk membuka program sebaiknya menggunakan Turbopascal , karena jika teman-teman membuka program dalam freepascal maka akan terdapat kesalahan output tabelnya. Saya juga sih kurang tau kenapa program ini gak berjalan baik dalam freepascal , maklumlah belum terlalu paham sih tentang pascal. program Input_data; uses crt; type     mhs= record     nama, alamat : string [11];     fakultas, jurusan : string[9];     nim, semester, ttl : integer;     th_msk : longint;     end; const      z = #0;   c = #180; e =#192;  g=#194; m=#196; k=#217;      b = #179; d = #191; f =#193;  h=#195; j=#197; l=#218; var    nama, alamat : string [11];    fakultas, jurusan, tempat : string [9];    nim, semester, ttl, a,i,n, pilih : int
Read more

Program Pascal Piramida Bintang

Image
Program Piramida Bintang       Program kali ini, saya membuat piramida bintang. Program ini menggunakan for to do sebagai pengulangan (looping) program. Sedikit saran, untuk program kali ini dibutukan pemahaman yang agak rumit menurut saya sendiri, karena setiap for to do dalam program akan mempengaruhi for to do program yang lain. Jadi, teman-teman harus mencermati isi setiap program kali ini. Nah berikut listingnya :   program Piramid; uses crt; var    a,b,c,d : integer; begin clrscr;         a:= 5;             for b:=1 to a do              begin               for c:= a downto b do                write (' ');                 for d := 1 to b+b-1 do                  write ('*');                  writeln;              end; readln; end.
Read more