Tips mendapatkan uang di blog

Mendapatkan uang dengan mudah adalah impian setiap orang dan impian juga bagi saya
Perlu kita ketahui bahwa uang adalah sumber kehidupan manusia pada jaman ini, karena setiap orang pasti membutuhkan uang untuk kelangsungan hidupnya, dengan uang kita dapat membeli apapun yang kita mau dan dengan uang juga kita dapat terjerumus kedalam dosa sepeti mabuk-mabukan dan yang lainnya.
Walapun begitu kita tetap harus berusaha mendapatkan uang untuk hidup kita, kali ini saya ingin membagikan informasi tentang cara mudah mendapatkan uang di internet / blog  dengan Google Adsense

Ketika Anda memulai blog anda, impian anda adalah untuk membangun sumber pendapatan yang konsisten pasif pada saat Anda melakukan pekerjaan favorit anda seperti memancing, bepergian, dan semua hal yang menyenangkan untuk sebagian besar blogger di luar sana. apakah saya benar?

Sekarang mari kita lihat pada 6 langkah untuk generasi pendapatan iklan.

1. Berikanlah Kualitas Konten Yang Tepat Untuk Situs Anda

Jika kualitas konten blog anda bagus maka pengunjung akan menyenangi blog anda dan anda cukup berbicara, pengiklan hanya akan membayar anda untuk iklan jika itu membantu mereka menghasilkan uang. Ini adalah satu-satunya alasan yang tepat sekarang banyak blog baru datang di ponsel

Saya punya seorang teman yang ahli benar pada tata bahasa Inggris. Dia telah mengembangkan website secara utuh sekitar penggunaan tata bahasa yang benar.
Dia membuat satu blog yang berisi tentang artikel-artikel dengan bahasa inggris dan semua memiliki kualitas yang bagus dimata pembaca dan search engine, sehingga ia memiliki traffik yang banyak pada blognya setiap harinya dan dengan jumlah pengunjung yang banyak tentunya membuat penghasilan juga semakin banyak
Lalu, apakah saya juga harus belajar gramatikal untuk membuat tata bahasa inggris saya benar dan saya membuat blog bahasa inggris ? tidak jawab saya.

Anda tidak perlu berbahasa inggris untuk menghasilkan uang lewat internet , cukup punya keyakinan dan semangat untuk membuat sebuah blog yang benar dan berkualitas 

2. Optimalkan Konten Anda Pada Kata Kunci Dengan Jumlah Pencari Yang Banyak

Dengan asumsi bahwa Anda punya langkah 1 di bawah kendali, sekarang pindah untuk mengoptimalkan konten Anda di jumlah pencari tinggi tiap kata kunci. Anda dapat menggunakan Google AdWords Keyword Tool untuk mengetahui apa kata kunci mendapatkan jumlah pengunjung tertinggi dalam niche Anda.

Anda mengoptimalkan konten Anda dalam dua cara utama.

• Kata kunci yang fokus. Pilih dua atau tiga lusin kata kunci dengan jumlah pencari tertinggi dalam industri atau niche. Kemudian menulis konten tentang topik ini.
• Penempatan kata kunci. Letakan kata kunci yang anda bidik pada :
• Judul tag
• Subpos
• Alt tag untuk gambar
• Nama file untuk gambar dan halaman web
• Dalam hypertext terkait kata-kata dan frase.
• Dalam paragraf pertama dan terakhir

Ini tidak cukup untuk memiliki konten yang besar. Anda akan ingin memfokuskan upaya Anda pada topik yang paling menguntungkan, dan kemudian memastikan konten Anda diindeks dengan benar oleh search engine untuk kata kunci menguntungkan.

3. Menghasilkan Banyak Dari Lalu Lintas Untuk Situs Anda

Mungkin ini dapat berjalan baik tanpa kita apa-apakan, tapi kecuali Anda memiliki banyak dan banyak trafik ke situs Anda, Anda tidak akan membuat banyak iklan jual uang. Bagaimana Anda mendapatkan trafik? Ini adalah topik yang kompleks, tetapi terutama tiga cara:

