1311100091

puisi cinta

2012-06-10T18:55:00.000-07:00

detak jantung terus berlantun
langkah kaki tetap terpadu
dalam lembaran penuh warna kehidupan, angan yang terpendam kan terwujud
cita-cita yang tinggi kan tergapai
dengan usaha serta keriangan dan kesungguhan
itulah arti dari mencintai diri sendiri

jika kita mencintai seseorang, kita akan senantiasa mendoakannya walaupun dia tidak berada di sisi kita

Tuhan memberikan kita 2 buah kaki untuk berjalan
2 tangan untuk memegang
2 telinga untuk mendengar
dan 2 mata untuk melihat
tetapi mengapa Tuhan hanya menganugrahkan sekeping hati kepada kita ?
karena, Tuhan telah memberikan sekeping hati lagi kepada seseorang untuk kita mencarinya,
itulah cinta...

jangan sesekali mengucapkan selamat tinggal jika kita masih mau mencoba
jangan sesekali menyerah jika kita masih merasa sanggup
jangan sesekali mengatakan kita tidak mencintainya lagi jika kita masih tidak dapat melupakan

cinta datang kepada orang yang masih mempunyai harapan walaupun mereka telah dikecewakan
kepada mereka yang masih percaya walaupun mereka telah dihianati
kepada mereka yang masih ingin mencintai walaupun mereka telah disakiti sebelumnya
dan kepada mereka yang mempunyai keberanian dan keyakinan untuk membangun kembali kepercayaan

jangan sampai kita menyimpan kata-kata cinta kepada orang yang tersayang hingga dia meninggal dunia

dan akhirnya kita terpaksa mencatat kata-kata cinta itu pada pusarannya
sebaiknya ucapkanlah kata-kata cinta yang tersimpan di benak kita,

sekarang, selagi ada hayatnya

mungkin Tuhan menginginkan kita bertemu dan ber cinta dengan orang yang salah sebelum bertemu dengan orang yang tepat
kita harus mengerti bagaimana berterimakasih atas karunia tersebut

cinta dapat mengubah pahit menjadi manis
debu menjadi emas
keruh menjadi bening
sakit menjadi sembuh
penjara menjadi telaga
derita menjadi nikmat
dan kemarahan menjadi rahmat

sungguh menyakitkan mencintai seseorang yang tidak mencintai kita
tetapi lebih menyakitkan adalah mencintai seseorang dan kita tidak pernah memiliki keberanian untuk menyatakan cinta itu kepadanya

seandainya kita ingin dicintai atau memiliki hati seseorang ibaratkanlah seperti menyunting sekuntum mawar merah,
kadang kala kita mencium harum mawar tersebut tetapi ada kalanya kita merasakan bisa duri mawar itu menusuk jari

hal yang menyedihkan dalam hidup adalah ketika kita bertemu seseorang yang sangat berarti bagi kita hanya untuk menemukan bahwa pada akhirnya menjadi tidak berarti dan kita harus membiarkannya pergi

kadang kala kita tidak menghargai orang yang mencintai kita sepenuh hati sehingga kita kehilangannya
pada saat itu tiada guna penyesalan karna perginya tanpa berkata lagi

cintailah seseorang itu atas dasar siapa dia sekarang dan bukan siapa dia sebelumnya
kisah silam tidak perlu diungkit lagi sekiranya kita benar-benar men cintainya setulus hati

hati-hati dengan cinta
karna cinta juga dapat membuat orang sehat menjadi sakit
orang gemuk menjadi kurus
orang normal menjadi gila
orang kaya menjadi miskin
raja menjadi budak
jika cintanya itu disambut oleh para pecinta palsu

kemungkinan apa yang kita sayangi atau cintai tersimpan keburukan di dalamnya
dan kemungkinan apa yang kita benci tersimpan kebaikan di dalamnya

cinta kepada harta artinya bakhil
cinta kepada perempuan artinya alam
cinta kepada diri sendiri artinya bijaksana
cinta kepada mati artinya hidup
dan cinta kepada Tuhan artinya taqwa

lemparkanlah seseorang yang bahagia dalam bercinta ke dalam laut,

