Kuliah Prokom (Pemrograman Komputer)

bismillah...
alhamdulillah belum telat...
sakjane ya sudah ding...
wes mlayu2, dari musholla trus naik ke lantai 3 lab kom matk...
hhhhh....
ngos2an..
smpe di atas, menclingukkan kepala ke dalam ruangan, lihat ke depan kok bapaknya ga ada?

aku: "Ntan, bapaknya mana?"
intan: "Bapaknya baru ke belakang..."
alhamdulillah...
hehe sekarang tugasnya adalah,,,
membuat program hari lahir...
aku: "Na, suruh ngapain?"
(mrs) una: "Itu lho, suruh mbuat program yg di papan tulis itu lho..."
di papan tulis telah terhampar goresan pak dosen..
"Buatlah program pascal untuk menentukan hari lahir dan pasaran jika diketahui tanggal lahir seseorang"
hmm...
pye yo...
aku: "Pye Na?"
(mrs) una: "Ga tau"
kdek juga...
mbk riska jg...
hm,,,
akhirnya aku nyoba nyari di google...
malah nemu ini..
yo gapapa..
aku posting aja..
semoga bermanfaat dan bisa buat kita belajar...
amiin...

(dicopy dari http://yuda90.wordpress.com/2009/12/23/program-menghitung-umur-pascal/)


uses crt;
var hr1,hr2,bln1,bln2,thn1,thn2,jumlah_hari,thn,bulan,hari:longint;
begin
clrscr;
writeln(‘Masukan tgl,bln,tahun sekarang : ‘);
write(‘Tanggal : ‘);read(hr1);
write(‘Bulan : ‘);read(bln1);
write(‘Tahun : ‘);read(thn1);
Writeln(‘Masukan Tanggal lahir anda :’);
write(‘Tanggal : ‘);read(hr2);
write(‘Bulan : ‘);read(bln2);
write(‘Tahun : ‘);read(thn2);
jumlah_hari:=(thn1-thn2)*365+(bln1-bln2)*30+(hr1-hr2);
thn:=jumlah_hari div 365;
bulan:=(jumlah_hari mod 365) div 30 ;
hari:=(jumlah_hari mod 365)mod 30;
writeln(‘umur anda dalam hari: ‘, (jumlah_hari),’hari, dan dihitung dalam tahun: ‘,thn,’tahun. ‘);readln(jumlah_hari,thn);
end.

uwes yooo
ki malah digannggu essong...
(eh, essy ding,,mb.essy cuantiQ...hehe)

pas essy tak kasih tahu, "Emang enek Da?"
"Eneekkkk...," jawabku.
"Pye pye Da carane? Nggolek apa?"
"Yo opo lah sakkarepmu...tulis wae, 'program mencari hari lahir' atau apa lah, golek2 wae.."

hmmm..
sudah dulu ya..
aku tak melanjutkan garapan prokom...

Ya Allah,,
ngelakkkk....

hmm,,,
bismillah,,,

wassalam...
=salam pena=

Rabu, 27 oktober, H+1 merapi 'meletus', beberapa jam setelah mbah maridjan ditemukan meninggal tadi pagi, di sela2 kuliah prokom @lab kom lt.3

Semester Lima

Bismillah...

wah, ga terasa -terasa ding- dah lama ndak postin blog ini...

*ayok teman2...
makmurkan blog kita,,!!

rencana mau posting blog ya isine tulisan. tp mungkin dikit aja ya...
berhubung td habis dapat kopian foto2 pas buber kemarin, jd smangat buat blogging ki
hehe,,

hhh...
semester 5...
sudah kurang lebih 2 tahun kita bersama
banyak hal yg sudah berubah...
banyyyyaaaaakkkkk sekali....

ada yg tambah ini
tambah itu

ada yg sudah jd mrs juga...
hehe, pisss naa
barakallahulakum...
*kpn2 insyaAllah sesi ini akan mendapat postingan tersendiri. tp bukan sekkarang -meskipun sdh telat. hehe- tp gpp.

dan masssiiiihhh mbanyak lagi.
entah ttg kondisi teman2, kondisi kelas, kampus, dll.

dan ini saya posting beberapa foto teman2 waktu kita buber kemarin, 16 agustus 2010 (buber-3 kita), di dekanat selatan, tangga pintu masuk...

hmmm,,
alhamdulillah,,,
tapi sayang, ga semuanya dtg...

ni foto2nya, lsg saja ya...
hehe
enjoy it...


dan sekedar informasi, semester ini, ada obrolan khas yg akhir2 ini kerap diperbincangkan. apa itu?

"Nggonmu wees piro, An?"

"'Kowe wes kebak yo, Ty?"

"Wah, nggonaku wes full e..."

"Aku mbuang limo..." -wah, nek sing iki ekstrim ki, hehe-

tebakkk,,, apa yg sedang mereka bicarakan???

yak betul!
ini adalah obrolan ttg job. pekerjaan. makaryo.

semester 5 ini entah kenapa, menjadi musim2 ngeles bagi tmn2.
entah itu muridnya dari TK, sampe anak kuliahan pun ada lhooo
ckckck....
subhanallah,,,,

*bab ini juga insyaAllah, semoga akan ada postingan tersendiri, hehe..

sudah dulu ya,,
aku tak nggarap liyane dhikin. mau ngrampungke puisi buat llomba porseni je..
deadline besok.
hmm,,,
bismillah,,,,
doanya ya...

terakhir,
special 4 sdra2ku seperjuangan...

SMANGATTTT....!!!

apapun masalah dan ujian yg sdg kalian hadapi,
semoga itulah yg akan mengokohkan kita.
menjadikan kita kuat dan makin dewasa.
makin shalih shalihah...
amiin...

Key! ^,^