Contoh Pemograman Pascal

Program Menghitung Jumlah Bilangan Perulangan FOR Dengan Nilai Statis
Skrip Program Pascal	Output Program
program jum_bil;  uses wincrt; var i, jum,bil: integer; begin jum:=0; {inisialisasi} for i:=1 to 5 do begin write(‘Masukkan Bilangan = ‘);readln(bil); jum:=jum+bil; end; writeln(‘Jumlah Bilangan = ‘,jum); end.	Masukkan Bilangan = 12  Masukkan Bilangan = 12 Masukkan Bilangan = 12 Masukkan Bilangan = 12 Masukkan Bilangan = 12 Jumlah Bilangan = 60
Program Menghitung Jumlah Bilangan Perulangan FOR Dengan Nilai Dinamis
Skrip Program Pascal	Output Program
program jum_bil2;  uses wincrt; var i, n: integer; jum, bil: real; begin write(‘Banyak bilangan :  ’);read(n); jum := 0; For i:= 1 to n do begin write(‘Masukkan Bilangan ‘,i, ‘=’);read(bil); jum := jum+bil; end; writeln(‘Jum = ‘,jum:0:2); end.	Banyak bilangan : 3  Masukkan Bilangan 1 = 12 Masukkan Bilangan 2 = 13 Masukkan Bilangan 3 = 14 Jum = 39.00
Program Menghitung Jumlah dan Mean Bilangan Perulangan FOR Dengan Nilai Dinamis
Skrip Program Pascal	Output Program
program contoh_3;  uses wincrt; var n, i : integer; rata : real; jum, bil : integer; begin  Write(‘Masukkan nilai N = ‘);readln(n); writeln (‘Nilai N adalah= ‘,n);writeln; for i := 1 to n do begin write(‘Masukkan bilangan : ‘);read(bil); jum := jum+bil; end; rata := jum/n;writeln; writeln(‘Jumlahnya adalah : ‘,jum); writeln(‘Nilai rata-ratanya :’, rata:0:2); end.	Masukkan nilai N = 3  Nilai N adalah= 3 Masukkan bilangan: 1 Masukkan bilangan: 2 Masukkan bilangan: 3 Jumlahnya adalah : 6 Nilai rata-ratanya : 2.00
Program Menghitung Jumlah dan Banyaknya Data
Script Program Pascal	Output Program Pascal
program contoh4;  uses wincrt; var n, i,byk,jum, bil : integer; begin Write(‘Masukkan nilai perulangan : ‘);readln(n); Writeln; for i := 1 to n do begin write(‘Bilangan ‘,i,’ = ‘);read(bil); if bil >= 10 then begin byk := byk+1; jum := jum+bil ; end; end; writeln; writeln(‘banyak bilangan yang >= 10 : ‘,byk); writeln(‘jumlah bilangan yang >= 10 : ‘,jum); end.	Masukkan nilai perulangan: 3  Bilangan 1 = 10 Bilangan 2 = 3 Bilangan 3 = 25 Banyak bilangan yang >= 10 : 2 Jumlah bilangan yang >= 10 : 35

program pembuatan_record;
uses crt;
procedure garis;
begin
writeln(’==============================================’);
end;
type
reckaryawan=record
jab,nip,nama:string;
gol:integer;
gapok,tunj:real;
end;
var pegawai:reckaryawan;
total:real;
begin
clrscr;
writeln(’ LAPORAN PERHITUNGAN GAJI KARYAWAN PT MAJU TAK GENTAR’);
garis;
writeln;
write(’Masukan NIP Karyawan : ‘);readln(pegawai.nip);
write(’Masukan Nama Karyawan : ‘);readln(pegawai.nama);
write(’Golongan[1/2/3] : ‘);readln(pegawai.gol);
garis;
case pegawai.gol of
1:
begin
pegawai.jab:=’Staf dan Tetap’;
pegawai.gapok:=900000;
end;
2:
begin
pegawai.jab:=’Staf dan Kontrak’;
pegawai.gapok:=700000;
end;
3:
begin
pegawai.jab:=’Kontrak’;
pegawai.gapok:=500000;
end;
end;
if pegawai.jab=’Staf dan Tetap’ then
pegawai.tunj:=25/100*pegawai.gapok
else
if pegawai.jab=’Staf dan Kontrak’ then
pegawai.tunj:=10/100*pegawai.gapok
else
pegawai.tunj:=0;
total:=(pegawai.gapok)+(pegawai.tunj);
writeln(’Jabatan Karyawan : ‘,pegawai.jab);
writeln(’Gaji Pokok : ‘,pegawai.gapok:8:0);
writeln(’Tunjangan : ‘,pegawai.tunj:8:0);
garis;
writeln(’Total Gaji Karyawan : ‘,total:8:0);
readln;
end.