pasti ia akan membawa seekor ikan
lemparkanlah pula seorang yang gagal dalam bercinta ke dalam segudang roti,

pasti ia akan mati kelaparan

seandainya kita dapat berbicara dalam semua bahasa manusia dan alam tetapi tidak mempunyai perasaan cinta dan kasih, dirimu tak ubah seperti gong yang bergaung atau sekedar caman yang bergemerincing

cinta adalah keabadian
dan kenangan adalah hal yang terindah dalam cinta yang pernah dimiliki
siapapun pandai menghayati cinta tapi tak seorangpun pandai menilai cinta

karena cinta bukanlah sesuatu objek yang bisa dilihat oleh kasat mata
sebaliknya, cinta hanya dapat dirasakan melalui hati dan perasaan

cinta mampu melunakkan besi
menghancurkan batu
membangkitkan yang mati
dan meniupkan kehidupan padanya
serta membuat budak menjadi pemimpin
itulah dasarnya cinta

cinta sebenarnya adalah membiarkan orang yang kita cintai menjadi dirinya sendiri
dan tidak merubahnya seperti gambaran yang kita inginkan
jika tidak, kita hanya mencintai pantulan diri kita sendiri yang kita temukan dari dalam dirinya

kita tidak akan pernah tau bila kita akan jatuh cinta
namun apabila sampai saatnya itu, raihlah dengan kedua tanganmu dan jangan biarkan dia pergi dengan sejuta rasa tanda tanya dihatinya

cinta bukanlah kata yang murah dan lumrah
tetapi cinta adalah anugrah Tuhan yang indah dan suci jika manusia dapat melihat dan menilai kesuciannya

bercinta memang mudah
untuk dicintai juga memang mudah
tapi untuk dicintai oleh orang yang kita cintai itulah yang sukar diperoleh
jika saja kehadiran cinta sekedar untuk mengecewakan, lebih baik cinta itu tak pernah hadir
karena cinta sesuatu yang membawa keindahan dan kebahagiaan di dalamnya

cinta itu seperti kupu-kupu
tambah dikejar tambah lari
tapi kalau dibiarkan terbang dia akan datang disaat kita tidak mengharapkannya

cinta dapat membuatmu bahagia
tapi sering juga bikin sedih
tapi cinta baru berharga kalau diberikan kepada seseorang yang menghargainya
jadi janganlah terburu-buru dan pilih yang terbaik

cinta bukan bagaimana menjadi pasangan yang sempurna bagi seseorang tapi bagaimana menemukan seseorang yang dapat membantu menjadi dirimu sendiri

jangan pernah bilang i love you kalau kita tidak pernah peduli
jangan pernah membicarakan perasaan yang tidak pernah ada
jangan pernah menyentuh hidup seseorang kalau hal itu untuk menghancurkan hatinya
jangan pernah menatap matanya kalau semua yang dilakukan kita hanya untuk berbohong

hal paling kejam yang seseorang lakukan kepada orang lain adalah

membiarkannya jatuh cinta sementara kita tidak berniat untuk menangkapnya

cinta bukan 'ini salah kamu!' tapi 'maafkan aku'
bukan 'kamu di mana sih?' tapi 'aku di sini'
bukan 'gimana sih kamu' tapi 'aku ngerti kok'
bukan 'coba kamu gak kayak gini' tapi 'aku cinta kamu seperti kamu apa adanya'

probalitas yang paling benar bukan diukur berdasarkan berapa lama kita sudah bersama maupun berapa sering kita bersama
tapi apakah selama kita bersama kita selalu saling mengisi satu sama lain dan saling membuat hidup yg berkualitas ?

kesedihan dan kerinduan hanya terasa selama yang kita inginkan
dan menyayat sedalam yang kita ijinkan
yang berat bukan bagaimana cara mengulangi kesedihan dan kerinduan itu, tapi bagaimana cara belajar darinya

cara jatuh cinta, jatuh tapi jangan terhuyung-huyung
konsisten, tapi jangan memaksa
berbagi dan jangan bersikap tidak adil
mengerti dan cobalah untuk tidak banyak menuntut
sedih, tapi jangan pernah simpan kesedihan itu

