Rabu, 18 Desember 2013

Berikut ini program pendaftaran mahasiswa baru menggunakan pascal .
Berikut source code-nya :

Program PMB;
uses wincrt;
var
   no,nama,asal,tempat:string;
   tgl,bln,th:integer;
   b_daftar,u_bangun,tot:longint;
begin
     clrscr;
     writeln('====================================');
     writeln;
     writeln('     Pendaftaran Mahasiswa Baru     ');
     writeln;
     writeln('                oleh                   ');
     writeln('           Elda Triadara          ');
     writeln;
     writeln('====================================');
     writeln;
     write  ('No.               : '); readln(no);
     write  ('Nama              : '); readln(nama);
     write  ('Tempat Lahir      : '); readln(tempat);
     write  ('Tanggal Lahir     : '); readln(tgl,bln,th);
     case bln of
     1,3,5,7,8,10,12 : begin
                       if (tgl>31) then
                          begin
                               writeln('Format Tanggal salah');
                               readkey;
                               donewincrt;
                          end
                     
                       end;
     4,6,9,11 : begin
                if (tgl>30) then
                   begin
                        writeln('Format Tanggal salah');
                        readkey;
                        donewincrt;
                        end
                end;
     2 : begin
         if (th mod 4=0) then
            begin
                 if (tgl>29) then
                 begin
                      writeln('Format Tanggal salah');
                      readkey;
                      donewincrt;
                 end
            end
            else
            begin
            if (tgl>28) then
            begin
                 writeln('Format Tanggal salah');
                 readkey;
                 donewincrt;
            end
            end;
       end;
     end;
     if (bln>12) or (th>1995) then
        begin
             writeln('Format Tanggal Salah');
             readkey;
             donewincrt;
     end;
       
     write  ('Asal Sekolah      : '); readln(asal);
     write  ('Biaya Pendaftaran : '); readln(b_daftar);
     write  ('Uang Bangunan     : '); readln(u_bangun);
     tot:=b_daftar+u_bangun;
     write  ('Total             : ',tot);
end.
Untuk tampilan programnya adlah sebagai berikut :

Untuk tampilan kesalahan input tanggal adalah seperti berikut :



Sabtu, 07 Desember 2013

Untuk membuat table yang sederhana ada 3 elemen utama yaitu table, tr dan td. Tag <table> adalah untuk membuat tabel kemudian di ikuti dengan tag <tr> (table rows) adalah untuk membuat baris pada tabel kemudian tag <td> (table data) adalah untuk membuat kolom pada tabel, kolom-kolom hasil dari tr dan td ini disebut dengan table cell yaitu sebagai lokasi dimana kita memasukkan data-data yang akan di tampilkan.

Berikut ini merupakan contoh tabel 3 baris dan 2 kolom.
<table border="1">

<tr>

<td>Cell 1 - Baris 1 Kolom 1</td>

<td>Cell 2 - Baris 1 Kolom 2</td>

</tr>

<tr>

<td>Cell 3 - Baris 2 Kolom 1</td>

<td>Cell 4 - Baris 2 Kolom 2</td>

</tr>

<tr>

<td>Cell 5 - Baris 3 Kolom 1</td>

<td>Cell 6 - Baris 3 Kolom 2</td>

</tr>

</table>


Ini hasilnya :


Cell 1 – Baris 1 Kolom 1
Cell 2 – Baris 1 Kolom 2
Cell 3 – Baris 2 Kolom 1
Cell 4 – Baris 2 Kolom 2
Cell 5 – Baris 3 Kolom 1
Cell 6 – Baris 3 Kolom 2

Untuk border pada tabel tersebut bisa digan ukuran atau bahkan dihilangkan dengan cara merubah angka pada border-nya.

Mengatur Lebar dan Tinggi Tabel
Untuk mengatur lebar table digunakan atribut width atau bisa juga dengan style CSS dengan properti width. Untuk lebar dan tinggi dari td kita gunakan atribut style dengan properti width dan height.

Berikut adalah contoh tabel dengan lebar 75% dari lebar dokumen dan lebar kolom masing 50% dengan tinggi pada baris pertama adalah 40px.

<table border="1" width="75%">

<tr>

<td style="width:50%;height:40px;">Baris 1 Kolom 1</td>

<td>Baris 1 Kolom 1</td>

</tr>

<tr>

<td>Baris 2 Kolom 1</td>

<td>Baris 2 Kolom 2</td>

</tr>

<tr>

