Renungkanlah Kawand. . . .

Kepompong kupu-kupu

Seseorang menemukan kepompong seekor kupu-kupu. Suatu hari lubang kecil muncul. Orang itu duduk dan mengamati dalam beberapa jam ketika kupu-kupu itu berjuang memaksa dirinya melewati lubang kecil itu.Kemudian kupu-kupu itu berhenti membuat kemajuan. Kelihatannya kupu-kupu itu telah berusaha semampunya dan dia tidak bisa lebih jauh lagi. Akhirnya orang tersebut memutuskan untuk membantunya, dia ambil sebuah gunting dan memotong sisa kekangan dari kepompong itu. Kupu-kupu itu keluar dengan mudahnya. Namun, kupu-kupu itu mempunyai tubuh gembung dan kecil serta sayap-sayapnya mengkerut. Orang tersebut terus mengamatinya karena dia berharap bahwa, pada suatu saat, sayap-sayap itu akan mekar dan melebar sehingga mampu menopang tubuh kupu-kupu itu, yang mungkin akan berkembang.

Namun semuanya tidak akan pernah terjadi. Kenyataannya, kupu-kupu itu menghabiskan sisa hidupnya merangkak dengan tubuh gembung dan sayap-sayap mengkerut. Kupu-kupu itu tidak pernah bisa terbang.

Yang tidak dimengerti dari kebaikan orang tersebut adalah bahwa kepompong yang menghambat dan perjuangan yang dibutuhkan kupu-kupu untuk melewati lubang kecil adalah jalan Tuhan untuk memaksa cairan dari kupu-kupu itu masuk ke dalam sayap-sayapnya sedemikian rupa sehingga dia akan siap terbang begitu dia memperoleh kebebasan dari kepompong tersebut.

Kadang-kadang perjuangan adalah yang kita perlukan dalam hidup kita. Jika Tuhan membiarkan kita hidup tanpa hambatan, itu mungkin melumpuhkan kita. Kita mungkin tidak sekuat yang semestinya kita mampu. Kita mungkin tidak pernah dapat terbang.

Saya mohon Kekuatan ... Dan Tuhan memberi saya kesulitan-kesulitan untuk membuat saya kuat.

Saya memohon Kebijakan ... Dan Tuhan memberi saya persoalan untuk diselesaikan.

Saya memohon Kemakmuran ... Dan Tuhan memberi saya Otak dan Tenaga untuk bekerja.

Saya memohon Keteguhan hati ...Dan Tuhan memberi saya Bahaya untuk diatasi.

Saya memohon Cinta ... Dan Tuhan memberi saya orang-orang bermasalah untuk ditolong.

Saya memohon Kemurahan/Kebaikan hati ... Dan Tuhan memberi saya kesempatan-kesempatan.

Saya tidak memperoleh yang saya inginkan, saya mendapatkan segala yang saya butuhkan.

Sebuah Kisah

Ibunda, Kenapa Engkau Menangis

Suatu ketika, ada seorang anak laki-laki yang bertanya kepada ibunya. "Ibu, mengapa Ibu menangis?". Ibunya menjawab, "Sebab, Ibu adalah seorang wanita, Nak". "Aku tak mengerti" kata si anak lagi. Ibunya hanya tersenyum dan memeluknya erat. "Nak, kamu memang tak akan pernah mengerti...."

Kemudian, anak itu bertanya pada ayahnya. "Ayah, mengapa Ibu menangis? Sepertinya Ibu menangis tanpa ada sebab yang jelas?"Sang ayah menjawab, "Semua wanita memang menangis tanpa ada alasan". Hanya itu jawaban yang bisa diberikan ayahnya.
Lama kemudian, si anak itu tumbuh menjadi remaja dan tetap bertanya-tanya, mengapa wanita menangis.

Pada suatu malam, ia bermimpi dan bertanya kepada Tuhan."Ya Allah, mengapa wanita mudah sekali menangis?"Dalam mimpinya, Tuhan menjawab,"Saat Kuciptakan wanita, Aku membuatnya menjadi sangat utama.Kuciptakan bahunya, agar mampu menahan seluruh beban dunia dan isinya, walaupun juga, bahu itu harus cukup nyaman danlembut untuk menahan kepala bayi yang sedang tertidur.

Kuberikan wanita kekuatan untuk dapat melahirkan, danmengeluarkan bayi dari rahimnya, walau, seringkali pula, ia kerap berulangkali menerima cerca dari anaknya itu.

Kuberikan keperkasaan, yang akan membuatnya tetap bertahan, pantang menyerah, saat semua orang sudah putus asa.

Pada wanita, Kuberikan kesabaran, untuk merawat keluarganya, walau letih, walau sakit, walau lelah, tanpa berkeluh kesah.