memang sakit melihat orang yang kita cintai sedang berbahagia dengan orang lain
tapi lebih sakit lagi kalau orang yang kita cintai itu tidak berbahagia bersama kita

cinta akan menyakitkan ketika kita berpisah dengan seseorang
lebih menyakitkan apabila kita dilupakan oleh kekasih
tapi cinta akan lebih menyakitkan lagi apabila seseorang yang kita sayangi tidak tahu apa yang sesungguhnya kita rasakan...

yang paling menyedihkan dalam hidup ini adalah menemukan seseorang dan jatuh cinta

hanya untuk menemukan bahwa dia bukan untuk kita

dan kita sudah menghabiskan waktu yang banyak

untuk orang yang tidak pernah menghargainya

kalau dia berkata tidak maka dia tidak akan pernah berkata iya

setahun lagi ataupun sepuluh tahun lagi

biarkan dia pergi

cinta adalah semangat

cinta adalah kepercayaan

cinta adalah energi yang tidak dapat dimusnahkan

ia hanya bisa berubah bentuk

cinta memang tak harus memiliki

karena mencintai memberi tanpa pernah meminta

SEJARAH PASCAL

2011-12-15T20:02:00.000-08:00

Turbo Pascal adalah sebuah sistem pengembangan perangkat lunak yang terdiri atas kompiler dan lingkungan pengembangan terintegrasi (dalam bahasa inggris: Integrated Development Environment - IDE) atas bahasa pemrograman pascal untuk sistem operasi CP/M, CP/M-86, dan MS-DOS, yang dikembangkan oleh Borland pada masa kepemimpinan Philippe Kahn. Nama Borland Pascal umumnya digunakan untuk paket perangkat lunak tingkat lanjut (dengan kepustakaan yang lebih banyak dan pustaka kode sumber standar) sementara versi yang lebih murah dan paling luas digunakan dinamakan sebagai Turbo Pascal. Nama Borland Pascal juga digunakan sebagai dialek spesifik Pascal buatan Borland.

Borland telah menembangkan tiga versi lama dari Turbo Pascal secara gratis disebabkan karena sejarahnya yang panjang khusus untuk versi 1.0, 3.02, dan 5.5 yang berjalan pada sistem operasi MS-DOS.
Versi 1 hingga versi 3

Versi pertama dari Turbo Pascal, yang kemudian disebut sebagai versi 1, memiliki unjuk kerja yang sangat cepat dibandingkan kompiler pascal untuk komputer mikro lainnya. Kompiler tersebut tersedia untuk sistem operasi CP/M, CP/M-86, dan MS-DOS, dan penggunaannya sangat luas pada masa itu. Versi Turbo Pascal untuk CP/M saat itu bisa digunakan pada komputer Apple II yang sangat populer jika digunakan dengan sebuah Z-80 SoftCard, produk perangkat keras pertama yang ditembangkan microsoft di tahun 1980.

Pada saat itu CP/M menggunakan format berkas ''executable'' yang sederhana dengan menggunakan ekstensi .COM; sistem operasi MS-DOS bisa menggunakan baik .COM (tidak kompatibel dengan format yang terdapat pada CP/M) maupun format .EXE. Turbo Pascal pada saat itu hanya mendukung kode biner berformat .COM, pada masa itu hal tersebut tidak menjadi suatu bentuk keterbatasan. Perangkat lunak Turbo Pascal itu sendiri merupakan sebuah berkas berekstensi .COM dan berukuran sekitar 28 kilobita, termasuk editor, kompiler, dan ''linker'', dan rutin-rutin pustaka. Efisiensii proses edit/kompilasi/jalankan lebih cepat dibandingkan dengan implementasi paskal pada kompiler lainnya disebabkan semua elemen yang terkait dalam pengembangan program diletakkan pada [[memori|memori komputer]] (RAM), dan karena kompilernya sendiri merupakan kompiler berjenis ''single-pass compiler'' yang ditulis dengan bahasa [[assembler]]. Unjuk kerja proses kompilasi sangat cepat dibandingkan dengan produk lain (bahkan dibandingkan dengan kompiler [[C (bahasa pemrograman)|C]] milik Borland sendiri).