<td>Baris 3 Kolom 1</td>

<td>Baris 3 Kolom 2</td>

</tr>

</table>


Hasilnya sebagai berikut :

Baris 1 Kolom 1
Baris 1 Kolom 1
Baris 2 Kolom 1
Baris 2 Kolom 2
Baris 3 Kolom 1
Baris 3 Kolom 2

Untuk satuan ukuran widht dan height dari atribut maupun style tersebut kita dapat menggunakan px atau %.

Menggabungkan Kolom dan Baris
Table Cell atau baris dan kolom dari tabel tersebut dapat kita gabungkan sesuai kebutuhan bentuk tabel yang diinginkan.

Untuk menggabungkan kolom dalam tabel digunakan atribut colspan.
<table border="1" width="75%">

<tr>

<td colspan="2">Gabungan Kolom 1&amp;2 pada Baris 1</td>

</tr>

<tr>

<td style="width:50%">Baris 2 Kolom 1</td>

<td>Baris 2 Kolom 2</td>

</tr>

<tr>

<td>Baris 3 Kolom 1</td>

<td>Baris 3 Kolom 2</td>

</tr>

</table>



Hasil :

Gabungan Kolom 1&2 pada Baris 1
Baris 2 Kolom 1
Baris 2 Kolom 2
Baris 3 Kolom 1
Baris 3 Kolom 2 


Sedangkan untuk menggabungkan baris dalam tabel digunakan atribut rowspan.
<table border="1" width="75%">

<tr>

<td style="width:50%" rowspan="2">Gabungan Baris 1&amp;2 pada Kolom 1</td>

<td>Baris 1 Kolom 2</td>

</tr>

<tr>

<td>Baris 2 Kolom 2</td>

</tr>

<tr>

<td>Baris 3 Kolom 1</td>

<td>Baris 3 Kolom 2</td>

</tr>

</table>

Hasil :

Gabungan Baris 1&2 pada Kolom 1
Baris 1 Kolom 2
Baris 2 Kolom 2
Baris 3 Kolom 1
Baris 3 Kolom 2

Mengatur Jarak Kolom pada Tabel

Untuk mengatur posisi cell dalam tabel digunakan atribut cellpadding dan cellspacing.

Cellpadding adalah untuk pengaturan sisi dari bagian dalam cell.
<table border="1" width="75%" cellpadding="8">

<tr>

<td style="width:50%;">Baris 1 Kolom 1</td>

<td>Baris 1 Kolom 2</td>

</tr>

<tr>

<td>Baris 2 Kolom 1</td>

<td>Baris 2 Kolom 2</td>

</tr>

</table>
Hasil :

Baris 1 Kolom 1
Baris 1 Kolom 2
Baris 2 Kolom 1
Baris 2 Kolom 2


Sedangkan Cellspacing adalah pengaturan sisi dari bagian luar cell.
<table border="1" width="75%" cellspacing="8">

<tr>

<td style="width:50%">Baris 1 Kolom 1</td>

<td>Baris 1 Kolom 2</td>

</tr>

<tr>

<td>Baris 2 Kolom 1</td>

<td>Baris 2 Kolom 2</td>

</tr>

</table>



Hasil :

Baris 1 Kolom 1
Baris 1 Kolom 2
Baris 2 Kolom 1
Baris 2 Kolom 2


Membuat Titel pada Tabel
Untuk tabel yang lengkap dengan titel, kita bisa menambahkan tag <caption> tepat setelah tag <table> dan kita juga bisa mengganti td dengan th (table heading)sebagai titel dari baris maupun kolom.

Caption dan th akan secara otomatis berada pada posisi tengah dan th akan menghasilkan tulisan tebal.
<table border="1" width="75%">

<caption>Disini adalah titel tabel ini</caption>

<tr>

<th style="width:50%;">Header Kolom 1</th>

<th>Header Kolom 2</th>

</tr>

<tr>

<td>Baris 1 Kolom 1</td>

<td>Baris 1 Kolom 2</td>

</tr>

<tr>

<td>Baris 2 Kolom 1</td>

<td>Baris 2 Kolom 2</td>

</tr>

</table>

Hasil :

Header Kolom 1
Header Kolom 2
Baris 1 Kolom 1
Baris 1 Kolom 2
Baris 2 Kolom 1
Baris 2 Kolom 2