Kuberikan wanita, perasaan peka dan kasih sayang, untuk mencintai semua anaknya, dalam kondisi apapun, dan dalam situasi apapun. Walau, tak jarang anak-anaknya itu melukai perasaannya, melukai hatinya. Perasaan ini pula yang akan memberikan kehangatan pada
bayi-bayi yang terkantuk menahan lelap. Sentuhan inilah yang akan memberikan kenyamanan saat didekap dengan lembut olehnya.

Kuberikan wanita kekuatan untuk membimbing suaminya, melalui masa-masa sulit, dan enjadi pelindung baginya. Sebab, bukankah tulang rusuklah yang melindungi setiap hati dan
jantung agar tak terkoyak?Kuberikan kepadanya kebijaksanaan, dan kemampuan untuk
memberikan pengertian dan menyadarkan, bahwa suami yang baik adalah yang tak pernah melukai istrinya. Walau, seringkali pula, kebijaksanaan itu akan menguji setiap kesetiaan yang
diberikan kepada suami, agar tetap berdiri, sejajar, saling melengkapi, dan saling menyayangi.

Dan, akhirnya, Kuberikan ia air mata agar dapat mencurahkanperasaannya. Inilah yang khusus Kuberikan kepada wanita, agar dapat digunakan kapanpun ia inginkan. Hanya inilah kelemahan yang dimiliki wanita, walaupun sebenarnya, air mata ini adalah air mata kehidupan".

Maka, dekatkanlah diri kita pada sang Ibu kalau beliau masih hidup

Sebuah Kisah

Ibunda, Kenapa Engkau Menangis

Suatu ketika, ada seorang anak laki-laki yang bertanya kepada ibunya. "Ibu, mengapa Ibu menangis?". Ibunya menjawab, "Sebab, Ibu adalah seorang wanita, Nak". "Aku tak mengerti" kata si anak lagi. Ibunya hanya tersenyum dan memeluknya erat. "Nak, kamu memang tak akan pernah mengerti...."

Kemudian, anak itu bertanya pada ayahnya. "Ayah, mengapa Ibu menangis? Sepertinya Ibu menangis tanpa ada sebab yang jelas?"Sang ayah menjawab, "Semua wanita memang menangis tanpa ada alasan". Hanya itu jawaban yang bisa diberikan ayahnya.
Lama kemudian, si anak itu tumbuh menjadi remaja dan tetap bertanya-tanya, mengapa wanita menangis.

Pada suatu malam, ia bermimpi dan bertanya kepada Tuhan."Ya Allah, mengapa wanita mudah sekali menangis?"Dalam mimpinya, Tuhan menjawab,"Saat Kuciptakan wanita, Aku membuatnya menjadi sangat utama.Kuciptakan bahunya, agar mampu menahan seluruh beban dunia dan isinya, walaupun juga, bahu itu harus cukup nyaman danlembut untuk menahan kepala bayi yang sedang tertidur.

Kuberikan wanita kekuatan untuk dapat melahirkan, danmengeluarkan bayi dari rahimnya, walau, seringkali pula, ia kerap berulangkali menerima cerca dari anaknya itu.

Kuberikan keperkasaan, yang akan membuatnya tetap bertahan, pantang menyerah, saat semua orang sudah putus asa.

Pada wanita, Kuberikan kesabaran, untuk merawat keluarganya, walau letih, walau sakit, walau lelah, tanpa berkeluh kesah.

Kuberikan wanita, perasaan peka dan kasih sayang, untuk mencintai semua anaknya, dalam kondisi apapun, dan dalam situasi apapun. Walau, tak jarang anak-anaknya itu melukai perasaannya, melukai hatinya. Perasaan ini pula yang akan memberikan kehangatan pada
bayi-bayi yang terkantuk menahan lelap. Sentuhan inilah yang akan memberikan kenyamanan saat didekap dengan lembut olehnya.

Kuberikan wanita kekuatan untuk membimbing suaminya, melalui masa-masa sulit, dan enjadi pelindung baginya. Sebab, bukankah tulang rusuklah yang melindungi setiap hati dan
jantung agar tak terkoyak?Kuberikan kepadanya kebijaksanaan, dan kemampuan untuk
memberikan pengertian dan menyadarkan, bahwa suami yang baik adalah yang tak pernah melukai istrinya. Walau, seringkali pula, kebijaksanaan itu akan menguji setiap kesetiaan yang
diberikan kepada suami, agar tetap berdiri, sejajar, saling melengkapi, dan saling menyayangi.

Dan, akhirnya, Kuberikan ia air mata agar dapat mencurahkanperasaannya. Inilah yang khusus Kuberikan kepada wanita, agar dapat digunakan kapanpun ia inginkan. Hanya inilah kelemahan yang dimiliki wanita, walaupun sebenarnya, air mata ini adalah air mata kehidupan".