Program DataPegawai;

Uses Wincrt;

Type Pegawai = record

NIP       : String[9];

Nama      : String[50];

Golongan  : Char;

Jamkerja  : Real;

End;

Var

Data                 : Pegawai;

Gapok               : Real;

Insentif,Gaber    : Real;

Ul                    : Char;

Begin

  Repeat

    Clrscr;

    Writeln('Entry Data Pegawai PT. Punya gua');

    Writeln('==========================');

    Writeln;

    Write('NIP          : ');Readln(Data.NIP);

    Write('Nama         : ');Readln(Data.Nama);

    Write('Golongan     : ');Readln(Data.Golongan);

    Write('Jam Kerja    : ');Readln(Data.Jamkerja);

    Writeln;

    Writeln;

    Case Data.Golongan of

      '1'  : Gapok:=1000000;

      '2'  : Gapok:=1500000;

      '3'  : Gapok:=2000000;

      Else

        Gapok:=0;

    End;

    if Data.Jamkerja>200 then

      Insentif:=(Data.Jamkerja-200)*10000

    else

      Insentif:=0;

    Gaber:=Gapok+Insentif;

    Clrscr;

    Writeln('Laporan Gaji Pegawai');

    Writeln('PT. XYZ');

    Writeln;

    Writeln('============================================================================');

    Writeln('|NIP       | Nama                    | Golongan | Jam Kerja | Gaji         |');

    Writeln('============================================================================');

    Writeln('|',Data.NIP:10,'|',Data.Nama:25,'|',Data.Golongan:10,'|',Data.Jamkerja:11:0,'|',Gaber:14:2,'|');

    Writeln('============================================================================');

    Writeln;

    Write('Mau Ulang Lagi? [Y/T]: ');Readln(Ul);

  Until Upcase(Ul) <> 'Y';

End.

================================================================================

Program Gaji_Tunjangan_dan_Pajak;

{Menghitung jumlah gaji berdasarkan golongan, tunjangan anak dan istri, total gaji setelah pajak}

Uses wincrt;

var

nama,jab    : string[20];

noin        : string[10];

golgaj           : char;

stmerit, jmlanak : integer;

gaj,tjbini,tjanak,pajgaj,jmlpajgaj,jmltjgaj,tolgaj,tolgajstpaj : real;