Membuat background pada tabel
Untuk membuat background pada tabel kita gunakan atribut style dengan properti background.
Berikut adalah contoh table dengan background warna kuning muda dengan heading warna merah.
<table style="background:#ffc" width="75%" border="1">
<tr>
<th style="background:red;width:50%;">Header Kolom 1</th>
<th style="background:red;">Header Kolom 2</th>
</tr>
<tr>
<td>Baris 1 Kolom 1</td>
<td>Baris 1 Kolom 2</td>
</tr>
<tr>
<td>Baris 2 Kolom 1</td>
<td>Baris 2 Kolom 2</td>
</tr>
</table>

Header Kolom 1
Header Kolom 2
Baris 1 Kolom 1
Baris 1 Kolom 2
Baris 2 Kolom 1
Baris 2 Kolom 2

Rabu, 04 Desember 2013

Untuk minggu sekarang saya akan posting tentang listing Program Gaji Pegawai, ditugaskan oleh dosen saya yang paling keren dengan matakuliah struktur data (SD) untuk tugas mingguan program ini memakai procedure. langsung saja ke Listing program dibawah ini :

program gaji_pegawai;
uses wincrt;
var
   nm,jab,nip,sts:string;
   gaji,tunjab,gatot,anak,tunjank:real;

procedure dir;
begin
     if sts = 'N' then
        begin
             write  ('Masukkan Jumlah Anak    : '); readln(anak);
     
             gaji:=4000000;
             tunjab:=gaji*0.1;
             tunjank:=2*(0.05*gaji);
             gatot:=gaji+tunjab+tunjank;

             writeln('Gaji Pokok              : ',gaji:0:0);
             writeln('Tunjangan Jabatan       : ',tunjab:0:0);
             writeln('Tunjangan Anak          : ',tunjank:0:0);
             writeln('Gaji Total              : ',gatot:0:0);
        end
     else
         begin
             gaji:=4000000;
             tunjab:=gaji*0.1;
             gatot:=gaji+tunjab;

             writeln('Gaji Pokok              : ',gaji:0:0);
             writeln('Tunjangan Jabatan       : ',tunjab:0:0);
             writeln('Gaji Total              : ',gatot:0:0);
         end;

end;

procedure mgr;
begin
     if sts = 'N' then
        begin
             write  ('Masukkan Jumlah Anak    : '); readln(anak);
     
             gaji:=3000000;
             tunjab:=gaji*0.1;
             tunjank:=2*(0.05*gaji);
             gatot:=gaji+tunjab+tunjank;

             writeln('Gaji Pokok              : ',gaji:0:0);
             writeln('Tunjangan Jabatan       : ',tunjab:0:0);
             writeln('Tunjangan Anak          : ',tunjank:0:0);
             writeln('Gaji Total              : ',gatot:0:0);
        end
     else
         begin
             gaji:=3000000;
             tunjab:=gaji*0.1;
             gatot:=gaji+tunjab;

             writeln('Gaji Pokok              : ',gaji:0:0);
             writeln('Tunjangan Jabatan       : ',tunjab:0:0);
             writeln('Gaji Total              : ',gatot:0:0);
         end;
end;

procedure spv;
begin
     if sts = 'N' then
        begin
             write  ('Masukkan Jumlah Anak    : '); readln(anak);
     
             gaji:=2000000;
             tunjab:=gaji*0.1;
             tunjank:=2*(0.05*gaji);
             gatot:=gaji+tunjab+tunjank;

             writeln('Gaji Pokok              : ',gaji:0:0);
             writeln('Tunjangan Jabatan       : ',tunjab:0:0);
             writeln('Tunjangan Anak          : ',tunjank:0:0);
             writeln('Gaji Total              : ',gatot:0:0);
        end
     else
         begin
             gaji:=2000000;
             tunjab:=gaji*0.1;
             gatot:=gaji+tunjab;

             writeln('Gaji Pokok              : ',gaji:0:0);
             writeln('Tunjangan Jabatan       : ',tunjab:0:0);
             writeln('Gaji Total              : ',gatot:0:0);
         end;
end;

begin
     clrscr;
     writeln('**********************************************');
     writeln;
     writeln('            PROGRAM GAJI PEGAWAI              ');
     writeln;
     writeln('**********************************************');
     writeln;
     write  ('NIP                     : '); readln(nip);
     write  ('Nama                    : '); readln(nm);
     write  ('Jabatan  [Dir/Mgr/Spv]  : '); readln(jab);
     write  ('Status Perkawinan [N/B] : '); readln(sts);

     if jab = 'Dir' then
        dir
     else
     if jab = 'Mgr' then
        mgr
     else
     if jab = 'Spv' then
        spv
     else
         writeln('Kode yang Anda masukkan salah');

     readkey;
     donewincrt;
