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 kesalahan input tanggal adalah seperti
berikut :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.
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&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&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
|
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
Membuat Program Gaji Pegawai dengan pascal memekai procedure
0 komentar Diposting oleh Unknown di 19.57
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
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;
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
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;
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
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
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
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.
;;
Subscribe to:
Postingan (Atom)