Rabu, 18 Mei 2016

MEMBUAT WEB PEMBELIAN TIKET BUS ONLINE SEDERHANA

judul

Selamat Malam Gan dan Sis semuanya, berjumpa lagi dengan saya, berkebetulan saya membuat postingan ini pada malam hari heheheee...., disini saya akan berbagi cara bagaimana membuat web pembelian Tiket Bus Online walau pun itu sederhana bangetsss.... , tapi gak apalah namanya juga belajar yakaaann..?.

baiklah dari pada banyak bicara langsung saja kita melihat-lihat dibawah tampilannya web nya.
untuk melihat codingnya bisa langsung klik di bawah ini.


TIKET BUS ONLINE

www.TiketBusOnline.com
NO TIKET : FOTO
TANGGAL BERANGKAT :
KODE :
NAMA PENUMPANG :
ALAMAT :
TELP :
JAM : BERANGKAT
TIBA
TUJUAN :
NO. KURSI :


Semoga postingan saya ini dapat bermanfaat dan membantu Agan dan Sis semuanya.

Terima kasih Telah berkunjung.

Minggu, 15 Mei 2016

QUIS


SOAL QUIS  :

Buatlah output program Menghitung Gaji Pegawai seperti tampilan dibawah ini Menggunakan Bahasa Pascal :

                                     MENGHITUNG GAJI PEGAWAI 

===============================================================
Nik                   :
Nama               :
Golongan         :
Gaji Pokok       :
Pajak                :
Gaji Bersih       :



   Dengan ketentuan proses sebagai berikut :

  •  Nik,Golongan input
  • Proses Nama Pegawai

          Jika Nik = 1 maka
                 Nama Pegawai = “Hendro”
          Jika Nik = 2 maka
                Nama Pegawai = “Dian”
          Jika Nik = 3 maka
                Nama Pegawai = “Jhoni”
  • Proses Gaji Pegawai


           Jika Gol = 1 maka
                Gaji Pokok = 1500000
           Jika Gol = 2 maka
                Gaji Pokok = 2500000
           Jika Gol = 3 maka
                 Gaji Pokok = 3500000
  • Pajak = 0.05 * Gaji Pokok
  • Gaji Bersih = Gaji Pokok – Pajak




 JAWABAN QUIS  : 



Uses crt ;
Var      gp : longint;
             n : string[25];
            gol,nik : byte;
            p,gb : real;
Begin
     Clrscr;
     Writeln('                             MENGHITUNG GAJI PEGAWAI');
     Writeln('                        +++---------------------------+++');
     Writeln;
     Write('NIK PEGAWAI    : '); Readln(nik);
     begin
     if nik = 1 then n:='Hendro'
     else if nik = 2 then n:='Dian'
     else if nik = 3 then n:='Jhoni'
     end;
     Write('NAMA           : ',n);
     Writeln;
     Write('GOLONGAN       : '); Readln(gol);
     begin
     if gol= 1 then gp := 1500000
     else if gol= 2 then gp := 2500000
     else if gol= 3 then gp := 3500000;
     end;
     Write('GAJI POKOK     : ',gp);
     Writeln;
     p:=(0.05 * gp);
     write('PAJAK          : ',p : 3 : 2);
     gb:= gp - p;
     writeln;
     Write('GAJI BERSIH    : ',gb:3:2);
     readln;

END.


Tampilan Program :



 
Design by Blogger Indonesia | Bloggerized by Jepri Tarigan