1. Tingkatkan posisi blog anda di search engine. Dapatkan peringkat yang bagus pada mesin pencari untuk kata kunci Anda. 
2. Backlink. Dapatkan backlink dan rekomendasi ke website Anda dari situs lain, blog, media sosial, direktori, dll
3. Anda juga bisa memasang iklan berbayar pada google dan blogger indonesia lainnya

Untuk menganalisa perkembangan trafik blog anda, anda bisa menggunakan Counter Histats, dan google analitycs

4. Tentukan Apa Jenis Iklan Apakah Yang Tepat Untuk Niche Anda

Jika Anda mengejar strategi pendapatan iklan untuk situs Anda, Anda akan memiliki melakukan banyak melihat website kompetisi untuk melihat apa yang membuat mereka baik - dan untuk menentukan bagaimana Anda dapat menjadi lebih baik.

Jenis dan Ukuran Advertising. Apakah sebagian besar periklanan dalam industri iklan teks Google atau iklan gambar ? Jika tampilan iklan yang populer, apa ukuran paling sering muncul?

Pada 28 Februari 2011, Biro Iklan Internet (IAB) memberikan daftar tujuh unit iklan standar (dimensi dalam piksel berada di dalam kurung):

1. Medium Rectangle (300 x 250)
2. Rectangle (180 x 150)
3. Leaderboard (728 x 90)
4. Skyscraper (160 x 600)
5. Setengah Halaman Iklan (300 x 600)
6. Tombol 2 (120 x 60)
7. Microbar (88 x 31)

Satu ukuran yang ditunjukkan sebagai "delisted" adalah Banner penuh (468 x 60). Anda masih akan melihat ini secara luas di Internet, tetapi tidak pada situs yang berusaha untuk menjual ruang iklan.

5. Desain Halaman Web Anda Khusus Template Untuk Iklan

Jika anda ingin merancang blog anda dengan template khusus yang menempatkan iklan pada letak yang strategis. Berhati-hatilah untuk tidak begitu membebani Template halaman web Anda sehingga terlihat berantakan dan berat ( loading yang lama )

Jangan serakah.

Beberapa iklan yang dirancang untuk cocok dengan baik pada halaman Web Anda akan mencapai penampilan profesional tanpa terlihat berlebihan. Dan hanya iklan yang paling menonjol akan mendapatkan banyak klik

Biasanya, orang yang frontal dalam iklan adsense pada blog akan menampilkan leaderboard (728 × 90) di bagian atas, dengan ukuran iklan lain sepanjang sisi kanan halaman atau bisa dibilang akan bertabrakan dengan penglihatan pengunjung.

Iklan Google AdSense dapat ditempatkan di manapun pada halaman. Tapi terlalu sering mereka cenderung mengacaukan situs dan membuat lebih sulit bagi pembaca untuk mendapatkan informasi yang mereka inginkan. Jadilah bijaksana dan perhatikan juga kenyamanan pengunjung

6. Pertimbangkan Google AdSense Teks Dan Tampilan Iklan

Google adalah perusahaan periklanan terbesar di Internet. Iklan AdWords yang muncul pada hasil pencarian menghasilkan sejumlah besar pendapatan bagi perusahaan. Tapi Anda dapat menempatkan iklan Google AdSense di situs web Anda sendiri. Untuk mempelajari lebih lanjut, lihat https://www.google.com/adsense/

Keuntungan dari iklan AdSense adalah bahwa Google berusaha keras untuk hanya menampilkan iklan yang relevan dengan kata kunci pada halaman web Anda. Dan, mereka memiliki jutaan pengiklan, banyak dari mereka yang menemukan hasil yang baik iklan di situs seperti milik anda. Anda tidak harus mencari pengiklan untuk membuat blog anda memiliki penghasilan. Google sudah berbaik hati menyediakan pengiklan untuk anda. Dan Google tampaknya akan membayar anda dengan separuh penghasilan mereka, misal :
Google menerima bayaran Rp.5.000 perklik, kita akan mendapatkan bayaran Rp.2500 atau setengah dari penghasilan mereka