Maka, dekatkanlah diri kita pada sang Ibu kalau beliau masih hidup

Tuk shbtq. .

CERITAKANLAH . . . .

Bukankah aku adalah teman baikmu

tapi mengapa kau begitu tertutup

ceritakan apa yang tengah kau rasakan

sehingga kau begitu termenung

Memang aku tidak menjanjikan

dapat memberi penyelesaian

Memang akupun belum tentu

dapat memberikan saran untukmu

Tapi setidaknya engkau tak sendiri

aku kan selalu berusaha membantu

Ingatlah Allah selalu di hatimu

Dialah penolongmu yang sejati (hakiki)

kawan …

Namun bila engkau tidak mau

aku tak akan pernah memaksamu

bila itu terlalu pribadi

hanyalah untuk di hati

Tugas Akhir Modul 6 Praktikum Alpro

TUGAS AKHIR

Buatlah algoritma dan terjemahkan dalam bahasa pascal untuk memasukkan data belanja dan menampilkannya dalam bentuk nota Belanja. Total Harga dan Total belanja didapat dengan melakukan proses perhitungan kemudian hasil nya ditampilkan dalam bentuk seperti contoh dibawah ini.

Nota Belanja Barang

Toko ABADI

Jl. Riwa-riwi No. 123 Surabaya

Tanggal Pembelian      : 04-11-2009

Nama Pembeli             : Yoremi Sido

Alamat                        : Jl. Suka-suka No. 321 Surabaya

No	Kode Barang	Nama Barang	Harga Satuan (Rp)	Jumlah	Harga x Jumlah (Rp)
1	AB123	Barang A	15000	2	30000
2	BC234	Barang B	20000	1	20000
3	CD345	Barang C	25000	2	50000
4	DE456	Barang D	30000	3	90000
5	EF567	Barang E	35000	4	140000
T O T A L   B E L A N J A (Rp)					330000

Jawaban :

Program Nota;

uses wincrt;

var

kode : array[1..20] of string;

nama_barang : array[1..20] of string;

harga : array[1..20] of real;

banyak : array[1..20] of byte;

kata,grs :string;

x,y,i,j :byte;

Jum_Harga,Total_Harga,disc,Total_Bayar,uang :real;

begin

clrscr;

grs:='=========================================================================';

kata:='Nota Belanja Barang Toko ABADI Jl. Riwa-riwi No. 123 Surabaya';

x:=round((78-length(kata))/2);

gotoxy(x,2);writeln(kata);

x:=round((78-length(grs))/2);

gotoxy(x,3);write(grs);

{-----------------------------}

gotoxy(x,4);write('Tanggal Pembelian: ');readln;

gotoxy(x,5);write('Nama Pembeli: ');readln;

gotoxy(x,6);write('Alamat: ');readln;

gotoxy(x,7);write(grs);

gotoxy(x,8);writeln('| No |  Kode |   Nama Barang    | Harga Satuan  | Jumlah | Jumlah Harga |');

gotoxy(x,9);write(grs);

{--------------------------------------------------------------------}

i:=0;

Total_Harga:=0;

repeat

i:=i+1;

gotoxy(x,9+i);write('| ',i);

gotoxy(x+5,9+i);write('|');

gotoxy(x+9,9+i);readln(kode[i]);

if kode[i] <>'' then begin

gotoxy(x+13,9+i);write('|');

gotoxy(x+15,9+i);readln(nama_barang[i]);

gotoxy(x+32,9+i);write('|');

gotoxy(x+33,9+i);readln(Harga[i]);

gotoxy(x+33,9+i);writeln(Harga[i]:10:2);

gotoxy(x+48,9+i);write('|');

gotoxy(x+50,9+i);readln(Banyak[i]);

gotoxy(x+57,9+i);write('|');

Jum_Harga:=Harga[i]*Banyak[i];

gotoxy(x+58,9+i);writeln(Jum_Harga:10:2);

gotoxy(x+72,9+i);writeln('|');

Total_Harga:=Total_Harga+Jum_Harga ;

end;

until nama_barang[i]='';

j:=i-1;

gotoxy(x,10+j);write(grs);

gotoxy(x,10+j+1);write('Total Belanja (Rp) --------------------------------------:');

gotoxy(x+58,10+j+1);write(Total_Harga:10:2);

gotoxy(x+72,10+j+1);write('|');

gotoxy(x,12+j);write(grs);

end.

Tugs Tambahan Modul 5 Praktikum Alpro

TUGAS TAMBAHAN

Buatlah menu matrik yang berisi matrik penjumlahan, matrik pengurangan, dan matrik perkalian.