Begin

     clrscr;

     Writeln ('=============================================');

     Writeln ('PERHITUNGAN GAJI DAN TUNJANGAN DAN PAJAK GAJI');

     Writeln ('=============================================');

     Writeln;     

     Writeln ('Isikan Data anda sesuai ketentuan berikut ini : ');

     Writeln ('----------------------------------------------- ');

     Writeln;

     Writeln ('Golongan Gaji :            Status Perkawinan : ');

     Writeln ('a. Rp. 2.000.000.00        1. Kawin ');

     Writeln ('b. Rp. 2.500.000.00        2. Belum kawin');

     Writeln ('c. Rp. 3.000.000.00        3. Cerai ');

     Writeln;

     Write ('Masukkan No karyawan          : ');readln (noin);

     Write ('Masukkan nama anda            : ');readln (nama);

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

     Write ('Masukkan Golongan gaji anda   : ');readln (golgaj);

           case golgaj of

           'a' : begin

                 gaj := 2000000;

                 pajgaj := (2/100);

                 Write ('Status Perkawinan anda : ');readln (stmerit);

                       case stmerit of

                       1 : begin

                           tjbini := (5/100)*gaj;

                           Write ('Jumlah anak         : ');readln (jmlanak);

                                 if jmlanak <= 3 then

                                 tjanak := jmlanak*((2/100)*gaj)

                                 else

                                 tjanak := 3*((2/100)*gaj);

                           end;

                       2 : begin

                           tjbini := 0;

                           tjanak := 0;

                           end;

                       3 : begin

                           tjbini := 0;

                           Write ('Jumlah anak         : ');readln (jmlanak);

                                 if jmlanak <= 3 then

                                 tjanak := jmlanak*((2/100)*gaj)

                                 else

                                 tjanak := 3*((2/100)*gaj);

                           end;

                       else

                           Writeln;

                           Writeln ('================================================================');

                           Writeln;

                           Writeln ('Tunjangan tidak terhitung karena tidak terinput dengan benar !!!');

                       end;

                 end;

           'b' : begin

                 gaj := 2500000;

                 pajgaj := (2.5/100);

                 Write ('Status Perkawinan anda : ');readln (stmerit);

                       case stmerit of

                       1 : begin

                           tjbini := (5/100)*gaj;

                           Write ('Jumlah anak         : ');readln (jmlanak);

                                 if jmlanak <= 3 then

                                 tjanak := jmlanak*((2/100)*gaj)

                                 else

                                 tjanak := 3*((2/100)*gaj);

                           end;

                       2 : begin

                           tjbini := 0;

                           tjanak := 0;

                           end;

                       3 : begin

                           tjbini := 0;

                           Write ('Jumlah anak         : ');readln (jmlanak);

                                 if jmlanak <= 3 then

                                 tjanak := jmlanak*((2/100)*gaj)

                                 else

                                 tjanak := 3*((2/100)*gaj);

                           end;

                       else

                           writeln;

                           Writeln ('================================================================');

                           Writeln;

                           Writeln ('Tunjangan tidak terhitung karena tidak terinput dengan benar !!!');

                       end;

                 end;

           'c' : begin

                 gaj := 3000000;

                 pajgaj := (3/100);

                 Write ('Status Perkawinan anda : ');readln (stmerit);

                       case stmerit of

                       1 : begin

                           tjbini := (5/100)*gaj;

                           Write ('Jumlah anak         : ');readln (jmlanak);

                                 if jmlanak <= 3 then

                                 tjanak := jmlanak*((2/100)*gaj)

                                 else

                                 tjanak := 3*((2/100)*gaj);

                           end;

                       2 : begin

                           tjbini := 0;

                           tjanak := 0;

                           end;

                       3 : begin

                           tjbini := 0;

                           Write ('Jumlah anak         : ');readln (jmlanak);

                                 if jmlanak <= 3 then

                                 tjanak := jmlanak*((2/100)*gaj)

                                 else

                                 tjanak := 3*((2/100)*gaj);

                           end;

                       else

                           writeln;

                           Writeln ('================================================================');

                           Writeln;

                           Writeln ('Tunjangan tidak terhitung karena tidak terinput dengan benar !!!');

                       end;

                 end;

           else

           Writeln;

           Writeln ('=======================================');

           Writeln;

           Writeln ('Maaf, Golongan Gaji tidak terdaftar !!!');

           Writeln;

           end;

     jmltjgaj   := tjbini+tjanak;

     tolgaj     := gaj+jmltjgaj;

     jmlpajgaj  := tolgaj*pajgaj;

     tolgajstpaj := tolgaj-jmlpajgaj;

     Writeln;

     Writeln ('SLIP GAJI -----------------------------------> ');

     Writeln;

     Writeln ('Nama         : ',nama);

     Writeln ('No Karyawan  : ',noin);

     Writeln ('Jabatan      : ',jab);

     Writeln ('+============================================+');

     Writeln ('| Rincian                    | Jumlah        | ');

     Writeln ('+============================================+');

     Writeln ('| Besar Gaji               : | Rp.',gaj:8:0,'   |');

     Writeln ('| Tunjangan istri          : | Rp.',tjbini:8:0,'   |');

     Writeln ('| Tunjangan anak           : | Rp.',tjanak:8:0,'   |');

     Writeln ('| Total gaji               : | Rp.',tolgaj:8:0,'   |');

     Writeln ('| Pajak gaji               : | Rp.',jmlpajgaj:8:0,'   |');

     Writeln ('+----------------------------+---------------+');

     Writeln ('| Total gaji setelah pajak : | Rp.',tolgajstpaj:8:0,'   |');

     Writeln ('+----------------------------+---------------+');

     Writeln ('Program by, w1r0');

     readln;