end.



Tampilan Programnya :


Senin, 25 November 2013

1. Struktur pertama dalam pascal adalah

a. Char;
b. String
c. End.
d. Writeln
e. Uses crt;

Jawaban : E. Uses crt;
Alasan : karna untuk memanggil library dalam pascal, sehingga ditulis palin atas.

2. Untuk melihat hasil dari program yang dikerjakan tekan tombol

a. Crtl+f5
b. Ctrl+f9
c. Ctrl+f2
d. Ctrl+f12
e. Ctrl+f4
Jawaban : B. Ctrl+f9
Alasan : karna Ctrl+f9 shotkey untuk run program

3. Berapa kode yang digunakan untuk membuat tulisan berwarna “CYAN”

a. 4
b. 2
c. 128
d. 7
e. 3
Jawaban : E. 3 
Alasan :  Karna kode yang digunakan cyan adalah 3

4. Perintah dasar sederhana dalam program pascal adalah

a. Readln
b. End
c. Write
d. Writeln
e. Uses crt;

Jawaban :  C. write 
Alasan : Karna write digunakan untuk menampilkan hasil tanpa harus ganti baris dan tampilan berikutnya akan disambungkan dalan baris yang sama

5. Tipe data bahasa pascal untuk TRUE FALSE adalah

a. String
b. Char
c. Boolean
d. Byte
e. Real
Jawaban : C. Boolean
Alasan : karna boolean adalah suatu tipe data yang hanya mempunyai dua nilai yaitu true atau false

6. Siapakah penemu pascal

a. Greyson change
b. Prof. Niklaus Wirth
c. Kondrazuse
d. Prof. Niklaus Smirth
e. Dr. Hercules
Jawaban : B. Prof. Niklaus Wirth
Alasan : pascal adalah bahasa pemograman yang pertama kali dibuat oleh profesor niklaus wirth, seseorang anggota internasional federation of information processing (IFIP) pada tahun 1971.

7. Struktur bahasa pemrograman pascal paling pertama adalah

a. Var;
b. Begin
c. End;
d. Uses crt;
e. Writeln;

Jawaban : D. Uses crt;
Alasan : karna user digunakan untuk memanggil library dalam pascal.

8. Tipe data pascal untuk karakter adalah

a. Char
b. Boolean
c. Integer
d. Real
e. Byte

Jawaban : a. Char
Alasan : char merupakan tipe data yang menyimpan karakter, tapi tipe data ini hanya untuk menyimpan dalam satu karakter.

9. Kapan terbentuknya pascal

a. 1981
b. 1971
c. 1961
d. 1991
e. 1987

Jawaban : b. 1971
Alasan : pascal adalah bahasa pemograman yang pertama kali dibuat oleh profesor niklaus wirth, seseorang anggota internasional federation of information processing (IFIP) pada tahun 1971.

10. Apakah kepanjangan dari USES

a. Unit secure
b. Unit syntax
c. Unit system
d. Up software
e. Unit semiconductor
Jawaban : c. Unit System
Alasan : Kepanjangan dari USES adalah UNIT SYSTEM

11. Berikut ini adalah penulisan identifier yang benar dalam pemrogramnan pascal adalah

a. program_satu
b. Program_satu
c. Program satu
d. Begin
e. Array
Jawaban : b. Program_satu
Alasan : penulisan identifier tidak boleh diketahui oleh angka, dan tidak boleh dipisahkan dengan spasi

12. Tipe bilangan bulat dalam bahasa pascal dikenal dengan

a. Byte
b. Integer
c. Char
d. String
e. Boolean
Jawaban : b. Integer
Alasan : integer adalah tipe data yang merepresentasikan bilangan bulat, atau beberapa bagian dari bilangan bulat.


13. Istilah “perulangan” dalam pemrograman pascal dikenal sebagai

a. Repeating
b. Again
c. Function
d. Replay
e. Looping
Jawaban : e. Looping
Alasan :looping adalah sebuah perulangan yang digunakan untuk megulang sebuat kode program tertentu.

14. Perintah untuk menutup program pada Pascal adalah

a. END.
b. Program
c. Uses crt;
d. Finish
e. END;

Jawaban : a. END.
Alasan : end. merupakan instuksi dalam pascal untuk mengakhiri sebuah program.

