Pada contoh berikut saya tampilkan contoh kasus dan Listing Program Pascal.
Uraian Contoh Kasus ;
Berikut adalah data pengolahan gaji karyawan;
• Nomor Induk Karyawan
• Nama Karyawan
• Status
• Jumlah Anak
• Jabatan
• Gaji Pokok
• Tunjangan Istri
• Tunjangan Anak
• Tunjangan jabatan
• Jamsostek
• Pajak
• Gaji Bersih
Catatan;
Tunjangan istri
• jika status 'menikah' maka tunjangan istri 10 persen dari gaji pokok
• Selain itu tidak dapat tunjangan
Tunjangan anak
• Jika jumlah anak kurang atau sama dengan 3 orang, tunjangan anak 5 persen dari gaji pokok untuk
masing-masing anak
• Jika jumlah anak lebih dari 3, tunjangan anak maksimal untuk 3 orang anak.
• selain itu tidak dapat tunjangan
Tunjangan jabatan
• Jika jabatan 'manager' maka tunjangan jabatan Rp. 2000000
• Jika jabatan 'Supervisor' maka tunjangan jabatan Rp. 1500000
• Jika jabatan 'Mandor' maka tunjangan jabatan Rp. 1000000
• Selain itu tidak ada tunjangan
Hitungan untuk gaji bersih
Gaji bersih = (gaji pokok + akumulasi tunjangan)-(pajak+jamsostek)
Berikut Listing Programnya.
Silakan dipelajari atau dimodifikasi.
program Gaji;
uses crt;
var gp,gb,pjk,js,tis,ta,tjb:real;
nik:string[10];
nk:string[27];
sts:string[9];
jb:string[15];
ja:byte;
begin
clrscr;
write('Nomor Induk Karyawan=');
readln(nik);
write('Nama Karyawan=');
readln(nk);
write('Status=');
readln(sts);
write('Jumlah Anak=');
readln(ja);
write('Jabatan=');
readln(jb);
write('Gaji Pokok=');
read(gp);
if sts='menikah' then begin
tis:=0.1*gp;
end
else begin
tis:=0;
end;
if ja<=3 then begin ta:=0.05*gp*ja; end else if ja>3 then begin
ta:=0.05*gp*3;
end
else begin
ta:=0;
end;
if jb='manager' then begin
tjb:=2000000;
end
else
if jb='supervisor' then begin
tjb:=1500000;
end
else
if jb='mandor' then begin
tjb:=1000000;
end
else begin
tjb:=0;
end;
pjk:=0.025*gp;
js:=0.01*gp;
gb:=(gp+tis+ta+tjb)-(pjk+js);
writeln('Tunjangan Istri=', tis:3:2);
writeln('Tunjangan Anak=', ta:3:2);
writeln('Tunjangan Jabatan=', tjb:3:2);
Writeln('Pajak=', pjk:3:2);
writeln('Jamsostek=', js:3:2);
writeln('Gaji Bersih=', gb:3:2);
readkey;
end.
sumber :http://igaph19.blogspot.com/2013/02/contoh-program-turbo-pascal-sederhana.html
Contoh sebuah paragraf yang berkaitan dengan bidang Komputer
Paragraf Sebab-Akibat
Ada sebuah mata kuliah pemrograman yang kelasnya dimulai pada sore hari. Sore hari itu biasanya identik dengan lelah, mengantuk, dan bosan. Hal itu lah yang menyebabkan beberapa orang tidak konsentrasi saat kelas pemrograman berlangsung. Akibatnya mereka tidak begitu menguasai program yang sudah diajarkan.
http://astriania.blogspot.com/2012/06/generaliasasi-analogi-sebab-akibat.html
Staff adalah personil yangmembantu atasan (pimpinan) mereka dalam melaksanakan tugas yang diberikan. (artikata.com)
Macam- macam staf
Yaitu membantu pimpinan dalam melancarkan tugas-tugas organisasi, dalam memberikan pelayanan untuk seluruh lini dan unsur organisasi. Fungsi utama staf pelayanan adalah memberikan pelayanan yang sebaik-baiknya dalam bentuk kegiatan-kegiatan operasional, bukan memberikan saran atau pertimbangan.
1. staf khusus, staf ini memiliki tugas untuk memberikan saran, konsultasi, bantuan serta melayani seluruh lini dan unsur organisasi. sifat khusus staf spesialis yaitu:
Analisa :Staf memang sangat dibutuhkan dalam organisasi karna staf lah yang akan menjalankan kegiatan dalam organisasi tersebut.Dan staf dibagi menjadi beberapa bagian sesuai dengan yang dibutuhkan dalam organisasi itu sendiri.
Jaksa Agung, Basrief Arief menunjukan foto proses penyerahan diri Komisaris Jendral Polisi (Purn) Susno Duadji di Gedung Kejaksaan Agung, Jakarta, Jumat (3/5/2013). Susno menyerahkan diri ke Lapas Kelas II A Cibinong pada Kamis.
JAKARTA, KOMPAS.com — Sepandai-pandainya tupai melompat, pasti jatuh juga. Pepatah ini mungkin tepat menggambarkan aksi buronan Kejaksaan Agung, Komjen (Purn) Susno Duadji, yang sempat memilih bersembunyi di suatu tempat guna menghindari eksekusi hukum. Kicauan burung yang terdengar di rekaman videonya yang diunggah ke Youtube turut membantu tim Kejagung mengetahui keberadaannya.
Demikian hal ini disampaikan pengamat telematika Abimanyu "Abah" Wachjoewidajat mengatakan kepada Kompas.com, Jumat (3/5/2013). Abah tak merinci bagaimana kicauan burung ini berhasil memberikan informasi keberadaan pengunggah.
Menurutnya, selain kicauan burung, tim Kejagung juga berhasil melacak IP address pengunggah. Pelaku mengunggah video ke Youtube dengan cara biasa. Pelaku tidak melakukan routing ketika mengunggah video berdurasi sekitar 15 menit tersebut.
"Tim juga melacak orang yang berada di belakang pelaku pengunggah, lalu menghubungkan keberadaannya," kata Abah.
Ketika ditanya, apakah benar Susno berada di daerah pemilihannya di Jawa Barat, Abah mengatakan, hal tersebut bukan informasi yang dapat ia sampaikan.
Sebelum berhasil melacak dan menuju tempat persembunyiannya, Susno lebih terlebih dahulu menyerahkan diri ke LP Pondok Rajeg, Cibinong, Jawa Barat, Jumat (3/5/2013).
http://nasional.kompas.com/read/2013/05/03/17585324/Kicauan.Burung.Susno.Turut.Ungkap.Keberadaannya?utm_source=WP&utm_medium=box&utm_campaign=Khlwp
Topik adalah inti utama dari seluruh isi tulisan yang hendak disampaikan atau lebih dikenal dengan topik pembicaraan. Topik adalah hal yang pertama kali ditentukan ketika penulis akan membuat tulisan. Topik yang masih awal tersebut, selanjutnya dikembangkan dengan membuat cakupan yang lebih sempit atau lebih luas.
Terdapat beberapa kriteria untuk sebuah topik yang dikatakan baik,
diantaranya adalah topik tersebut harus mencakup keseluruhan isi
tulisan, yakni mampu menjawab pertanyaan akan masalah apa yang hendak ditulis. Ciri utama dari topik adalah cakupannya atas suatu permasalahan msih bersifat umum dan belum diuraikan secara lebih mendetail.
http://id.wikipedia.org/wiki/Topik
Karya tulis yang mudah dipahami adalah karya tulis yang sederhana tapi menarik bagi pembacanya ,dan pembahasan yang tidak terlalu berbelit-belit sehingga dapat mengurangi minat pembaca untuk membaca karya tulis itu sendiri.
