Minggu, 09 Februari 2014

program faktorial_pascal;
uses wincrt;
function faktorial (a:integer) : longint;
begin
     if (A=1) then
        faktorial:=1
     else
         faktorial:=a*faktorial(a-1);
end;
var x:integer;
begin
     clrscr;
     writeln('faktorial sequence');
     writeln;
     write('berapa faktorial : ');readln(x);
     writeln(x,' faktorial ','= ',faktorial(x));writeln;
     write('tekan sembarang tombol untuk keluar...');
     readln;
end.

uses wincrt;
var x,y,z,s:integer;
function fungsi(a,b,c,x:integer):integer;
         begin
         fungsi:=a*(x*x)-b*x+c;
         end;
begin
     write('masukan a :');readln(x);
     write('masukan b :');readln(y);
     write('masukan c :');readln(z);
     write('masukan x :');readln(s);
     writeln('f(x)=',x,'(x^',x,'2)-',y,'x+',z);
     writeln('f(',s,')=',fungsi(x,y,z,s));
     readln;
end.

Kamis, 21 November 2013


 Bunga Edelweis (Keabadian)


Edelweis (kadang ditulis eidelweis) atau Edelweis Jawa (Javanese edelweiss) juga dikenal sebagai Bunga Abadi yang mempunyai nama latin Anaphalis javanica, adalah tumbuhan endemik zona alpina/montana di berbagai pegunungan tinggi Indonesia. Tumbuhan ini dapat mencapai ketinggian maksimal 8 m dengan batang mencapai sebesar kaki manusia walaupun umumnya tidak melebihi 1 m.

Di balik keindahan dari bunga edelweis ternyata tersimpan sebuah mitos, dimana bagi yang memberikan bunga ini kepada pasangannya, maka cintanya akan abadi. Tidak sedikit para pencinta yang menjadikan bunga abadi ini menjadi salah satu hadiah spesial bagi pasangannya. Konon, hal itu dimaksudkan agar cintanya abadi.

Mmm.., kalau bicara mengenai mitos memang susah, meskipun terkadang itu tidak masuk akal. Tapi di lain sisi, ketika posisi kita telah menjadi korbannya, justru sebaliknya, “Mitos mampu mengalahkan sebuah logika dan keyakinan”. Nggak percaya? Coba deh tanyain ke teman-teman kamu mengenai hal ini. Atau mungkin diantara kamu memiliki cerita tersendiri mengenai mitos ini.

Siapa yang nggak tahu bunga edelweis, atau banyak orang yang memberikan istilah dengan bunga abadi. Kalau dilihat dari bentuknya bunga ini sangat cantik, dan di balik kecantikannya itu tersimpan makna ataupun mitos yang cukup banyak mempercayainya. Butuh perjuangan untuk mendapatkannya, karena bunga yang satu ini biasanya tumbuh di puncak-puncak atau lereng-lereng gunung.

Oleh karena itu kamu bisa membayangkan betapa susahnya untuk bisa memetik si bunga abadi ini. Orang bilang, “Untuk mendapatkan bunga edelweis yang indah, maka semakin besar resiko yang dihadapi”, karena nyawa adalah tantangannya. Mengingat bahwa bunga edelweis telah menjadi bunga yang langka dan dilindungi, razia juga salah satu resiko yang harus ditanggung.

Tapi.., fenomena yang ada sekarang ini justru mengharuskan kita agar dapat bijaksana dan membuat benang merah agar bunga edelweis tetap ada sebagai pelepas dahaga jika seandainya suatu saat kita berdiri di sebuah puncak yang tinggi, dimana sekeliling kita adalah hamparan bunga abadi ini. Save Edelweis!

So, kalau pacar kamu bertanya, “Kenapa kamu (tiba-tiba) nggak suka bunga edelweis? Bukankah itu bunga abadi yang bisa membuat cinta kita abadi seperti bunga edelweis?”. Cari alasan lain aja deh, yaa.. mungkin kamu bisa bilang, “Bunga itu terlalu indah untukku..”, “Aku gak tega melihatnya, karena hanya bunga ini puncak dan lembah di pegunungan menjadi indah..”, atau, “Cinta kita akan lebih indah dan abadi jika kamu memberikan bunga bank..”. Bagi yang percaya bahwa bunga edelweis bisa membuat cinta kamu abadi, akan lebih bijaksana kalau kamu justru membiarkan bunga itu tumbuh dan abadi sesuai pada tempatnya.