15. Menggambarkan program secara logika merupakan fungsi dari

a. flowchart
b. DxDiag
c. Begin
d. SI
e. Sistem Operasi

Jawaban : a. flowchart
Alasan : Flowchart atau diagram alir merupakan sebuah diagram dengan simbol-simbol grafis yang menyatakan aliran algoritma atau proses yang menampilkan langkah-langkah yang disimbolkan dalam bentuk kotak, beserta urutannya dengan menghubungkan masing masing langkah tersebut menggunakan tanda panah.


16. Deklarasi yang digunakan untuk mengidentifikasi data yang nilainya sudah ditentukan dan pasti, tidak dirubah dalam program disebut deklarasi

a. Deklarasi label
b. Deklarasi Konstanta
c. Deklarasi tipe
d. Deklarasi Variabel
e. Deklarasi Prosedur

Jawaban : b. Deklarasi Konstanta
Alasan : konstanta digunakan untuk mendeklarasikan suatu identifier yang nilainya tetap.

17. Dibawah ini termasuk dalam Deklarasi dalam Pascal kecuali

a. Deklarasi perubah
b. Deklarasi proses
c. Deklarasi konstanta
d. Deklarasi tipe
e. Deklarasi prosedure

Jawaban : b. Deklarasi proses
Alasan : karna didalam pascal tidak ada deklarasi proses

18. Bilangan yang mengandung pecahan, paling sedikit harus ada satu digit sebelum dan sesudah titik desimal termasuk dalam tipe data

a. Real
b. Boolean
c. Integer
d. Longint
e. Byte

Jawaban : a. Real
Alasan : Real adalah bilangan yang berisi titik desimal. Dalam Pascal paling sedikit harus ada satu digit sebelum dan sesudah titik desimal, tidak boleh ada koma dan nilainya bisa positif atau negatif.

19. Prosedur yang digunakan untuk membersihkan layar saat program dijalankan adalah

a. Writeln
b. Readln
c. Begin
d. Write
e. Clrscr

Jawaban : e. Clrscr
Alasan : Clrscr adalah prosedur untuk membersihkan layar. Kepanjangannya adalah clear screen.


20. Bentuk dari suatu statement IF berada didalam lingkungan statement IF yang lainnya, disebut IF dalam kondisi

a. IF bersarang
b. IF bercabang
c. IF tunggal
d. IF-THEN
e. IF do while-until

Jawaban : a. IF bersarang
Alasan :  IF bersarang merupakan statement IF yang didalamnya terdapat lagi statement IF yang lainnya.

21. Tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama, disebut tipe data

a. Array
b. Byte
c. Longint
d. Integer
e. Boolean

Jawaban : a. Array
Alasan :  Array adalah sebuah struktur datayang terdiri atas banyak variabel dengan tipe data sama, dimana masing-masing elemen variabel mempunyai nilai indeks.

22. Perintah untuk menampilkan atau cetak dilayar monitor tanpa pindah baris, disebut

a. Writeln
b. Write
c. Readln
d. Read
e. Begin

Jawaban : b. Write
Alasan : Perintah write digunakan untuk menuliskan output, dengan posisi cursor – penunjuk aktif, terletak pada akhir output yang ditampilkan pada baris yang sama.

23. Perintah untuk menampilkan atau cetak dilayar monitor lalu pindah baris kebawah, disebut

a. Writeln
b. Write
c. Readln
d. Read
e. Begin

Jawaban : a. Writeln
Alasan : Perintah writeln digunakan untuk menuliskan output, dengan posisi cursor – penunjuk aktif, terletak pada awal baris berikutnya.

24. Suatu identifier non-standar yang nilainya tidak tetap atau nilainya merupakan hasil dari suatu proses, disebut

a. Variabel
b. Tipe Data
c. Prosedur
d. Deklarasi
e. Array

Jawaban : a. Varibel
Alasan :  Variabel adalah nama yang mewakili suatu elemen data dan nilainya tidak tetap.

25. Suatu program terpisah dalam blok sendiri yang berfungsi sebagai subprogram (bagian program), disebut

a. Variabel
b. Tipe Data
c. Prosedur
d. Deklarasi
e. Array

Jawaban : c. Prosedur
Alasan : Prosedur adalah suatu program terpisah dalam blok tersendiri yang berfungsi sebagai sub program (program bagian) dan diawali dengan kata cadangan Procedure.


;;

By :
Free Blog Templates