Ketika pertama kali versi Turbo Pascal muncul pada tanggal 20 November 1983, jenis IDE yang digunakannya masih terbilang baru. Pada debutnya terhadap pasar perangkat lunak di [[Amerika Serikat|Amerika]], perangkat lunak tersebut dibandrol dengan harga USD$49.99. Kualitas kompiler pascal terintegrasi terdapat dalam Turbo Pascal sangat baik dibandingkan kompetitor lain dan atas fitur-fitur tersebut ditawarkan dengan harga yang terjangkau.

Versi 2 dan 3 merupakan pengembangan lebih lanjut dari versi sebelumnya, mampu berkerja dalam memori, dan menghasilkan berkas biner berekstensi .COM/.CMD. Dukungan atas sistem operasi CP/M dan CP/M-86 dihentikan setelah versi 3.

MATERI PASCAL

2011-12-14T21:03:00.000-08:00

program deret angka;
uses wincrt;
var i,n:integer;
begin
read(n);
if n=1 then write (1);
if n>1 then
begin
for i:=n downto 2 do
write (2*i-1,'+');
write (1,'=');
write (sqr(n));
end;
end.

MATERI PASCAL

2011-12-14T20:59:00.000-08:00

program angka;
uses wincrt;
var i,n:integer;
begin
read(n);
if n=1 then write (1);
if n>1 then
begin
for i:=n downto 2 do
write (2*i-1,'+');
write (1,'=');
write (sqr(n));
end;
end.

Materi Pascal

2011-12-12T18:30:00.001-08:00

program dua_dimensi;
uses wincrt;
var x: array [1..10,1..10] of real;
p,l,i,j:integer;
begin
write('Panjang = ');readln(p);
write('Lebar = ');readln(l);
writeln('Masukkan isi matriks!');
for i:=1 to l do
for j:=1 to p do
read(x[i,j]);
writeln;
writeln('Bentuk matriksnya');
for i:=1 to l do
begin
for j:=1 to p do
write(x[i,j]:3:0,' ');
writeln;
end;
writeln('Bentuk matriks transpose nya');
for j:=1 to p do
begin
for i:=1 to l do
write(x[i,j]:3:0,' ');
writeln;
end;
end.

MATERI PASCAL

2011-12-10T20:13:00.000-08:00

program segitiga_pascal;
uses wincrt;
var input,i,j:word; isi:array[0..20,0..21] of word;
begin
writeln('Masukkan berapa tingkat segitiga pascal !');
readln(input);
isi[0,1]:=1;
for i:=1 to input do
begin
for j:=1 to i+1 do
begin
isi[i,j]:=isi[i-1,j]+isi[i-1,j-1];
write(isi[i,j],' ');
end;
writeln;
end;end.

MATERI PASCAL

2011-12-10T20:10:00.000-08:00

program bintang;
uses winCrt;
procedure gb (brs,kol:integer);
var i,j:integer;
begin
for i:=1 to brs do
begin
for j:=1 to kol do
begin
if ((i=1)or(i=brs)or(j=1)or(j=kol))then
write ('*')
else write(' ');
end;
writeln;
end;
end;
var x,y:integer;
begin
write('banyak baris= ');readln(y);
write('banyak kolom= ');readln(x);
writeln('bentuknya:');
gb(y,x);
end.

MATERI PASCAL

2011-12-10T20:05:00.000-08:00

program matrik;

uses wincrt;

var a:array[1..10,1..10] of real;

i,j,baris,kolom:integer;

begin

write('ukuran matrik mxn ');

readln(baris,kolom);

writeln('memasukkan elemen matrik');

writeln(' ');

for i:=1 to baris do

begin

writeln('baris ke-',i);

for j:=1 to kolom do
read(a[i,j]);

writeln;

end;

writeln('hasil matrik');

for i:=1 to baris do

begin

for j:=1 to kolom do

write(a[i,j]:0:0,' ');

writeln;

end;

end.

MATERI PASCAL

2011-12-10T20:00:00.000-08:00

