Statement If..Then dan Case..OF di Pascal

Ah.. ni cuman posting buat pribadi aja, bukan dalam konteks menggurui atau sok pinter bikin program., itung-itung perpustakaan pribadi aja, dari pada lupa lebih baik kan disimpen di blog ini buat referensi kalo saya sendiri lupa dikemudian hari .

Tapi suer, ada ceritanya dikit :p, ceritanya gini.. Minggu kemarennya temen gue bilang “poeja” kalo di kampus ada tugas quiz bikin contoh program pascal pake statement If..Then dan Case..Of, waduh.. pas kebetulan saya ga masuk lagi hari itu ( gi sibuk beresin proyek bikin website MLM :p).
Nah.. dari pada BeTe ga ikutan quiz, saya ajak poeja untuk Fastabiqul Khoirot, adu bikin contoh program pake pascal dengan statement If..Then dan Case..Of, kasus di bikin sama berdua, ga susah-susah amat seeh (amatiran alias klasik :p), bikin slip gaji dengan ketentuan gaji berdasarkan golongan yang ditetapkan dan ditentukan oleh status perkawinan untuk menghitung tunjangan anak dan istri, dimana jika mempunyai istri diberikan tunjangan sebesar 5%, dan anak mendapat tunjangan 2% untuk tiap anak, dan tunjangan anak dibatasi sampai 3 anak, jika anak lebih dari 3 maka hanya 3 anak yang mendapatkan tunjangan. Selainnya gaji di potong pajak, besar pajak ditentukan berdasarkan golongan yang di tetapkan, pada akhirnya gaji harus di total setelah dijumlahkan kemudian di potong pajak, dan ga lupa harus dibikinkan algoritma nya.

Hueheuheuehu… sehari ama poeja berantem beda rumah, dia ngerjain di rumahnya dan saya ngerjain di rumah saya juga tentunya , hari esok pun tiba.. karena janjinya cuman sehari ya… beres juga kerjaan saya.
tapi emang si poeja tuh sontoloyo… dia kagak ngerjain!!! kampreeeeeett… hhuahauhuahuahua, alesannya monitor lah anulah.. anulah.. ember banged tuh orang (hihihihi.. biar sewot orangnya baca ini).

nah.. dari pada bEtE kan.. mendingan diposting aja disini, sekalian di taro takut nanti lupa . padahal kan ga susah-susah amat permasalahan yang di buat sama temenku itu, ni kek gini neehh…

===========================================================Start___

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

UU ITE

Waahhh… bis browsing tentang hal yang gi rame-ramenya saat ini “pemblokiran situs porno” jadi dilematik juga ya. dah baca rancangan UU-nya?.
Bagi saya, saya setuju sekali atas sikap dari pemerintah tersebut dan salut!, paling tidak untuk saat ini dapat “meminimalisir”.

Btw.. apakah efektif? efisien?, coz.. menurut saya yang masih bodoh dan masih jauh dari pinter ini ( dan lagi belajar kritis.. ceritanya.. ),  itu adalah sebuah konsekwensi dari sukses dan maraknya internet akhir-akhir ini di indonesia umumnya dan di daerah-daerah khususnya. Toh para provider yang meraup keuntungan dari konsumennya seolah “tak perduli kemana mereka menjelajah”, yang penting pembayaran lancar!.
Studi kasus selama 3 tahun ini saya mengelola warnet, saya perhatikan rata-rata orang yang baru mengenal internet khususnya daerah ” Sukabumi-ku Tercinta” mereka akhirnya akan lari ke situs-situs seperti itu. mau tidak mau “PASTI ITU”. Ya.. wa-ima karena niat awal mereka nge-net memang tujuannya seperti itu, wa-ima karena kejenuhan mereka akan kemana lagi nge-net setelah apa yang mereka butuhkan telah terpenuhi, wa-ima apalah…! tapi inti dari itu semua, terkembali kepada niat dan akhlak kita masing-masing.. ya ga! “Innamal a’malu bin Niat”

Harapan saya pribadi.. jika diberlakukannya Undang-Undang tersebut, jangan sampai rakyat dipaksa untuk nurut, tapi di kemudian hari masih ada 3gp tak senonoh oknum pemerintah yang bertebaran dimana-mana.

Ayat-Ayat Cinta

Ini sekedar curahan hati, dari pada ngelamun trus di rusuhin melulu ama ijut_enak (kalo di kampus di namain Mas Ahmad dani ama si Maia ndut :p).. pikir-pikir, mending nulis aja di blog ini.

