Harapan

HARAPAN
Rasa dan Angan menjadi satu
Pengandaian dan Permohonan menjadi satu
Keinginan dan pencapaian menjadi satu

Dunia fana…
Dunia yang membuat kita berharap
Berharap akan menjadi seseorang
Berharap akan menjadi yang terbaik

Mimpi dan harapan menjadi satu
Bersatu menjadi sebuah cita-cita
Bersatu menjadi sebuah asa yang bermakna
Asa yang berharga

Harapan
Harapan itu indah
Harapan itu kosong
Harapan itu hampa bila tak dijalankan dan dilakukan

Read More

soal bu marliza no.5

¦uses crt, dos; ?
¦procedure CetakHariTanggal; ¦
¦Const ¦
¦ HARI : array[0..6]of string [9]= ¦
¦ ('Minggu','Senin','Selasa','Rabu','Kamis','Jumat','Sabtu'); ¦
¦Var ¦
¦ tahun,bulan,harike, nohari:word; ¦
¦ ¦
¦ begin ¦
¦ GetDate (tahun,bulan,harike,nohari); ¦
¦ writeln('Hari :',Hari [nohari]); ¦
¦ writeln('Tanggal :',harike :0,'-',bulan :0,'-',tahun:0); ¦
¦ end; ¦
¦ ¦
¦begin ¦
¦ clrscr; ¦
¦ CetakHariTanggal; ¦
¦ Readln; ¦
¦end. ¦

Read More

KETIKA

Kata itu terlihat singkat
kata itu terdengar ringan
kata itu terbaca simpel
kata itu berarti sempit

ketika...
ketika adalah sebuah kata pengandaian
kata pengandaian akan sesuatu
pengandaian akan harapan kita

ketika...
ketika terucap saat dipikiran kita terlintas pengandaian
ketika membuat kita berimajinasi
ketika membuat kita berhayal
karena Ketika adalah kata pengandaian

Read More

tugas AP Bu Marliza no. 5

uses wincrt;
var input:real;
c, f, r:real;
suhu:char;
angka:real;
puas:char;
Celcius, Reamur, Fahrenheit:real;
label 100;

begin

100:
write(’Masukkan Jenis Suhu Celcius/ Fahrenheit/ Reamur (c/f/r) : ‘);
readln(suhu);

if(suhu <> ‘c’)then
if(suhu <> ‘f’)then
if(suhu <> ‘r’)then

begin
writeln(’Jenis suhu yang anda masukan salah, silahkan ulangi sekali lagi’);
writeln;
goto 100;
end;

begin
write(’Masukkan angka : ‘);
read(angka);
readln;
end;

if(suhu = ‘c’)then
begin
f:=(angka * 9/5) + 32;
r:=angka * 4/5;
writeln(’Hasil konversi dari suhu : Celcius’);
writeln(’Dalam Fahrenheit adalah : ‘,f:4:2);
writeln(’Dalam Reamur adalah : ‘,r:4:2);
end;

if(suhu = ‘f’)then
begin
c:=(angka * 5/9);
r:=(angka * 4/9) + 32;
writeln(’Hasil konversi dari suhu : Fahrenheit’);
writeln(’Dalam Celcius adalah : ‘,c:4:2);
writeln(’Dalam Reamur adalah : ‘,r:4:2);
end;

if(suhu = ‘r’)then
begin
c:=angka * 5/4;
f:=(angka * 9/4) + 32;
writeln(’Hasil konversi dari suhu : Reamur’);
writeln(’Dalam Celcius adalah : ‘,c:4:2);
writeln(’Dalam Fahrenheit adalah : ‘,f:4:2);
end;

write(’Apakah Anda puas? (y/n) : ‘);
readln(puas);

if(puas=’n’)then
goto 100

end.

Read More

KEHILANGAN SEORANG BAPAK

Kehilangan seorang bapak