End.

Cara Memodifikasi Blog

CARA MEMODIFIKASI BLOG

CARA MEMBUAT LINK DALAM POSTINGAN BLOGGER

Sebuah software blog di rancang agar mudah untuk digunakan, dalam membuat link pun sebenarnya anda tidak di tuntut untuk bisa membuat link menggunakan kode HTML, karena sudah tersedia fasilitas untuk membuat link.

Hal yang sering membuat link adalah dalam sebuah artikel, oleh karenanya berikut adalah cara membuat link dalam postingan blogger.

• Silahkan login ke blogger, lalu buatlah sebuah postingan baru.

• Silahkan isi dengan artikel yang anda inginkan.

• Tandai kata-kata yang ingin anda buat link (tautan).

• Klik tool untuk membuat link, lihat gambar di bawah : 

              

 

• Isilah dengan alamat link tujuan yang anda inginkan. Lanjutkan dengan klik OK. 

          

• Silahkan publikasikan jika anda rasa semua telah siap.

• Silahkan lihat hasilnya. Seharusnya kata-kata tadi menjadi sebuah link.

• Selesai,

CARA MEMBUAT PINGBOX YAHOO DI BLOG

Pingbox adalah suatu alat komunikasi eksklusif hanya antara seorang pengunjung individual dan Anda. Selain oleh Anda berdua, percakapan Pingbox tidak dapat dilihat oleh orang lain. Meskipun banyak pengunjung yang dapat berada di halaman web yang sama kapan saja. Faktanya tetap sama: Tidak ada orang lain yang dapat melihat percakapan Pingbox selain orang yang sedang Anda ajak chatting tersebut.
Untuk hasil terbaik harus menggunakan Pingbox dengan Yahoo! Messenger versi terbaru Dengan versi terbaru, Anda akan dapat melihat grup di Daftar Messenger Anda yang menampilkan semua orang yang ada di halaman web.
Berikut adalah beberapa contoh yang dapat di pasang pingbox dan tampilan Pingboxnya:

• Friendster
• Blogger
• Wordpress, dan
• Multiply

Untuk cara pemasangan Pingbox di blog anda adalah sebagai berikut:
1. Sebelum anda membuat anda harus mempunyai Email Yahoo.
2. Kunjungi http://messenger.yahoo.com/download/
3. Klik tab Pingbox dan Buat Pingbox
4. Atur gaya pingbox yang anda inginkan isi form berikut ini :

• Pilih latar belakang, 
• Ukuran dan warna teks.
• Salam sambutan pribadi, 
• Pesan saaat anda offline.
• Nama Pingbox yang anda inginkan.
• Klik Save.

5. Pasang Pingbox di halaman Website/Blog anda dengan cara :

• Pilih situs untuk menambahkannya Blogger
• Salin kode Pingbox ke clipboard.
• Sign in ke Blogger.
• Klik link "Tata Letak" yang ada di Panel Kontrol.
• Selanjutnya, klik "Tambah Gadget".
• Di jendela yang muncul, cari HTML/JavaScript dan klik tombol (+) untuk menambah Gadget.
• Ketikkan "Judul" yang diinginkan seperti "Chat dengan Saya!" atau "Pingbox Saya".
• Tempel (Ctrl+V) kode Pingbox di area "Konten".
• Klik "SIMPAN" untuk menyimpan perubahan dan menutup jendela.