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
|
Minggu, 10 Juni 2012
puisi cinta
Kamis, 15 Desember 2011
SEJARAH PASCAL
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.
Rabu, 14 Desember 2011
MATERI PASCAL
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.
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
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.
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.
Senin, 12 Desember 2011
Materi Pascal
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.
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.
Sabtu, 10 Desember 2011
MATERI PASCAL
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.
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
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.
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.
Langganan:
Postingan (Atom)