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