Rabu, 20 Juni 2012

pentingnya sayang ibu


Deret kaki melangkah tertatih
Menyusuri sempitnya dunia ini
Berat langkahnya
Tak tau arah
Dia yang selalu ada
Sebagai dinding hidup kekejaman dunia
Melindungi titik kecil dalam hidupnya
Membawa beban dalam perutnya
Ketika itu....
Dia tau...
bahwa titik kecil dalam hidupnya
membawa sebuah kebahagiaan
Dengan jerit tangis pertama
dia selalu bahagia memiliki ku
memiliki dunia
karena dia adalah BUNDA
sang pahlawan hidupku

                       
                                D THR33 R’

SETENGAH HATI




Hati ini gelisah karena cintamu
Karena aku tak sanggup untuk bertahan
Keadaan yang buwatku memilih antara dirimu atau mereka
Aku hidup selimutkan rasa bersalah
Aku memilih mencintaimu
Tapi hati ini selalu memilih seujuta bintang yang selalu bersinar
Tanpa ku perdulikan bulan yang redup karena ku
Kau disana dengan harapan tuk bersinar terang
Namun bayangan ini selalu menutupi sinar itu
Maafkan atas kerasnya batu karang yang jauh disana
Aku ingin menjerit
Aku tak ingin dalam keadaan itu
Keadaan dimana diriku harus memilih
Bulan atau sejuta bintang tuk menyinariku

PROGRAM PASCAL PENGHITUNG KALOR


PROGRAM AKHIR PASCAL SEMESTER 2
PROGRAM Penghitung_Kalor;
Uses Crt;
VAR 
 Q : real;
m1,m2,c,T1,T2,L : real;
Q2:real;
pil:integer;
BEGIN
Clrscr;
Textcolor(13);
Gotoxy(6,5);write(‘\^.^/ Selamat datang di program penghitung kalordan kalor laten \^.^/’);
Textcolor(3);
Gotoxy(31,10);write(‘1.Kalor’);
Gotoxy(31,12);write(‘2.Kalor Laten’);
Textcolor(4);
Gotoxy(38,15);write(‘PILIHAN:’);
Gotoxy(48,15);read(pil);
Delay(1000);
If pil=1 then
BEGIN
Clrscr;
Gotoxy(27,5);write(‘Massa benda:            kg);
Delay(1500);
Gotoxy(27,7);write(‘Kalor jenis benda:               j/kg’);
Textcolor(5);
Delay(1500);
Gotoxy(31,9);write(‘Suhu(T1) dalam kelvin:                     derajat K’);
Delay(1500);
Gotoxy(31,11);write(‘Suhu(T2)dalam kelvin:                  derajat K’);
Delay(1500);
Gotoxy(41,5);read(m1);
Gotoxy(47,7);read(c);
Gotoxy(54,9);read(T1);
Gotoxy(54,11);read(T2);
Textcolor(10);
Gotoxy(35,15);write(‘Nilai kalor:                  joule’);
Q:=(m1*c*(T2-T1));
Gotoxy(49,15);write(Q:2:2);
READKEY;
END;
If pil=2 then
BEGIN
Clrscr;
Textcolor(10);
Gotoxy(27,6);write(‘Massa benda:                 kg’);
Delay(1500);
Gotoxy(27,8);write(‘Masukkan nilai kalor:                   joule’);
Delay(1500);
Gotoxy(30,11);write(‘Nilai Kalor Laten:                        j/Kg’);
Gotoxy(41,6);read(m2);
Gotoxy(50,8);read(Q2);
L:=(Q2/m2);
Gotoxy(50,11);write(L:2:2);
Readkey;
End;
BEGIN
Clrscr;
Delay(2000);
Gotoxy(20,12);write(‘\”.”> TERIMAKASIH ANDA SUDAH MENCOBA <”.”/’);
READKEY;
END;
END.
PROGRAM PROCEDURE
Program  TITIK_KOORDINAT;
Uses crt;
Var      absis,ordinat,pengali:integer;
Procedure   dilat(a,b,peng:integer);
Var     c,d:integer;
Begin
c:=a*peng;
d:=b*peng;
Writeln(‘(‘,c,’,’,d,’)’);
End;
Begin
Clrscr;
Textcolor(12);
Gotoxy(23,2);write(‘silahkan mencoba  program ini!!!!’);
Delay(2500);
Textcolor(13);
Gotoxy(33,6);write(‘Koordinat Awal’);
Gotoxy(32,10);write(‘Absis:’);
Gotoxy(32,12);write(‘Ordinat:’);
Gotoxy(40,10);readln(absis);
Gotoxy(41,12);readln(ordinat);
Writeln;
Gotoxy(32,14);write(‘Masukkan faktor pengali:’);
Gotoxy(57,14);readln(pengali);
Gotoxy(25,20);write(‘Kornidat(‘,absis,’,’,ordinat,’)setelah dikalikan ’,pengali,’ menjadi’);
Dilat(absis,ordinat,pengali);Readln;
End.

PROGRAM FUNCTION

PROGRAM  persamaan_kuadrat;
Uses Crt;
Var   x,y,z,s:integer;
Function  fungsi(a,b,c,x : integer):integer;
Begin
Fungsi:=a*(x*x)-b*x+c;
End;
begin
Clrscr;
Textcolor(13);
Gotoxy(9,7);write(‘program ini membantu anda menghitung nilai persamaan kuadrat’);
Gotoxy(36,10);write(‘nilai a:’);
Gotoxy(36,12);write(‘nilai b:’);
Gotoxy(36,14);write(‘nilai c:’);
Gotoxy(36,16);write(‘nilai x’);
Gotoxy(45,10);read(x);
Gotoxy(45,12);read(y);
Gotoxy(45,14);read(z);
Gotoxy(45,16);read(s);
Gotoxy(32,18);write(‘f(x)=’,x,’(x^’,x,’2)-‘,y,’x+’,z);
Gotoxy(32,20);write(‘f(‘,s,’)=’fungsi(x,y,z,s);
Readln;
End.

LOVE







My sweet memory


Walk far avoid memory
 But your shadow remain to follow
 Do not willing to my dig to feel that
 Because feeling that to make me shed tears
 I perforced to him
 But I have tempted by its beloved of love
 Me turn around up at past
 Where you is there is
 You draw this hand
 You smile at my self      
 But a moment my remembered
 I have tried to forget that memory
 You first open this liver
 I have lived with that memory
 I Always close over this weakness
 I know first I am for your x'self
 But I hope other light there [is] for me