Ini bisa menjadi solusi ideal untuk banyak situs usaha kecil. Karena iklan yang ditargetkan sesuai dengan konten Anda,
Bottom-Line: Pilihan terbaik adalah menampilkan semua jenis iklan di situs Anda dan biarkan google memutuskan mana yang lebih baik pada waktu itu untuk menampilkan iklan di posisi itu

Chitika eMiniMalls

hitika termasuk program pay per click (PPC) seperti halnya Google Adsense, yang dapat memberikan potensi penghasilan (earning) yang menarik. Program utama yang dimiliki oleh Chitika biasa disebut Chitika eMiniMalls.

Satu hal yang paling menarik Chitika ini adalah, meskipun sama-sama berupa Contextual Ads, tapi Chitika boleh disandingkan bersama dengan Google Adsense tanpa melanggar kebijakan Adsense, ini tentunya sangat menguntungkan kita sebagai publisher. Karena dapat meningkatkan penghasilan dari blog / situs yang kita miliki.

www.chitika.com

Beberapa fitur unggulan yang dimiliki ditawarkan oleh Chitika adalah:

Search Targetted Ads. Ini memastikan bahwa iklan yang muncul adalah iklan yang benar-benar tertarik dengan konten blog / situs kita. Tentu saja dengan iklan yang relevan, akan memberikan tingkat penghasilan yang lebih tinggi dibanding dengan iklan yang tidak relevan.

Local Ads. Yaitu akan menampilkan iklan sesuai dengan lokasi pengunjung blog.

Mobile Ads. Menampilkan iklan yang sesuai untuk format mobile, sehingga meski blog kita dikunjungi melalui perangkat mobile, kita tidak kehilangan kesempatan untuk mendapat penghasilan.

Program Referral. Penghasilan akan semakin bertambah dengan program referral ini, kita akan mendapatkan 10% dari pendapatan referral kita. Lumayan bukan? Ini yang dimiliki oleh Google Adsense. 

Batas minimal pay out hanya $10. Berbeda dengan Adsense yang harus menunggu sampai $100 baru kita bisa pay out, di Chitika cukup $10 saja, kita sudah dapat menerima pembayarannya. Dan lebih asyiknya lagi, Chitika telah mendukung PayPal untuk pembayarannya.

Itulah beberapa kelebihan Chitika, meski masih kalah pamor dari Google Adsense, tapi Chitika menurut saya adalah salah satu alternatif terbaik setelah Adsense, apalagi Chitka bisa dipasang bersama-sama dengan Adsense, tentu itu merupakan sebuah keuntungan tersendiri bagi kita.

Bagaimana? Sudah berminat? Silakan anda bisa mendaftar di sini. Sukses buat kita semua.

Pascal (pendaftaran mahasiswa baru)

Program ini untuk menginputkan data pendaftaran mahasiswa baru dengan ketentuan sebagai berikut

1. Nomor, nama, tempat & tanggal lahir, asal sekolah, biaya pendaftaran, dan uang bangunan di inputkan.
2. Total pembayaran otomatis ( uang bangunan + biaya pendaftaran )
3. Tanggal maximal pada bulan ke 1,3,5,7,8,10,12 adalah 31, jika lebih program harus mengalami ERROR.
4. Tanggal maximal pada bulan ke 4,6,9,11 adalah 30, jika lebih program harus mengalami ERROR.
5. Tanggal maximal pada bulan ke 2 adalah 28 or 29, jika lebih program harus mengalami ERROR.
6. Jika bulan di isi lebih dari 12, maka program harus mengalami ERROR.
7. Tahun lahir minimal yang dapat mendaftar yaitu tahun >= 1995.

Langsng saja ini sourch codenya :