program penjumlahan;
uses wincrt;
var i,a,n,hasil,f:integer;
begin
writeln('masukkan angka');readln(n);
a:=n;
for i:=n downto 2 do
begin
hasil:=n*n;
write ((n-1)+a,'+');
a:=a-2;
end;
begin
if n=0 then write ('')
else if(n<=1) then write ('1')
else write(1,'=',hasil);
end;
end.

MATERI PASCAL

2011-12-10T19:59:00.000-08:00

program deret_angka;
uses wincrt;
var f,i,j,n,a:integer;
begin
readln(n);
for i:=n downto 2 do
begin
j:=i+i-1;
write (j,'+');
end;
begin
a:= n*n;
write (1,'=',a);
end;
writeln;
end.

MATERI PASCAL

2011-12-10T19:54:00.000-08:00

program deret angka;
uses wincrt;
var i,n:integer;
begin
read(n);
if n=1 then write (1);
if n>1 then
begin
for i:=n downto 2 do
write (2*i-1,'+');
write (1,'=');
write (sqr(n));
end;
end.

MATERI PASCAL

2011-12-10T19:53:00.000-08:00

program deret angka;
uses wincrt;
var i,j,n:integer;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to i do
write (j);
writeln;
end;
end.

MATERI PASCAL MODUS

2011-12-10T19:50:00.000-08:00

program susunan;
uses wincrt;
var
x:array [1..100] of real;
i,n:integer;
begin
write('masukkan n banyaknya angka');readln(n);
for i:=1 to n do
begin
write(i,'=');readln(x[i]);
end;
write('panggil data ke- ');readln(i);
write(x[i]);
end.

MATERI PASCAL

2011-12-09T07:20:00.000-08:00

MATERI PASCAL

2011-12-09T07:17:00.000-08:00

program ex;
uses wincrt;
var sum:real; j,x:integer;
function fac (n:integer): integer ;
var i: integer ;
begin
fac:=1;
for i:=1 to n do
fac:=fac(n-1)*i;
end;
function power (a,b:integer):integer;
begin
if b=1 then power:=a
else power:=a*power(a,b-1);
end;
begin
readln(x);
sum:=1;
for j:=1 to 10 do
begin
sum:=sum+power (x,j)/ fac (j);
end;
writeln (sum);
end.

MATERI PASCAL

2011-12-09T07:00:00.000-08:00

program laurin ;
uses wincrt;
var
x,y:array[1..1000] of real;
i,j,n:longint;
a,sum,p:real;
begin
readln(n);
readln(a);
sum:=0;
for i:=1 to n do
begin
x[i]:=-1/i;
p:=1;
for j:=1 to i do
p:=p*a;
y[i]:=p;
sum:=sum+x[i]*y[i];end;
writeln('hasil= ',sum:0:5);
writeln('asli= ',ln(1-a):0:5);
writeln('error= ',ln(1-a)-sum:0:5);
end.

PENJUMLAHAN

2011-12-09T00:56:00.000-08:00

program matrik_penjumlahan;
uses wincrt;
var a,b,c: array[1..10,1..10] of integer;
i,j,k1,k2,b1,b2,sum,r:integer;

begin
write('Masukkan baris Matrik A = ');readln(b1);
write('Masukkan kolom Matrik A = ');readln(k1);
write('Masukkan baris Matrik B = ');readln(b2);
write('Masukkan kolom Matrik B = ');readln(k2);
for i:=1 to b1 do
for j:=1 to k1 do
readln(a[i,j]);
writeln;
for i:=1 to b2 do
for j:=1 to k2 do
readln(b[i,j]);
writeln;
writeln('Matrik A');
writeln('==================');
for i:=1 to b1 do
begin
for j:=1 to k1 do
write(a[i,j],' ');
writeln;
end;
writeln;
writeln('Matrik B');
writeln('===================');
for i:=1 to b2 do
begin
for j:=1 to k2 do
write(b[i,j],' ');
writeln;

end;
writeln;
writeln('Matrik A*B');
writeln('================');
for i:=1 to b1 do
begin
for j:=1 to k2 do
begin
sum:=0;
for r:=1 to k1 do
sum:=sum+a[i,r]*b[r,j];
c[i,j]:=sum;
write(c[i,j]:2,' ');
end;
writeln;
end;
end.