Rabu, 19 September 2012
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
Langganan:
Postingan (Atom)