program m_baru;
uses wincrt;
var
nm,as,t:string;
d,m,y:integer;
no:integer;
tot,bp,ug:longint;
begin
write (' nomor             : '); readln (no);
write (' nama              : '); readln (nm);
write (' Tempat Lahir      : '); readln(t);
write (' tanggal lahir     : '); readln (d,m,y);
 case m of
     1,3,5,7,8,10,12:begin
                       if (d>31) then
                            begin
                            writeln('Tanggal salah');
                            readkey;
                            donewincrt;
                  end;
                  end;
     4,6,9,11:begin
                   if (d>30) then
                      begin
                      writeln('Tanggal salah');
                      readkey;
                      donewincrt;
                  end;
              end;
     2:begin
            if (y mod 4=0) then
            begin
                 if (d>29) then
                 begin
                      writeln('Tanggal salah');
                      readkey;
                      donewincrt;
                  end
            else
            begin
            if (d>28) then
             writeln('Tanggal salah')
             end;
       end;
     END;
     end;
     if ( m > 12) then
        begin
             writeln(' Bulan salah!');
             readkey;
             donewincrt;
        end
     else if (y >= 1995) then
            begin
            writeln('Tahun salah!');
            readkey;
            donewincrt;
     end;
     
write ('asal sekolah       : ');readln (as);
write ('biaya pendaftaran  : ');readln (bp);
write ('uang gedung        : ');readln (ug);
writeln;
tot:=(bp+ug);
writeln ('total              : ',tot)
end.

Dan dari sourch code tersebut, berikut layout yang d hasilkan :

Perbandingan asemblay

.MODEL SMALL
.CODE
ORG 100h
Tdata :    JMP Proses
    BilA DB 4
    BilB DB 50
    Kal0 DB 'Bilangan A lebih kecil dari bilangan B $'
    Kal1 DB 'Bilangan A sama dengan bilangan B $'
    Kal2 DB 'Bilangan A lebih besar dari bilangan B $'
Proses :
    MOV AL, BilA    ; Masukkan bilangan A pada AL
    CMP AL, BilB    ; Bandingkan AL(BilA) dengan bilangan B
    JB Akecil        ; Jika BilA < BilB, lompat ke Akecil
    JE Sama        ; Jika BilA = BilB, lompat ke Sama
    JA Abesar    ; Jika BilA > BilB, lompat ke Abesar Akecil :
    LEA DX, Kal0    ; Ambil offset Kal0
    JMP Cetak    ; Lompat ke cetak
Sama :
    LEA DX, Kal1    ; Ambil offset Kal1
    JMP Cetak    ; Lompat ke cetak Abesar :
    LEA DX, Kal2    ; Ambil offset Kal2
Akecil :   
    LEA DX, Kal0;
    JMP cetak;
    LEA DX, Kal1;
Abesar :
    LEA DX, Kal2;
    JMP cetak;
    LEA DX, Kal0;
Cetak :
    MOV AH, 09    ; Servis untuk mencetak kalimat
    INT 21h        ; Cetak kalimat !!
EXIT:    INT 20h        ; Kembali ke DOS.
END TData

PASCAL PENJUALAN

1.PENJULAN SEDERHANA
 program penjualan;
uses wincrt;
var b            :string  ;
    h,y,u,by,tb:real  ;
    lagi          :char    ;
begin
writeln('Toko "laris manis"');
Writeln('------------------');
tb:=0;
Lagi:='Y';
while lagi='Y' do
begin
write('barang:');readln(b);
write('Harga:');readln(h);
write('Unit:');readln(u);
by:=H*u;
writeln('Bayar:',by:0:0);
writeln('coba lagi(Y/T);');readln(Lagi);
writeln;
writeln;
tb:=tb+by;
end;
writeln('total bayar:',tb:0:0);
end.
2.PENJUALAN BARANG
program data_penjualan_barang;
uses wincrt;
     const Nmaks=100;

     type barang=record
          kode:string[10];
          nama:string[35];
          banyak:integer;
          harga:integer;
          total:integer;
     end;

     type nilai=array[1..Nmaks] of barang;

var
   M:nilai;
   N:integer; {banyaknya barang}
   i:integer; {indeks larik}
   total:real;

begin
     clrscr;
     {inisialisasi larik}
     for i:=1 to Nmaks do
     begin
      M[i].kode:=' ';
      M[i].nama:=' ';
      M[i].banyak:=0;
      M[i].harga:=0;
      M[i].total:=0;
     end;
     write('Banyaknya Barang : '); readln(N);
     for i:=1 to N do
     begin
          writeln('Barang Ke-',i,' dari ',N);
          write('Kode Barang : '); readln(M[i].kode);
          write('Nama Barang : '); readln(M[i].nama);
          write('Banyak Barang : '); readln(M[i].banyak);
          write('Harga Satuan : '); readln(M[i].harga);
          M[i].total:=M[i].harga*M[i].banyak;  
          total:=total+M[i].total;
          writeln('total : ',M[i].total);
      end;

      {cetak isi larik}
      clrscr;
      writeln('                     DATA PENJUALAN BARANG                        ');
      writeln('==================================================================');