LISTING PROGRAM :

Running Program :

Tugas Akhir Modul5 Praktikum Alpro

Tugas Akhir

Pertanyaan:
Buatlah algoritma dan terjemahkan dalam Bahasa Pascal untuk operasi invers matriks sampai ordo 3!
jawaban :
progrm invers;
uses wincrt;
var
nomor_menu:integer;
procedure ordo2;
var
A,B,C,D,i,invers:real;
begin
clrscr;gotoxy(20,1);
writeln('Mencari Invers Matriks Ordo 2x2 ');
gotoxy(10,5);write('A=');read(A);
gotoxy(18,5);write('B=');read(B);
gotoxy(10,7);write('C=');read(C);
gotoxy(18,7);write('D=');read(D);
i:=(A*D)-(B*C);
if not(i=0) then
begin
invers:=1/((A*D)-(B*C));
A:=D*invers;
B:=-B*invers;
C:=-C*invers;
D:=A*invers;
gotoxy(25,10);writeln('Invers matriks A =');
gotoxy(10,13);write(A:0:3);
gotoxy(18,13);write(B:0:3);
gotoxy(10,16);write(C:0:3);
gotoxy(18,16);write(D:0:3);
end;
end;
procedure ordo3;
var
A,B,C,D,E,F,G,H,I:real;
ADet,BDet,CDet,DDet,EDet,FDet,GDet,HDet,IDet:real;
Det:real;
AI,BI,CI,DI,EI,FI,GI,HI,II:real;
begin
clrscr;gotoxy(20,1);
writeln('Mencari Invers Matriks Ordo 3x3 ');
gotoxy(10,5);write('A=');read(A);
gotoxy(18,5);write('B=');read(B);
gotoxy(27,5);write('C=');read(C);
gotoxy(10,7);write('D=');read(D);
gotoxy(18,7);write('E=');read(E);
gotoxy(27,7);write('F=');read(F);
gotoxy(10,9);write('G=');read(G);
gotoxy(18,9);write('H=');read(H);
gotoxy(27,9);write('I=');read(I);

{mencari determinan disetiap elemen}
ADet:=(E*I)-(F*H);
BDet:=-((B*I)-(C*H));
CDet:=(B*F)-(C*E);
DDet:=-((D*I)-(F*G));
EDet:=(A*I)-(C*G);
FDet:=-((A*F)-(C*D));
GDet:=(D*H)-(E*G);
HDet:=-((A*H)-(B*G));
IDet:=(A*E)-(B*D);
{DATA TERSEBUT SUDAH HASIL DARI TRANSPOS}

Det:=(A*E*I)+(B*F*G)+(C*D*H)-(C*E*G)-(A*F*H)-(B*D*I);
if not(Det=0) then
begin
AI:=1/Det*((E*I)-(F*H));
BI:=1/Det*(-((B*I)-(C*H)));
CI:=1/Det*((B*F)-(C*E));
DI:=1/Det*(-((D*I)-(F*G)));
EI:=1/Det*((A*I)-(C*G));
FI:=1/Det*(-((A*F)-(C*D)));
GI:=1/Det*((D*H)-(E*G));
HI:=1/Det*(-((A*H)-(B*G)));
II:=1/Det*((A*E)-(B*D));

gotoxy(30,10);
writeln('Invers matriks A =');
gotoxy(10,13);write(AI:0:3);
gotoxy(18,13);write(BI:0:3);
gotoxy(27,13);write(CI:0:3);
gotoxy(10,16);write(DI:0:3);
gotoxy(18,16);write(EI:0:3);
gotoxy(27,16);write(FI:0:3);
gotoxy(10,19);write(GI:0:3);
gotoxy(18,19);write(HI:0:3);
gotoxy(27,19);write(II:0:3);
end;
end;

begin
clrscr;
writeln(' 1.ordo2 ');
writeln(' 2.ordo3 ');
write(' Masukkan pilihan anda= ');readln(nomor_menu);
case nomor_menu of
1:begin
ordo2;
end;
2:begin
ordo3;
end;
end;
end.

Running Program :

TUGAS AKHIR

Modul3 Praktikum Alpro

Buatlah algoritma dan terjemahkan dalam Bahasa Pascal untuk membuat bentuk belah ketupat  dari deretan angka berdasarkan batas nilai yang dimasukkan melalui piranti masukan!

Contoh:

Masukkan batas nilai: 5

Hasil belah ketupat deretan angka:

1

1  2  1

1  2  3  2  1

1  2  3  4  3  2  1

1  2  3  4  5  4  3  2  1

1  2  3  4  3  2  1

1  2  3  2  1

1  2  1

1

Listing program :                          Running Program :