Sejak kecil aku selalu dimanja. Aku adalah anak terakhir dari tiga orang bersaudara. Aku dilahirkan menjadi wanita tomboy. Tak pernah aku menginginkan menggunakan rok kecuali saat sekolah. Baju yang selalu aku beli adalah baju bercelana dan bergambar kartun. Apa yang aku inginkan selalu diberi oleh bapak. Bapak adalah orang yang tak pernah mengeluh pada anak-anaknya jika sedang berrmasalah. Bapak ku tipikel orang yang tak perduli apa kata orang tentangnya. Beliau hanya ingin menjadi yang terbaik bagi keluarganya. Bapak ku selalu sabar dan tenang jika menghadapi orang yang tidak suka kepadanya. Bapak ku selalu berusaha dan rajin dalam membahagiakan istri dan anak-anaknya. Beliau mulai semua dari dasar hingga dapat menghasilkan sesuatu yang berguna bagi istri dan anaknya nanti. Bapak selalu memberikan apa yang aku inginkan. Bapak memberikanku semua, dari mulai piano mainan, pianika, bola basket, gitar, dan mobil yang kuminta pada beliau secara spontan tapi aku tak bias menjaga barang-barang yang belia beli untuk ku. Waktu itu memang aku tidak terlalu dekat dengan bapak. Tapi bapak selalu menjaga ku dirumah dan bila beliau bepergian untuk belanja, aku selalu diajak. Belia membanggakan ku seperti ini kepada orang “anak saya rajin puasa walaupun masi kecil”. Mendengar seperti itu, anak mana yang tidak bahagia bila dibanggakan bapaknya. Sejak kecil aku dimandikan bapakku. Bapakku tak pernah mengeluh tentang aku. Aku memang kadang tidak menurut pada kata-kata bapakku. Sampai bapak bilang “gak ada bapak manupun yang mau melakukan pekerjaan ngpel,nyuci piring. Coba kamu Tanya sama temen-temen kamu.” Aku merasa benar apa yang dibilang bapakku.
Pada suatu hari, beliau akan mendirikan toko bersama keponakannya. Beliau pergi kesana-kemari untuk mencari peralatan yang beliau butuhkan sampai-sampai beliau tidak mengatur pola makannya dan tidak memperdulikan kesehatannya. Beliau terus bekerja demi keponakannya. Beliau pun terjatuh sakit dan harus dirawat inap selama beberapa hari karena kurang darah. Darah yang dibutuhkannya pun sulit dicari. Saat ingin dirawat pun beliau tidak bercerita pada istri dan anaknya kalau beliau sedang sakit. Beliau mengganggap semua akan baik-baik saja. Beliau selalu tertawa didepan istri dan anaknya. Walaupun sedang sakit, beliau masih bisa bercanda. Beliau tak ingin terlihat sedih atupun lemah didepan orang.
Sampai suatu hari keadaannya membaik tetapi bapakku mulai agak lupa dan sering mengigau dimalam hari. Kesehatan bapak pun menurun dan ternyata bapakku terkena struk dan beliau tidak bisa melksanakan aktifitasnya sehari-hari seperti biasanya. Bapak hanya bisa tidur dan berada diatas kursi roda. Hanya istri dan anak-anaknya lah beliau diurus. Kemana orang-orang yang telah dibantu bapak?? Semua seakan tak perduli. Mama, kedua kakakku dan akan selalu memberikan semangat kepada bapak “ayo pak semangat,jangan lemas”. Dan bapak pun berkata dengan sulitnya “semangat”.
Hari pun berlalu sampai akhirnya kesehatan bapak menurun. Beliau tidak mengingat orang yang ada disekelilingnya. Mama orang yang paling sedih akan semua ini. Suami yang dicintainya harus terbaring dikamar dengan menahan kesakitan. Suatu malam aku ingin sekali terbangun untuk solat tahajud, tetapi aku sangat takut untuk keluar. Aku ingin mendoakan bapakku. Mama dan kakakku menjaga bapak dikamarnya. Pagi pun datang. Tiba-tiba mama dan kakakku berteriak dan menagis dengan histeris. Aku pun meliHat kedalam kamar. Bapakku telah tiada. Beliau telah meninggal. Kakakku dan mamaku sontak menangis. Aku tak bisa menangis padahal hati ini sangat bersedih. Aku teringat kata guruku. Jika keluarga kita atau siapapun yang meninggal dunia, kita jangan menangisinya karena akan menambah berat beban orang yang meninggal. Aku hanya bisa terdiam dan mencoba tegar untuk menahan tangisanku.
Setelah lama bapak meninggalkan kami, aku baru bisa menangis saat aku teringat bapak. Ingin sekali membuat bapak bangga dan bahagia mempunyai anak seperti aku. Aku tak ingin mengecewakan keluargaku. Dan aku tidak ingin kehilangan mama dan kakakku. Aku sangat menyanyangi dan ingin membuat mereka bangga. Satu hal yang aku harap, semoga bapak disana selalu diberi tempat yang nyaman dan setiap dosanya diampuni Allah swt (amin). Aku sangat merindukan bapak. Bapak maafkan semua kesalahanku yang tak pernah bisa membuat dirimu bahagia. Aku sangat menyesal.