Kamu tidak akan pernah mendapatkan cinta abadi (dari sekuntum bunga abadi), tapi adalah cinta sejati (juga bukan dari sekuntum bunga Edelweis). Dan kamu justru tidak akan mendapatkan keduanya jika kamu tidak meyakini bahwa yang sedang kamu rasakan

Raden Ajeng Kartini


Raden Adjeng Kartini, lahir di Jepara Jawa Tengah tanggal 21 April 1879. Atau lebih tepatnya ia dipanggil dengan nama Raden Ayu Kartini, karena pada dasarnya gelar Raden Adjeng hanya berlaku ketika belum menikah, sedangkan Raden Ayu adalah gelar untuk wanita bangsawan yang menikah dengan pria bangsawan dari keturunan generasi kedua hingga ke delapan dari seorang raja Jawa yang pernah memerintah. Kartini sendiri menikah dengan bupati Rembang, K.R.M. Adipati Ario Singgih Djojo Adhiningrat pada tanggal 12 November 1903 yang telah mempunyai tiga istri. Dari pernikahannya tersebut ia dikaruniahi seorang anak perempuan bernama Soesalit Djojoadhiningrat yang lahir pada tanggal 13 September 1904.
R.A. Kartini lahir dari pasangan Raden Mas Adipati Ario Sosroningrat yakni bupati Jepara dengan M.A. Ngasirah. Kartini adalah anak ke-5 dari 11 bersaudara kandung dan tiri. Dan dari kesemua saudara sekandung, Kartini adalah anak perempuan tertua.
Oleh karena orang tuanya termasuk orang penting dalam pemerintahan, Kartini sempat diberikan kebebasan untuk mengenyam pendidikan yang lebih dibandingkan perempuan lainnya. Ia bersekolah di ELS (Europese Lagere School) walaupun hanya sampai berumur 12 tahun. Disanalah antara lain Kartini belajar bahasa Belanda.
Dengan keterampilannya berbahasa Belanda, Kartini mulai belajar sendiri dan menulis surat kepada teman-temannya yang berasal dari Belanda. Disitulah ia mencurahkan segala unek-uneknya tentang ketidakadilan yang dirasakannya akan beberapa hal yang ia anggap memojokkan wanita pada waktu itu.
17 September 1904, Kartini menghembuskan nafas terakhirnya pada usia 25 tahun. Kartini dimakamkan di Desa Bulu, Kecamatan Bulu, Rembang.

Jumat, 11 Oktober 2013

Puisi Persahabatan
Karya : Zulfa Asyifa R

Sahabat
Saat hatiku tergores luka yang mendalam kau obati lukaku hingga sembuh
Saat ku menanggis kau tuntun aku ke tempat paling indah sepanjang hidupku
Kau ajak aku meraih berjuta kebahagiaan dalam hatiku
Kau bawa sedihku menjadi bahagia kau bawa air mata ku menjadi senyuman yang indah
Kasih saying mu terus mengalir seperti air yang tak akan ada habisnya
Andai ku  punya sayap kan ku bawa kau terbang ke angkasa
Kuajak kau menari di kegelapan langit yang telah tersinari cahaya bulan
Ingin ku petik sebuah bintang terindah untukmu
Hingga suatu masa alam akan bercerita dengan bahasanya kebersamaan, ketulusan, kesetiaan semua berbaur menjadi satu berukirkan  PERSAHABATAN

Wahai malam
Ingin aku tetap terjaga agar bisa ku tatap lekat wajah yang terlukis oleh imajinasiku
Seandainya siang telah menamparku, ku ingin kau merengkuh jiwaku yang rapuh ini
Wahai embun pagi
Sejukmu merasuk mengguyur hati yang gersang ini
Dan senyuman surya yang menyapa hati yang pilu ini
Angin
Ke mana aku harus pergi untuk menemui kekasih hati
Debu
Terbanglah engkau dan sampaikan salam rinduku padanya
Apakah dia telah melupakan aku?
Tuhan
Aku bagaikan daun yang gugur
Yang tak tau arah ku terbang
Mernatap sayu wajah manusia yang seolah ingin meminta tolong untuk menyatukanku dengan dahan meski ku tak mlayak lagi untuk mu

Template by:
Free Blog Templates