writeln('No | KodeBarang | NamaBarang | BanyakBarang | HargaSatuan | Total |');
      writeln('==================================================================');
      for i:=1 to N do
      begin
     writeln ( i,'     ',M[i].kode,'          ',M[i].nama,'          ',M[i].banyak,'         ',M[i].harga,'      ',M[i].total);
      end;
      writeln('==================================================================');
      writeln('Total Pembayaran: Rp',total:3:2);
      readln;
end.

3.PENJUALAN TOKO BUKU
program penjulan;
uses wincrt;
var napem,nb:string[15] ;
    hrg,jb,jh,disc,tot:real;
begin
clrscr;
writeln;
writeln('----------------------------------------');
writeln(' DATA PENJUALAN TOKO BUKU');
writeln('----------------------------------------');
writeln;
write('NAMA PEMBELI     =  '); readln(napem);
writeln;
write('BARANG YANG DI BELI =  '); readln(nb);
writeln('.............................');
if nb='BUKU' then hrg:=12000 else
if nb='TAS' then hrg:=70000 else
if nb='SEPATU' then hrg:=50000 else
if nb='PENSIL' then hrg:=1000;
begin
end;
writeln;
write('HARGA       =','Rp',hrg:6:0,'LUSIN');
writeln;
writeln;
write('JUMLAH BELI      =  '); readln(jb);
writeln;
jh:= hrg*jb;
write('JUMLAH HARGA     =','Rp',jh:10:0);
writeln;
writeln('.............................');
writeln;
if jb > 3 then disc:=0.2*jh;
begin
end;
write('ANDA DAPAT DISKON=','Rp',disc:40:0);
writeln;
writeln('.............................');
writeln;
writeln;
write('Total Bayar      =','Rp',hrg*jb-disc:10:0);
writeln;
writeln('----------------------------------------');writeln;
write('Terimakasih dan Tekan Enter');
readln;
end.
4.PROGRAM PENJUALAN
program k;
uses wincrt ;
var kd:char;
nama:string; jml,diskon,harga:real;
begin
write('kode:');readln(kd);
write('jumlah:');readln(jml);
if (kd='aa') then begin
writeln('nama :buku'); harga:=10000; diskon:=0; end else
if (kd='bb') then begin
writeln('nama :tas'); harga:=60000; diskon:=5; end else
if (kd='cc') then begin
writeln('nama :sepatu'); harga:=70000; diskon:=10; end;
writeln('harga:',harga:0:2); writeln('diskon:',diskon:0:2,'%');
end.

Array CPP

array
adalah kumpulan data yang bertipe sama yang menggunakan nama yang sama (penggulagan)

1.PENCARIAN ELMEN
#include
#include
void main()
{
int data[10];
int elmen;
clrscr();
for (elmen=0;elmen<=9;elmen++)
{
cout<<"data ke -"< cin>>data [elmen];
}
for (elmen=0;elmen<=9;elmen++)
{
cout<<"data ke -"< }
getch();

}

2.MENCARI NILA YANG DI INPUTKAN

#include
#include
void main()
{
int data[5]={4,1,0,-9,8};
int elemen;
clrscr();
for (elemen=0;elemen<=4;elemen++)
{
cout <<"\n data ke -"< }
getch();
}

3.MENCARI NILAI DI ARRAY

#include
#include
void main()
{
int data[10]={4,1,0,-9,8,5,-1,2,3,-7};
int elemen,ketemu,x;
cout <<"data yang di cari:";
cin>> x;
ketemu=0;

for (elemen=0;elemen<=4;elemen++)
{
if (data [elemen]==x)
{
ketemu=!ketemu;
break;
}
}
if(ketemu==0 )cout <<"data tidak di temukan";
else cout <<"data ada di elemen :"<
getch();
}