Ceritanya kemaren, gua nonton felemnya Ayat-Ayat Cinta. Sumpeh.. gua jarang-jarang demen ama film2 berbau drama, bis.. suka ikut terharu gitu :p.
Nah.. gara-gara sodara gua tuh.. Dadang (sodara dari Bandar Lampung) ngajak nonton bareng, yahhh.. jadi mau ga mau gua juga ikut nonton, coz.. file film nya ada di komputer gua.

Tuh kan.. asli gua selama nonton jadi ikut arus perasaan di tuh film, bagus juga ceritanya yang mengisahkan seorang fahmi mendapatkan 2 istri (mau juga gua.. gleks.. :p becanda ding..). Hanya sayang… menurut gua pendalaman isi ceritanya kurang, kisah di filmnya hanya terpaku pada seorang fahmi (menurut gua loohh..)

tapi suer deh!, ada sesuatu yang banget nempel di pikiran dan di hati gua setelah nonton film itu. Jika kamu sependapat sama gua.. coba perhatiin obrolan temennya fahmi saat dipenjara, saat fahmi frustasi, saat temennya tuh nyeritain secuil sejarah Nabi yusuf AS, saat dia bilang… ALLAH SEDANG BERBICARA PADAMU! KAMU SOMBONG! KAMU MERASA SOK SUCI! itu yang sangat menyentuh hati gua, suer.. menggetarkan jiwa gua.

Bagaimana tidak..!
Gua jarang Sholat (Berarti gua sombong!)
Gua jarang Ibadah (Berarti gua sok suci!)
Gua jarang bersukur.. Gua yang sekarang sedang diberi kesehatan.. kemampuan.. dan rizki!. Bagaimana jika Allah sudah berbicara ama gua dengan cobaan yang berat??! bagaimana jika Allah berbicara ama gua dengan ujian yang gua ga sanggup memikulnya??!

Astaghfirulloha’adziim. Ampuni Aku ya Allah..
Terimakasih sudah menggetarkan hatiku meski lewat sebuah film..
dan semoga keinginan untuk berubah tidak sekedar saat hati yang kemarin bergetar saja, Amiin.

Republik :: Hanya Ingin Kau Tahu

Intro : G Bm C D 2x

G
Ku telah miliki
Bm
Rasa indahnya perihku
C
Rasa hancurnya harapku
D
Kau lepas cintaku

G
Rasakan abadi
Bm
Sekalipun kau mengerti
C
Sekalipun kau pahami
D
Ku pikir ku salah mengertimu

Reff #

E Bm
Aku hanya ingin kau tahu
C
Besarnya cintaku
D
Tingginya khayalku bersamamu

E Bm
Tuk lalui waktu yang tersisa kini
C
Di setiap hariku
D
Di sisa akhir nafas hidupku

G Bm C D

‘BAJUKU’

‘BAJUKU’

Keledai membawa buku

Kampus padat berpeluh

Aduh

Matahari tertawa

Berpacu

Memapah gemah gemulai langkah mereka

Usai Sudah

Kangen Band – Usai Sudah

Selayakkah engkau tahu
Betapa ku mencintaimu
Kau terangkanku dari mimpi burukku

Selayakkah kau mengerti
Betapa engkau kukagumi
Kau telah tinggal dalam palung hati

EPILOG DIATAS DURI

EPILOG DIATAS DURI

Ketika beban ada
Dan beban menjelma jenuh pada kepala
Disaat cerita-cerita yang terangkai
Selalu kucampakkan menjadi puing-puing berserakan

Sebuah keangkuhan menari-nari
Mengejek di mataku
Sebutir kemenangan menginjak-injak
Namaku
Hujan dan topan berkobar berkarat
Di relung hati

Ku Tulis Puisi Ini, Untukmu!

Satu persatu peluhku jatuh,tapi tak kau lihat bentuk peluhku seperti apa
kau hanya mengagungkan percikan api
yang dengan tenang, bersemayam dalam hati
ilalang yang rimbun di pelupuk mata pun
belum kau indahkan
akankah sebentar lagi kulihat belantara hutan bertengger?

Perkenalan

Ntah kenapa saya ingin membuat blog lagi, yang jelas udah beberapa kali saya buat blog semacam ini dan akhirnya ga tau kemana juntrungannya. Mungkin setelah website Komunitas IT Sukabumi yang saya kelola bersama rekan-rekan yang membuat saya membangun lagi catatan pribadi, ya… akhirnya