Read More

AP 2A

=> REPEAT UNTIL <=
╔═[■]════════════════════════════ NONAME00.PAS ══════════════════════════1═[↕]═╗
║uses crt; ▲
║var ■
║ i: integer; ▒
║begin ▒
║clrscr; ▒
║i:= 0; ▒
║repeat ▒
║i:= i+1;
║writeln (i); ▒
║until i= 5 ▒
║end. ▒


=> FOR..to..do <=
╔═[■]════════════════════════════ NONAME00.PAS ══════════════════════════1═[↕]═╗
║uses crt; ▲
║var ■
║ i: integer; ▒
║ begin ▒
║ clrscr; ▒
║ for i := 1 to 5 do ▒
║ writeln ('PASCAL'); ▒
║end. ▒

=> WHILE DO <=

uses crt;
var
d:integer;
begin
d:=1;
while d<=20 do
begin
writeln(d);
d:=d+1;
end;
end.

=> IF THEN <=

Var
Nilai : real ;
Ket : string[11] ;
Begin
Ket : = ‘Tidak Lulus’ ;
Write (‘Nilai yang didapat ?’) ;
Readln (Nilai) ;
If Nilai > 60 then ket : = ‘Lulus’ ;
Writeln (Ket);
End.

=> CASE OF <=

Var
Nilai : char ;
Begin
Write (‘Nilai huruf yang didapat ?’); readln (Nilai);
Case Nilai of
‘A’ : writeln (‘Sangat baik’) ;
‘B’ : writeln (‘baik’) ;
‘C’ : writeln (‘Cukup’) ;
‘D’ : writeln (‘Kurang’) ;
‘E’ : writeln (‘Gagal’) ;
End ;
End.

Read More

program Pascal AP 2A

uses Crt;
var
x,y,z : longint;
lagi : char;
namak : string[20];

begin
lagi := 'y';
while (lagi = 'y') or (lagi = 'Y') do
begin
clrscr;
write('Siapa Nama Anda..?'); ReadLn(namak);
writeLn;
write('Hallo ',namak,', Coba kamu');
WriteLn(' masukan nilai x,y dan z ');
writeLn('pada operasi matematika ini.');
writeLn;
writeLn('Operasi matematika X^2 + y^2 + z =..... ');
write('masukan nilai x..= '); ReadLn(x);
write('masukan nilai y..= '); ReadLn(y);
write('masukan nilai z..= '); ReadLn(z);
writeLn;
writeLn('nilai operasi x^2 + y^2 + z adalah : ',x*x+y*y+z);
writeLn;
write('Mau hitung lagi apa tidak (y/t), ',namak,' ? ');
readLn(lagi);
end;
end.


=> OUTPUT <=
Siapa Nama Anda...? _

Siapa Nama Anda...? ILFA FAUJIA
Hallo ILFA FAUJIA, Coba kamu masukan nila x,y, dan z
pada operasi matematika dibawah ini.

Operasi matematika x^2 + y^2 + z adalah = ......
masukan nilai x..= _

Siapa Nama Anda...? ILFA FAIJIA
Hallo BEJO, Coba kamu masukan nila x,y, dan z
pada operasi matematika dibawah ini.

Operasi matematika x^2 + y^2 + z adalah = ......
masukan nilai x..= 2
masukan nilai y..= 2
masukan nilai z..= 2

nilai operasi x^2 + y^2 + z adalah : 10

Mau hitung lagi apa tidak (y/t), ILFA FAUJIA ? _

Read More