4.DUA DI MENSI
#include
#include
void main()
{
int j,k;
int data[5][3]=
{
{3,4,-1},
{2,3,0},
{1,1,2},
{5,9,-4},
{6,6,2},
};
for (j=0;j<4 br="" j="">
{
for (k=0; k<2 br="" k=""> cout<<"data ["< }
getch();
}

PROGRAM PENGGAJIAN KARYAWAN

PROGRAM PENGGAJIAN KARYAWAN MENGGUNAKAN PROCEDURE DAN IF

Untuk memenuhi salah satu tugas mata kuliah

Struktur Data

KELOMPOK 2

NAMA ANGGOTA:

1.      Ade Sutrisna             9. Sri Sulastri

2.      Agung Ismail                        10. Risa Dwi Syawitri

3.      Agus Setiawan         11. Sansan Munawar

4.      Arianti salama         12. M. Yoga Sukma Jati

5.      Deden Ramdan       13. Maulana Hidayat

6.      Ernt Dewi Ratna K   14. Syahrul

7.      Hani Nurmila Ulfah 15. Melda Feroliya

8.      Shenny Yunita R

      KELAS : A

STMIK TASIKMALAYA

Jl. R.E Martadinata No. 272 A Tasikmalaya

1.     Pengertian Procedure Dan IF

Proseduradalah subprogram yang menerimamasukantetapitidakmempunyaikeluaransecaralangsung. Cara mendeklarasikansebuahproseduradalahsebagaiberikut :

procedure A; { namaproseduradalah A }

begin{ statement }

end;

1.1 Pengertian
If = Jika
Then = Maka
Else = Lainnya

Dalampemrogramanpascal, fungsi IF, Then, dan Else tidakdapatberdirisendiri-sendiri, merekasalingberkaitansatusamalainnya.

Soal :Jika A > =  60, makatulis 'Kompeten'
         Jika A < 60, makatulis 'TidakKompeten'

Ketentuan :

Hitung gaji karyawan dengan data yang diketahui: NIP,Nama,Tempat Lahir, Tanggal Lahir, Golongan , Status, Jumlah Anak, dan Gaji Poko. Di dapat berdasarkan Golongan sbb:

—  Gol 1=2.000.000

—  Gol 2=1.500.000

—  Gol 3=1.000.000

—  Gol4=800.000

Dan mendapat tunjangan kawin 3% dari gaji pokok, dan Tunjangan anak 10% anak Max 3.

2.  Program Menghitung Gaji Karyawan Menggunakan IF

program hitung_gaji;

Uses wincrt;

Var nama:string[20];jabatan:string;

Gaji:longint;

Tunj,ppn,Total,gajibersih:real;

Begin

Clrscr;

Write( 'Nama Karyawan     : '); readln(nama);

Write('Masukkan Jabatan  : '); readln(jabatan);

If  (jabatan='Direktur') or (jabatan='direktur') then

     Begin

 Gaji:=4000000;

 Tunj:=0.1* gaji;

     End

Else If  (jabatan='Manager') or (jabatan='manager') then

     Begin

 Gaji:=3000000;

 Tunj:=0.01* gaji;

     End

Else If  (jabatan='Supervisor') or (jabatan='supervisor') then

     Begin

 Gaji:=2000000;

 Tunj:=0.1* gaji;

     End

Else If  (jabatan='Karyawan') or (jabatan='karyawan') then

     Begin

 Gaji:=1000000;

 Tunj:=0.1* gaji;

     End

Else

     Begin

 Gaji:=800000;

 Tunj:=0.1* gaji;

     End;

Writeln('Gaji Bersih        : Rp.',gaji);

Writeln('Tunjangan Jabatan  : Rp.',tunj:9:2);

Ppn:=0.2*gaji;

Writeln('PPN 10 %           : Rp.',ppn:9:2);

Total:=gaji+total;

Writeln('Total Gaji         : Rp.',total:9:2);

Readln;

End.

FLOWCHART IF

1. PROSEDURE

Program Menghitung Gaji Karyawan Menggunakan Procedure

program gaji_pegawai;

uses wincrt;

var

nm,jab,sts,tmplhr:string;

gaji,tunjank,gatot,anak,tunjkwn,nip:real;

d,m,y:integer;

procedure dir;

begin

write  ('Status Perkawinan    (N/B] : '); readln(sts);

if sts = 'N' then

begin

write  ('Masukkan Jumlah Anak       : '); readln(anak);

gaji:=2000000;

if anak>=3 then

tunjank:=3*(0.1*gaji)

else

tunjank:=anak*(0.1*gaji);

tunjkwn:=gaji*0.03;

gatot:=gaji+tunjank+tunjkwn;

writeln('Gaji Pokok                 : ',gaji:0:0);

writeln('Tunjangan Nikah            : ',tunjkwn:0:0);

writeln('Tunjangan Anak             : ',tunjank:0:0);

writeln('Gaji Total                 : ',gatot:0:0);

end

else

if sts = 'B' then

begin

gaji:=2000000;

writeln('Gaji Total                 : ',gaji:0:0);

end

else

writeln('Kode yang Anda Masukkan salah! Gunakan huruf kapital');

end;

procedure mgr;

begin

write  ('Status Perkawinan    (N/B) : '); readln(sts);

if sts = 'N' then

begin

write  ('Masukkan Jumlah Anak       : '); readln(anak);

gaji:=1500000;

if anak>=3 then

tunjank:=3*(0.1*gaji)

else

tunjank:=anak*(0.1*gaji);

tunjkwn:=gaji*0.03;

gatot:=gaji+tunjkwn+tunjank;

writeln('Gaji Pokok                 : ',gaji:0:0);

writeln('Tunjangan Jabatan          : ',tunjkwn:0:0);

writeln('Tunjangan Anak             : ',tunjank:0:0);

writeln('Gaji Total                 : ',gatot:0:0);

end

else

if sts = 'B' then

begin

gaji:=1500000;

writeln('Gaji Total                 : ',gaji:0:0);

end

else

writeln('Kode yang Anda Masukkan salah! Gunakan huruf kapital');

end;

procedure spv;

begin

write  ('Status Perkawinan    (N/B) : '); readln(sts);

if sts = 'N' then

begin

write  ('Masukkan Jumlah Anak       : '); readln(anak);

gaji:=1000000;

if anak>=3 then

tunjank:=3*(0.1*gaji)

else

tunjank:=anak*(0.1*gaji);

tunjkwn:=gaji*0.03;

gatot:=gaji+tunjkwn+tunjank;

writeln('Gaji Pokok                 : ',gaji:0:0);

writeln('Tunjangan Nikah            : ',tunjkwn:0:0);

writeln('Tunjangan Anak             : ',tunjank:0:0);

writeln('Gaji Total                 : ',gatot:0:0);

end

else

if sts = 'B' then

begin

gaji:=1000000;

writeln('Gaji Total                 : ',gaji:0:0);

end

else

writeln('Kode yang Anda masukkan salah! Gunakan huruf kapita');

end;

procedure gol;

begin

write  ('Golongan           [1/2/3] : '); readln(jab);

if jab = '1' then

dir

else

if jab = '2' then

mgr

else

if jab = '3' then

spv

else

writeln('Kode yang Anda masukkan salah');

end;

begin

clrscr;

writeln('==============================================');

writeln('            Program Gaji Pegawai              ');

writeln('==============================================');

writeln;

write  ('NIP                        : '); readln(nip);

write  ('Nama                       : '); readln(nm);

write  ('Tempat Lahir               : '); readln(tmplhr);

write  ('Tanggal Lahir (DD MM YYYY) : '); readln(d,m,y);

case m of

1,3,5,7,8,10,12:begin

if (d>31) then

writeln('Tanggal salah')

else

gol;

end;

4,6,9,11:begin

if (d>30) then

writeln('Tanggal salah')

else

gol;

end;

2:begin

if (y mod 4=0) then

begin

if (d>29) then

writeln('Tanggal salah')

else

gol;

end

else

begin

if (d>28) then

writeln('Tanggal salah')

else

gol;

end;

end;

end;

readkey;

donewincrt;

end.

FLOWCHART PROSEDURE