Tugas Struktur Data3

Tugas Struktur Data3 : Pointer dan Implementasinya...

POINTER

1 PENGERTIAN POINTER

Pointer (variabel penunjuk) adalah suatu variabel yang berisi alamat memori dari suatu variabel lain. Alamat ini merupakan lokasi dari obyek lain (biasanya variabel lain) di dalam memori. Contoh, jika sebuah variabel berisi alamat dari variabel lain, variabel pertama dikatakan menunjuk ke variabel kedua(RE)

Operator Pointer ada dua, yaitu :
=> Operator & Operator & bersifat unary (hanya memerlukan satu operand saja).
Operator & menghasilkan alamat dari operandnya.
=> Operator * Operator * bersifat unary (hanya memerlukan satu operand saja).
Operator * menghasilkan nilai yang berada pada sebuah alamat.

2 DEKLARASI POINTER

Seperti halnya variabel yang lain, variabel pointer juga harus dideklarasikan terlebih dahulu sebelum digunakan.(RE)
Bentuk Umum :
Tipe_data *nama_pointer;

//Contoh9_1
int *px;
char *sh;
Contoh Program :
#include “IOSTREAM.h”
#include “conio.h”
void main()
{ int x, y; /* x dan y bertipe int */
int *px; /* px pointer yang menunjuk objek */
clrscr();
x = 87;
px = &x; /* px berisi alamat dari x */
y = *px; /* y berisi nilai yang ditunjuk px */
cout<<“Alamat x =”<<&x <<\n”; cout<<“Isi px = \n”, px); cout<<“Isi x = \n”, x); cout<<“Nilai yang ditunjuk oleh px = \n”, *px); cout<<“Nilai y = \n”, y); getch(); } 3 OPERASI POINTER
Operasi Penugasan Suatu variable pointer seperti halnya variable yang lain, juga bisa mengalami operasi penugasan. Nilai dari suatu variable pointer dapat disalin ke variable pointer yang lain.(RE) //Contoh9_2 #include "iostream.h" #include "conio.h" void main() { float *x1,y, *x2; clrscr(); y = 13.45; x1 = &y; /* Alamat dari y disalin ke variabel x1 */ x2 = x1; /* Isi variabel x1 disalin ke variabel x2 */ cout<<"Nilai variabel y = "<<< " ada di alamat "<< y =" "><< " ada di alamat "<<>
#include
void main()
{ int nilai[3], *penunjuk;
clrscr();
nilai[0] = 125;
nilai[1] = 345;
nilai[2] = 750;
penunjuk = &nilai[0];
cout<<"Nilai "<<*penunjuk <<" ada di alamat memori " <<<"\n"; cout<<"Nilai "<<*(penunjuk+1) <<" ada di alamat memori " <<<"\n"; cout<<"Nilai "<<*(penunjuk+2) <<" ada di alamat memori " <<<"\n"; getch(); } Operasi Logika Suatu pointer juga dapat dikenai operasi logika. //Contoh9_4 #include #include "conio.h" void main() { int a = 100, b = 200, *pa, *pb; clrscr(); pa = &a; pb = &b; cout<<"nilai pa= "<<< " nilai pb= "<<<"\n"; if(pa < pa ="="> pb)
cout<<"pa menunjuk ke memori lebih tinggi dari pb\n"; getch();}

4 POINTER DAN STRING

//Contoh9_5 (RE)
#include
#include
void misteri1(char *);
void main() {
char string[] = "amikom";
cout<< "String sebelum proses adalah " << void="" char="" while="" if="" s="">= 'a' && *s <= 'z' ) *s -= 32; ++s; } }

5 POINTER MENUNJUK SUATU ARRAY
//Contoh9_6
#include "iostream.h" #include "conio.h" void main() { static int tgl_lahir[] = { 13,9,1982 }; int *ptgl; ptgl = tgl_lahir; /* ptgl berisi alamat array */ cout<<"Diakses dengan pointer\n"; cout<<"Tanggal = "<< *ptgl<<"\n"; cout<<"Bulan = "<< *(ptgl + 1) <<"\n"; cout<<"Tahun = "<<*(ptgl + 2) <<"\n"; cout<<"\nDiakses dengan array biasa\n"; cout<<"Tanggal = "<< bulan = "<< tgl_lahir[1] <<" tahun = "<< tgl_lahir[2] <<" p =" x;" k="0;">

Pointer dan Memori Dinamis

Digunakan untuk mengetahui alamat memori yang ditempati oleh suatu variabel.(RE)

contoh 1:
#include
#include
main() {

int x;
x=5;
cout<<"Nilai x="< x ="" int =""> *a;

Perbedaan Pointer dengan Variabel Biasa :
Pointer
Alamat memori => Tidak otomatis
Mengetahui alamat memori => a
Mengetahui datanya => *a

Variabel biasa (bukan pointer)
Deklarasi variabel => int b;
Alamat memori => Otomatis
Mengetahui alamat memori => &b
Mengetahui datanya => b(RE)

contoh :
Perhatikan Pernyataan berikut,
int b;
b=5;
intruksi di atas benar, karena pada saat b dideklarasikan, otomatis dialokasikan spase di memori.(RE)

Perhatikan pula pernyataan berikut,
int *a;
*a=7;
instruksi di atas tidak diperbolehkan, karena pointer tidak otomatis disediakan space di memori, maka kita tidak dapat langsung menggunakannya untuk menyimpan data.
sehingga, sebelum pointer tersebut digunakan untuk menyimpan data, harus dicarikan dahulu space di memori.(RE)

Ada dua cara yang dapat dilakukan untuk alokasi space di memori bagi pointer, yaitu:
1. Menempati space variable lain yang sudah punya space.
2. Dialokasikan tersendiri.

Menempati space variabel lain.
Variabel lain tersebut dapat berupa variabel biasa (bukan pointer) atau pointer yang tentunya sudah punya alokasi space di memori.(RE)
Syntaxnya :
var_pointer = &var_biasa;

Contoh 2:
#include
#include
main() {
int x,*y;
y=&x;
x=5;
cout<<"Nilai x = "< x = "<<&x; cout<<" y = "<<*y; cout<<" y = "<<*y; getch(); } Karena *y menempati alokasi memori yang sama dengan x, akibatnya data yang tersimpan di dalamnyapun akan sama. Jika ada instruksi yang menginisialisasi x, otomatis juga akan menginisialisasi *y. Contoh 3 : #include #include main() { int x,*y; y=&x; x=5; *y=10; cout<<" x = "< cout<<" x = "<<&x; cout<<" y = "<<*y; cout<<" y = "< getch(); } Demikian juga, jika ada instruksi yang menginisialisasi *y, maka akan otomatis pula menginisialisasi nilai x. Coba anda pikirkan output dua contoh program berikut ini : < n2 = ">< p = "<<*p; getch(); } < n2 = ">< p1 = "<<*p1; cout<<" p2 = "<<*p2; getch(); } Alokasi space tersendiri di memori (Memori dinamis). Pointer tidak menempati space variabel lain, tetapi dialokasikan space tersendiri di memori dengan instruksi new. Syntaxnya: var_ponter = new tipe_data-pointernya; Contoh : int *a; float *x; a=new int; x=new float; Perhatikan Contoh 6 yang dimodifikasi dari Contoh 3 sebelumnya. < x = "><<&x; cout<<" y = "<<*y; cout<<" y = "< style="" nilai="" x="">cout<<" nnilai="" nalamat="" memori="" yang="" ditempati="" y="<<*y; cout<<" nsetelah="" di="" delete="">
cout<<"\nNilai y = "<<*y;
cout<<"\nAlamat memori yang ditempati y = "<
getch();
}
Perhatikan Contoh 7 diatas. Setelah dikenai instruksi delete y; maka nilai yang tersimpan dalam *y akan hilang. Itulah sebabnya *y dikatakan sebagai variable dinamis, sedangkan x merupakan variable statis, sehingga tidak bisa dibebaskan dari memori.(RE)

Tugas Struktur Data2

Tugas Struktur Data2 : Record dan Implementasinya

Type Data Record dan Contoh

Record adalah Sebuah catatan (analog dengan struktur dalam beberapa bahasa) merupakan seperangkat unsur-unsun heterogen. Setiap elemen disebut field. deklarasi tipe record menetapkan jenis dan nama untuk setiap kolom. Sintaks dari deklarasi tipe record.(RE)

type recordTypeName = record
fieldList1: type1;
...
fieldListn: typen;
end

contoh :

Procedure TForm1.Button2Click(Sender: TObject);
type
TKursus =record
biaya:integer;
media:string[20];
materi:string[10];
online:boolean;
BolehDiangsur:boolean;
end ;
var
Konsultasi:Tkursus;
begin
konsultasi.biaya:=1000000;
konsultasi.media:='Chatting, ebook, source';
konsultasi.materi:='Delphi 7 & Database';
with konsultasi do
begin
online:=true;
BolehDiangsur:=true;
end;

if konsultasi.online then
showmessage('Kursus Online ...enak donk..!')
else
showmessage('susah donk..');

if konsultasi.BolehDiangsur then
showmessage('Ikutan ah...Mumpung ada uang..')
else
showmessage('Nunggu ngumpulin duit dulu..');
end;

Kirim Record Antar tabel..

Apabila ada record misal di tabel A. trus pengen di pindahin ke tabel B. nah record yang di A Hilang/di hapus trus masuk ke tabeln B, sedangkan posisi tabel ada di 2 form yang berbeda.(RE)

form1 untuk tabel 1

form2 untuk tabel 2

codingnya adalah :

jawab:

form1.table1.open;

form2.table2.open;

form1.table1.first;

While not form1.table1.IsEmpty do

begin

form2.table2.append;

form2.table2.fields[0].asstring:=form1.table1.fields[0].asstring;

form2.table2.fields[1].asstring:=form1.table1.fields[1].asstring;

form2.table2.fields[2].asstring:=form1.table1.fields[2].asstring;

// dst

form2.table2.post;

form1.table1.delete;

end;

Catatan :

• Tidak menggunakan EOF karena data langsung dihapus
• Tidak menggunakan table.next karena setelah dihapus record otomatis pada posisi berikutnya sampai data habis (RE)

Update Record

Procedure TFBiodata.btnEditClick(Sender: TObject);
begin
with ZQuery1 do
begin
SQL.Clear;
SQL.Add('UPDATE Pengguna SET');
SQL.Add(' NAMA = :NAMA,');
SQL.Add(' TEMPATLAHIR = :TEMPATLAHIR,');
SQL.Add(' TANGGALLAHIR = :TANGGALLAHIR,');
SQL.Add(' JENISKELAMIN = :JENISKELAMIN,');
SQL.Add(' TANGGALREG = :TANGGALREG,');
SQL.Add(' ALAMAT = :ALAMAT,');
SQL.Add(' FOTO = :FOTO');
SQL.Add('WHERE');
SQL.Add(' NO = :NO');
Params[0].AsInteger:= StrToInt(edtNO.Text);
Params[1].AsString := edtnama.Text;
Params[2].AsString := edtlahir.Text;
Params[3].AsDateTime := dtplahir.Date;
Params[4].AsString := cbbjk.Text;
Params[5].AsDateTime := dtpreg.Date;
Params[6].AsString := mmoAlamat.Text;
Params[7].blbfldZQuery1FOTO.LoadFromFile(foto);
ExecSQL;
end;
ZQuery.Free;
end;

(RE)
procedure TFBiodata.AplupClick(Sender: TObject);
begin
ZQuery1.ApplyUpdates;

end;

Diatas adalah script buat update data yang saya gunakan mas, tapi ketika saya mencari data kemudian data sudah ditampilkan di edt1...etc dan saya tekan btnedit dan proses perubahan data saya lakukan, selanjutnya saya applyUpdate tetapi data tidak berubah. mohon pencerahan nya mas.(RE)

Terima Kasih.

Jawab :

sepertinya ada kesalahan pada urutan parameter di dalam querynya, lebih baik menggunakan parambyname('paramname').as.... karena akan memperkecil kesalahan.(RE)

• urutan parameter seharusnya
  

procedure TFBiodata.btnEditClick(Sender: TObject);
begin
with ZQuery1 do
begin
SQL.Clear;
SQL.Add('UPDATE Pengguna SET');
SQL.Add(' NAMA = :NAMA,');
SQL.Add(' TEMPATLAHIR = :TEMPATLAHIR,');
SQL.Add(' TANGGALLAHIR = :TANGGALLAHIR,');
SQL.Add(' JENISKELAMIN = :JENISKELAMIN,');
SQL.Add(' TANGGALREG = :TANGGALREG,');
SQL.Add(' ALAMAT = :ALAMAT,');
SQL.Add(' FOTO = :FOTO');
SQL.Add('WHERE');
SQL.Add(' NO = :NO');
Params[0].AsString := edtnama.Text;
Params[1].AsString := edtlahir.Text;
Params[2].AsDateTime := dtplahir.Date;
Params[3].AsString := cbbjk.Text;
Params[4].AsDateTime := dtpreg.Date;
Params[5].AsString := mmoAlamat.Text;
Params[6].blbfldZQuery1FOTO.LoadFromFile(foto);
Params[7].AsInteger:= StrToInt(edtNO.Text);
ExecSQL;
end;

end;

• menggunakan parambyname
  

procedure TFBiodata.btnEditClick(Sender: TObject);
begin
with ZQuery1 do
begin
SQL.Clear;
SQL.Add('UPDATE Pengguna SET');
SQL.Add(' NAMA = :NAMA,');
SQL.Add(' TEMPATLAHIR = :TEMPATLAHIR,');
SQL.Add(' TANGGALLAHIR = :TANGGALLAHIR,');
SQL.Add(' JENISKELAMIN = :JENISKELAMIN,');
SQL.Add(' TANGGALREG = :TANGGALREG,');
SQL.Add(' ALAMAT = :ALAMAT,');
SQL.Add(' FOTO = :FOTO');
SQL.Add('WHERE');
SQL.Add(' NO = :NO');
Parambyname('nama').AsString := edtnama.Text;

dst..(RE)

ExecSQL;
end;

end;

Kata Guruku......

"Aku ingin mencintaimu dengan sederhana... seperti kata yang tak sempat diucapkan kayu kepada api yang menjadikannya abu... Aku ingin mencintaimu dengan sederhana... seperti isyarat yang tak sempat dikirimkan awan kepada hujan yang menjadikannya tiada..." (Kahlil Gibran)

Kata-kata Mutiara Guruku....

.... Kita adalah seorang manusia, belajarlah menjadi orang yang sukses, dan bekerjalah sesuai dengan kemampuan kita. Di sini... (STMIK ini), kita adalah calon seorang manajer, manajer yang bisa mengatur segala masalah atau bidang yang ditekuni dalam usaha... Jika kita menemukan segala hal atau masalah yang sulit dipecahkan atau diselesaikan... Maka cobalah untuk melakukan langkah-langkah berikut ini :

1. Berfikirlah sebagai seorang Profesor yang sedang sedang duduk di kursi manajer.
Di sini kita dituntut untuk menggunakan fikiran yang lebih dalam menyelesaikan sebuah masalah. Kita menyelesaikan sebuah masalah secara langsung (to the point) dengan memperkirakan sebab akibat nantinya.

2. Berfikirlah sebagai seorang Gatot Kaca yang sedang duduk di kursi manajer.
Jika dalam langkah satu kita tidak bisa menyelesaikannya. Maka cobalah menggunakan cara yang kedua ini. Kenapa kita harus menjadi seorang Gatot Kaca??? padahal kita juga tidak bisa terbang seperti dia... Karena kita akan berfikir dalam menyelesaikan sebuah masalah, maka yang kita lihat bukanlah masalah itu, tapi Seni... selesaikan masalah itu dengan Seni ... Seni itu Keindahan... jadikan sebuah masalah itu sesuatu yang indah. perbaiki keindahan yang telah rusak menjadi kembali indah dan cantik... Gunakan hal-hal yang ada hubungan dengan masalah itu atau malah berkebalikan dengan masalah tersebut, lalu fikirkan atau hubungan dengan masalah tersebut...pasti ada pemecahannya... Paham kan??? (Tri Esti Rahayu N., SE.MM)


...Jangan pernah berkata, "Pak... Gak ada waktu untuk menyelesaikan tugas ini". seorang guru pasti lebih tahu kemampuan yang dimiliki seorang siswa-siswanya, mereka memberikan tugas selalu memperkirakan bahwa murid-muridnya pasti bisa menyelesaikan tugas itu, walau waktu yang diberikan oleh guru kita itu cuma sebentar, pasti kita menyelesaikannya. Gunakanlah waktu yang kita miliki sekarang, karena waktu yang ada sekarang ini, pasti cukup untuk menyelesaikan tugas atau masalah yang sedang kita hadapi. Jangan buang dan disia-siakan... (Haris Fuadi)

.... Jadilah orang sukses. tahu bagaimana caranya biar sukses??? kata Guruku, yakni Bpk. Jaiz (Guru Bahasa Arab waktu di MIN DOKO dulu) berkata, "Jadilah murid yang bisa mengungguli atau lebih pintar dari gurumu, dan jadilah anak yang lebih kaya dan sukses dari kedua orang tuamu, serta jangan lupakan jasa-jasa mereka yang telah membimbingmu dan berbaktilah kepada mereka (guru-gurumu dan kedua orang tuamu). okyeee....

Lima

Lima Sifat Tercela

Ali ra. berkata:

“Jika tidak ada lima sifat tercela, niscaya manusia seluruhnya akan menjadi orang shalih, kelima sifat tersebut yaitu:

1. Merasa senang dengan kebodohan;

2. Rakus terhadap harta keduniaan;

3. Bakhil dengan kelebihan harta yang dimiliki;

4. Riya’ dalam setiap amal yang dilakukan;

5. Senantiasa membangggakan pendapat sendiri.”

Src. nashoihul Ibad:4:7

Lima Tanda Orang Bertaqwa

Utsman ra. berkata:

“Ada lima hal yang merupakan tanda orang yang bertaqwa, yaitu:

1. Tidak suka bergaul, kecuali dengan orang-orang yang dapat memperbaiki agamanya dan dapat membuatnya memelihara kemaluan dan lisanya;

2. Jika mendapat musibah besar dalam urusan duniawi, ia menganggapnya sebagai hukum karma;

3. Jika mendapat musibah dalam masalah agama meskipun sedikit, dia bersedih;

4. Tidak suka memenuhi perutnya dengan makanan yang halal sekalipun, karena khawatir kalau-kalau tercampur dengan yang haram;

5. Memandang orang lain lebih bersih dari dosa, sementara memandang dirinya sebagai orang yang penuh dosa.”

src. Nashoihul Ibad:4:6

Lima Alasan Kenapa Wanita menolak Pria!!

Ketika kita mendekati seorang cewek dan kemudian memintanya tuk jadi kekasih akan tetapi ia menolaknya maka kemungkinan cewek itu masuk dalam salah satu dari hal berikut:
1- Wanita itu sudah ada yang punya
Salah satu alasan paling sederhana mengapa seorang wanita menolak anda adalah karena ia sudah punya pacar atau suami. Nah, kalau dia sudah ada yang punya, jangan terlalu kecewa. Anda bisa beralih ke wanita lain yang masih sendiri.

2- Perasaannya sedang tidak enak
Suatu kenyataan sederhana bahwa kita semua pernah mengalami hari-hari yang buruk. Mungkin anda mendekati wanita itu satu jam setelah anjingnya mati. Sehingga upaya apa pun untuk mengajaknya berbicara akan menemui jalan buntu.
Anda perlu melakukan pengamatan bagaimana perilakunya sebelum anda mendekatinya. Jika ia tampak sedang marah atau murung, maka sebaiknya anda berbicara dengan wanita lain..

3- Ia seorang yang jahat
Sebuah prinsip yang saya coba pahami adalah kenyataan bahwa SETIAP penolakan yang saya terima merupakan akibat dari kesalahan yang saya lakukan dalam pendekatan. Dengan memiliki sikap ini, saya dapat mengevaluasi apa yang telah saya lakukan dan apa yang dapat saya pelajari.
Tetapi ada kebenaran sederhana tentang beberapa wanita. Kadang-kadang anda bertemu dengan beberapa wanita yang benar-benar jahat. Mereka senang mempermainkan pria dan menyakiti mereka. Jika anda melihat sejumlah pria mendekati seorang wanita kemudian menjauh dengan wajah kecewa, maka anda dapat menarik kesimpulan bahwa ia mungkin seorang wanita yang jahat.

4- Ia baru saja disakiti
Ada masa-masa dalam kehidupan seorang wanita di mana ia tidak tertarik untuk berbicara dengan pria. Salah satu penyebabnya adalah karena ada pria lain yang baru saja menyakitinya. Itu membuat upaya anda akan mengalami penolakan. Baginya, anda mewakili SEMUA pria yang telah menyakitinya.

5- Ia tidak suka dengan pendekatan anda
Mungkin cara anda mendekati wanita salah. Anda menggunakan cara yang kasar atau anda tidak menunjukkan bahasa tubuh yang benar.
Namun, yang melegakan adalah bahwa itulah SATU-SATUNYA alasan penolakan yang dapat anda kendalikan. Jika anda tahu cara yang benar untuk mendekati seorang wanita dan memulai percakapan, maka anda dapat mengurangi kemungkinan ditolak.
Ada banyak alasan mengapa seorang wanita menolak pria. Anda tidak dapat mengendalikan sebagian besar faktor-faktor tersebut. Namun ada satu cara yang bagus untuk mengurangi kemungkinan anda ditolak. Jika anda mempelajari cara yang benar untuk memulai percakapan, maka anda akan melihat peningkatan yang luar biasa dalam keberhasilan anda mendekati wanita.(hadits)

Puisi Romantis

Puisi Romantis

"...pabila cinta memanggilmu... ikutilah dia walau jalannya berliku-liku... Dan, pabila sayapnya merangkummu... pasrahlah serta menyerah, walau pedang tersembunyi di sela sayap itu melukaimu..." (Kahlil Gibran)

"...kuhancurkan tulang-tulangku, tetapi aku tidak membuangnya sampai aku mendengar suara cinta memanggilku dan melihat jiwaku siap untuk berpetualang" (Kahlil Gibran)

"Tubuh mempunyai keinginan yang tidak kita ketahui. Mereka dipisahkan karena alasan duniawi dan dipisahkan di ujung bumi. Namun jiwa tetap ada di tangan cinta... terus hidup... sampai kematian datang dan menyeret mereka kepada Tuhan..." (Kahlil Gibran)

"Jangan menangis, Kekasihku... Janganlah menangis dan berbahagialah, karena kita diikat bersama dalam cinta. Hanya dengan cinta yang indah... kita dapat bertahan terhadap derita kemiskinan, pahitnya kesedihan, dan duka perpisahan" (Kahlil Gibran)

"Aku ingin mencintaimu dengan sederhana... seperti kata yang tak sempat diucapkan kayu kepada api yang menjadikannya abu... Aku ingin mencintaimu dengan sederhana... seperti isyarat yang tak sempat dikirimkan awan kepada hujan yang menjadikannya tiada..." (Kahlil Gibran)

"Jika cinta tidak dapat mengembalikan engkau kepadaku dalam kehidupan ini... pastilah cinta akan menyatukan kita dalam kehidupan yang akan datang" (Kahlil Gibran)

"Apa yang telah kucintai laksana seorang anak kini tak henti-hentinya aku mencintai... Dan, apa yang kucintai kini... akan kucintai sampai akhir hidupku, karena cinta ialah semua yang dapat kucapai... dan tak ada yang akan mencabut diriku dari padanya" (Kahlil Gibran)

"Kemarin aku sendirian di dunia ini, kekasih; dan kesendirianku... sebengis kematian... Kemarin diriku adalah sepatah kata yang tak bersuara..., di dalam pikiran malam. Hari ini... aku menjelma menjadi sebuah nyanyian menyenangkan di atas lidah hari. Dan, ini berlangsung dalam semenit dari sang waktu yang melahirkan sekilasan pandang, sepatah kata, sebuah desakan dan... sekecup ciuman" (Kahlil Gibran)

CINTA yang AGUNG
Adalah ketika kamu menitikkan air mata
dan MASIH peduli terhadapnya..
Adalah ketika dia tidak mempedulikanmu dan kamu MASIH
menunggunya dengan setia..
Adalah ketika dia mulai mencintai orang lain
dan kamu MASIH bisa tersenyum sembari berkata ‘Aku
turut berbahagia untukmu’

Apabila cinta tidak berhasil…BEBASKAN dirimu…
Biarkan hatimu kembali melebarkan sayapnya
dan terbang ke alam bebas LAGI ..
Ingatlah…bahwa kamu mungkin menemukan cinta dan
kehilangannya..
tapi..ketika cinta itu mati..kamu TIDAK perlu mati
bersamanya…

Orang terkuat BUKAN mereka yang selalu
menang..MELAINKAN mereka yang tetap tegar ketika
mereka jatuh (Kahlil Gibran)

lebih rinci lagi???buka aja http://rahmadku.tripod.com/puisi_cinta.html okyeee....

Jenis - jenis puisi cinta

• Puisi cinta Amir Hamzah
  
  Amir Hamzah, penyair Indonesia yang dijuluki Raja Penyair Pujangga Baru, mengungkapkan cintanya kepada sang kekasih:
  
  
  • Kaulah kandil kemerlap
  • Pelita jendela di malam gemerlap
  • Melambai pulang perlahan
  • Sabar, setia selalu

  (Padamu Jua, Nyanyi Sunyi)

  
  
• Puisi cinta J.E. Tatengkeng
  
  Puisi cinta juga diungkapkan oleh J.E. Tatengkeng, salah satu penyair kelahiran Sangihe, Sulawesi, kepada Tuhannya:
  
  
  • O, Tuhanku
  • Biarkan aku menjadi embunmu
  • Memancarkan terangmu
  • Sampai aku hilang lenyap olehnya .......
  • Soli Déo Gloria !

  (Rindu Dendam: Akhir Kata)

  
  
• Puisi cinta untuk kekasih
  
  Puisi cinta di bawah ini mengungkapkan apa yang dirasakan oleh penulisnya ketika kekasihnya hadir, membawa cinta yang membuatnya tenang.
  
  
  • Pagi ini, semua terhenti
  • Semua menepi
  • Kekasih tak lagi mengurai sepi
  • Diuntainya kata menjadi mutiara sampai
  • Tak terperi, mengikat hati bersampir peluk damai
  
  
• Puisi cinta untuk Ibu
  
  
  • Dalam pelukan kasih sayang
  • Dalam pengaharapan tak bertepi
  • Dalam lautan air mata ketulusan
  • Dalam doa-doa yang berhembus diterbangkan udara
  • Adalah dirimu
  • Kasih peilta jiwa
  • IBU
  
  
• Puisi cinta untuk negeri
  
  
  • Selaksa sukma untuk negeri tercinta
  • Mengarungi tanah dan langitmu
  • Di ujung pemikiranku
  • Jiwaku
  • Kan kupersembahkan untukmu negeriku

Enam

Enam Perkara yang Dirahasiakan Allah

Umar RA berkata:

“Alloh Ta’ala menyembunyikan enam perkara dalam enam perkara yang lain, yaitu:

1. Alloh menyembunyikan keridaan-Nya dalam ketaatan kepada-Nya;

2. Alloh menyembunyikan murka-Nya dalam kemaksiatan seorang hamba-Nya;

3. Alloh menyembunyikan Lailatul Qadar dalam bulan Ramadlan;

4. Alloh menyembunyikan para wali di antara manusia;

5. Alloh menyembunyikan kematian dalam umur;

6. Alloh menyembunyikan ‘Asholatul wustha’ (Sholat yang paling utama) dalam sholat lima waktu.”

src: Nashoihul ‘ibad:5:4.

Enam Hal Yang Tidak diMiliki Oleh Enam Perkara

Ahnaf bin Qais berkata:”

Tidak ada ketenangan bagi orang yang hasud;
Tidak ada muru’ah (Harga diri) bagi pendusta;
Tidak ada kecakapan bertindak bagi orang yang bakhil;
Tidak ada amanah bagi orang yang diperbudak;
Tidak ada kehormatan bagi orang yang berbudi pekerti buruk;
Tidak ada penolakan bagi ketentuan Alloh.”

src: Nashilhul ibad:5:14.

Tugas Struktur Data1

Array dan Implementasinya

Array disebut juga larik, merupakan runtun data dengan setiap elemen data menggunakan nama yang sama dan masing-masing elemen data bertipe sama.(RE)
Pengertian yang lebih rinci dari Array adalah tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama. Komponen-komponen tersebut disebut sebagai komponen type, larik mempunyai jumlah komponen yang jumlahnya tetap. Banyaknya komponen dalam larik ditunjukkan oleh suatu index, dimana tiap komponen di array dapat diakses dengan menunjukkan nilai indexnya atau subskript. Array dapat bertipe data sederhana seperti byte, word, integer, real, bolean, char, string dan tipe data scalar atau subrange. Tipe larik mengartikan isi dari larik atau komponen- komponenya mempunyai nilai dengan tipe data tersebut.(RE)

- Setiap komponen (elemen) array dapat dibedakan dan diakses melalui nomor indeksnya.

- Struktur array dapat digolongkan menjadi:
>> Array berdimensi satu
>> Array berdimensi dua
>> Array berdimensi banyak

a. Array Satu Dimensi

- Struktur arrai satu dimensi dapat dideklarasikan dengan bentuk umum berupa:
Tipe nama_var [ukuran];
- dengan:
tipe: untuk menyatakan jenis elemen array (misalnya char, int, unsigned).
Ukuran untuk menyatakan jumlah maksimal elemen array.(RE)
- contoh pendeklarasian suatu array lima elemen dengan tipe float adalah sebagai berikut:
float nilai_tes [5];

Mengakses Elemen Array
- Pada bahasa C, data array akan disimpan dalam memori pada lokasi yang berurutan.
- Elemen pertama mempunyai indeks bernilai 0.
- Jika pada contoh variabel nilai_tes mempunyai 5 elemen, maka elemen pertama mempunyai indeks sama dengan 0, elemen kedua mempunyai indeks 1, dan seterusnya.
- Gambar 7.1 memperlihatkan urutan komponen array dalam memori.(RE)
- Bentuk umum pengaksesan suatu elemen variabel array adalah:

Nama_var [indeks];
- Untuk variabel array nilai_tes, Struktur Array
>> Nilai_tes[1] elemen ke-1 dari nilai_tes
>> Nilai_tes[3] elemen ke-3 dari nilai_tes


b. Array Dua Dimensi

Di dalam pascal Array dapat berdimensi lebih dari satu yang disebut dengan array dimensi banyak (Multidimensional array), disini akan dibahas array 2 dimensi saja. Array 2 dimensi dapat mewakili suatu bentuk tabel atau matrik, yaitu indeks pertama menunjukkan baris dan indeks ke dua menunjukkan kolom dari tabel atau matrik.(RE)
1 2
1 2 3
Untuk mengetahui cara mendeklarasikan dari penggunaan aray dua dimensi dapat dilihat pada listing program dibawah ini .(RE)

Contoh Program:
Program Deklarasi_Array_Dua_Dimensi;
Uses Crt;
Var Tabel : Array[1..3,1..2] of Integer;
i,j : Integer;
Begin
ClrScr;
Tabel[1,1]:=1;
Tabel[1,2]:=2;
Tabel[2,1]:=3;
Tabel[2,2]:=4;
Tabel[3,1]:=5;
Tabel[3,2]:=6;
For I := 1 to 3 Do Begin For J:= 1 to 2 Do Begin Writeln('Elemen ',i,',',j,'= ',tabel[i,j]);
End;
End;
Readln;
End.


c. Array Sebagai Parameter atau dimensi banyak

Array dapat digunakan sebagai parameter yang dikirimkan baik secara nilai (by value) atau secara acuan (by reference) ke procedure atau ke function. Procedure yang menggunakan parameter berupa array harus dideklarasikan di dalam judul procedure yang menyebutkan parameternya bertipe array.(RE)

Contoh Program :
Program Contoh_Pengiriman_Parameter_Array_Di_Procedure;
Uses Crt;
Const
Garis ='---------------------------------------------------';
Type
Untai = Array[1..10] of String[15];
Bulat = Array[1..10] of Integer;
Huruf = Array[1..10] of Char;
Var
i,Banyak : Integer;
Procedure Proses(Nama:Untai;Nilai:Bulat);
Var
Ket : String;
Abjad : Char;
Begin
Writeln(Garis);
Writeln('Nama Nilai Abjad Keterangan');
Writeln(Garis);
For i := 1 to Banyak Do
Begin
If Nilai[i] > 90 Then
Begin
Abjad:='A';
Ket :='Istimewa';
End;
If (Nilai[i]<90)>70) Then
Begin
Abjad:='B';
Ket :='Memuaskan';
End;
If (Nilai[i]<70)>60) Then
Begin
Abjad:='C';
Ket :='Cukup';
End;
If (Nilai[i]<60)>45) Then
Begin
Abjad:='D';
Ket :='Kurang';
End;
If Nilai[i]< data ="');Readln(Banyak);" nama ="');readln(Nama[i]);" nilai ="');readln(Nilai[i]);">


Alokasi Penggunaan Array

a. Array Static (Static Array)

array static adalah model pendeklarasian array dimana tipe data yang digunakan mempunyai nilai yang tetap. Nilai yang digunakan untuk menentukan jangkauan pada umumnya bernilai integer. Array Static juga bisa disebut Array dengan deklarasi tipe indeks subrange integer.(RE)



Bentuk Umum

array[indexType1, ..., indexTypen] of baseType

Keterangan = index type menunjukan tipe data ordinal yang menunjukan batasan atau elemen maksimul terhadap seberapa besar variabel tersebut menyimpan komponen.(RE)

Contoh

Var arrayku : array[1..5] of char

Atau juga

type
jangkauan = 1..5;
var
nilai : array[jangkauan] of integer;

contoh lain :

var
pegawai:array [1..4] of nama_record;
A:Byte;

begin
for A:=1 to 4 do

begin
write ('NIP : '); readln (pegawai [A].NIP);
end;
for A:=1 to 4 do
begin
write ('NIP:', pegawai[A].NIP);
end;
readln;

end. (RE)//di semester satu yang dibimbing oleh Bpk. Choirul Umam, S.Kom. Makasih Pak!!!

b. Array Dinamis (Dynamic arrays)

Larik atau array dinamis merupakan array yang tidak mempunyai suatu jangkauan atau ukuran yang tetap. Tetapi ketika program dijalankan maka memori untuk suatu array dinamis direalokasikan ketika kita menugaskan suatu nilai kepada array. Dynamic-Array jenis ditandai oleh konstruksi (menyangkut) format.(RE)

Bentuk Umum

array of baseType

Contoh :

var nilai: array of Real;

Contoh lain array Dinamik (semester satu) :

type
aray_integer:array of integer;

var
panjang,lebar:Array_integer;
A,data:byte;

begin
write ('Jumlah Array :'); readln (data);
setlenght (panjang, data);
setlenght (lebar, data);
for A:=1 to data do

begin
write('Panjang ke',A,','); readln (panjang [A]);
write('lebar ke',A,','); readln (lebar [A]);
writeln (-------------);
end;

a:=0;
for A:=1 to data do

begin
writeln ('Luas ke',A,':',Panjang [A]*lebar[B]);
end;
readln;

end.(RE)

Dari deklarasi tersebut nilai yang merupakan deklarasi array belum memperoleh nilai yang tetap, tetapi hanya diberikan batasan sebagai tipe data real. Untuk mendeklarasikan array tersebut kita harus menempatkan array didalam suatu memori, caranya adalah dengan memanfaatkan fungsi dari perintah sellength.(RE)

Selllength(nilai,20)

Dari penggalan program tersebut nilai untuk array nilai tersebut mempunyai range sebanyak atau cakupan 20 untuk tipe data real, dengan indeex dimulai dari 0 sampai dengan 20.(RE)

Kisah Seorang Ulama Buntung

Kisah Seorang Ulama Buntung

Oleh Sabrur R Soenardi

Beberapa abad silam, di sudut distrik terpencil Zamakhsyar, seorang bocah
mungil asyik bermain-main dengan seekor burung. Ketika ibunya memanggil, si
bocah tetap saja asyik bermain hingga akhirnya terjadilah sebuah tragedi :
Bocah ini mematahkan kedua kaki burung. Binatang malang ini mencicit
kesakitan, tetapi si bocah malah terbahak-bahak melihatnya.

Merasa panggilannya tak digubris, sang ibu menghampiri dengan marah. Dia
bertambah murka ketika tahu anaknya berbuat dosa pada sang burung yang
hampir putus kakinya. "Oh, anakku, bagaimana kau bisa seenaknya mematahkan
kaki burung kecil itu? Itu berdosa anakku. Ia sangat kesakitan. Coba
pikirkan jika itu terjadi padamu. Kamu akan menderita anakku, Kamu sungguh
keterlaluan."
Si bocah menggigil ketakutan. Baru kali ini ia melihat ibunya demikian
marah, mengeluarkan kata-kata kasar dan mengerikan.

Beberapa belas tahun kemudian, si bocah itu sudah menjadi remaja yang
matang. Ia tengah melakukan perjalanan pulang selepas menyelesaikan
belajarnya di sebuah madrasah di Iran. Malang, tiba-tiba seekor
kalajengking menyengat kudanya. Sang kuda meringkik, terhuyung, kemudian
terjerembat dan sang penunggang jatuh terjungkal.

Singkat cerita, sesampai remaja ini di rumah, ternyata kedua kakinya
terkilir hebat dan menurut tabib setempat, tidak bisa dipulihkan.
Satu-satunya jalan keluar adalah mengamputasinya. Ia pun mesti menerima
takdir Allah itu dengan ikhlas dan pasrah, menjadi manusia berkaki buntung.

Sang Ibu benar-benar terpukul atas nasib yang menimpa anaknya itu. Namun
suatu malam sehabis shalat tahajjud, sang ibu tersadar bahwa "kata-kata
buruk" yang dia ucapkan belasan tahun lalu kepada si bocah kecil yang
mematahkan kaki burung itu rupanya kini jadi kenyataan. Dalam larut atas
rasa berdosa yang tak terkendali, ia pun berdoa pada Allah agar di kemudian
hari, meski cacat tubuh, sang anak bisa menjadi manusia yang berguna bagi
Islam dan kaum Muslim.

Doa baik sang ibu dikabulkan Allah. Anak itulah yang di kemudian hari kita
kenal sebagai Abu Qasim Azzamakhsyari, seorang ulama paling brillian di
zamannya, sekaligus cendikiawan garda depan Muktazilah dengan karya
tafsirnya yang terkenal Alkasysyaf.

Dialah satu-satunya ulama yang buntung kedua kakinya, dan itu diyakini buah
dari "kata-kata buruk" sang ibu. Ia menjadi tokoh ternama, dan itu juga
diyakini sebagai buah dari "kata-kata mulia" sang ibu. Benar sabda Nabi SAW
bahwa salah satu doa yang pasti dikabulkan Allah adalah yang terucap dari
mulut orang tua (demi nasib anaknya). Maka, berhati-hatilah berucap untuk
anak-anak kita. Wallahu a'lam

From: http://yudhim.blogspot.com/2008/01/kisah-seorang-ulama-buntung.html

Gempa di Tanah Minang

Gempa di Tanah Minang

“Pak… Bapak….Ibu…”, tangisan seorang kakak yang melihat desanya ditimpa sebuah musibah. “Apa yang sedang terjadi disini”, sambil menggendong adiknya, dia hanya bisa berlari dan berlari menyisiri sawah yang panjang dan lapang. Setelah merasa capek dan tenaga mulai berkurang karena lelah, dia menoleh ke belakang, tapi tiba-tiba seorang tetangganya berteriak, “Terus…terus lari…gak usah berhenti…”. Tapi sang kakak hanya bisa berlari sampai situ dan menyingkir, “Mas… aku capek…pengen istirahat…Mas pergi duluan gak apa apa”. Sang kakak lalu berhenti dan menuruunkan adiknya. Setelah agak lama beristirahat, mereka lalu berdiri dan memandang dengan pandangan kosong. Adiknya menangis keras. Air mata mulai menetes dari air mata sang kakak. Walaupun begitu, dia berusaha tegar menghadapi kenyataan. Dia seorang kakak. Harus lebih tegar dari adiknya yang masih kecil, dan segera menghapus air matanya yang mulai meleleh seperti lilin yang habis dimakan api. Itulah sebagian cerita dari sepasang kakak beradik yang berhasil selamat dari bencana gempa bumi di Pariangan, Padang Sumatera Barat. Mereka adalah salah satu korban yang selamat dari sebagian kecil korban gempa.

Sedikitnya lebih dari 300 orang lebih yang tertimbun reruntuhan gempa longsoran gempa, tiga dusun yang berada di bawah kaki gunung terendam longsoran gunung yang masih berlumpur karena terjadi hujat yang lama sebelum terjadi gempa. Mereka seperti cacing yang langsung diberi lumpur, tapi ini bukan cacing, melainkan manusia yang tidak bisa hidup di dalam longsoran yang berupa campuran lumpur, pohon-pohon besar dan batu-batuan. Kakak beradik tersebut selamat karena saat kejadian gempa, mereka tidak berada di dalam rumah, mereka sedang mandi di daerah yang jauh dari longsoran. Walaupun mereka selamat, tapi mereka merasa sedih sekali. Karena semua keluarga dan tetangganya dilaporkan tidak mungkin bisa bertahan hidup di bawah longsoran lumpur, dan sejenisnya. Karena sulitnya penyelamatan yang dilakukan. Itulah sebabnya mereka hanya bisa menangis dari kejauhan. Dan terpaku pada tempat mereka berdiri.
Lalu apa yang harus dilakukan bagi kita yang selamat ini. Banyak sekali yang harus dilakukan. Diantaranya

Thingking
Berfikirlah…seandainya kita yang tertimpa bencana, apa yang pertama kali kita butuhkan?? Dari sini pasti kita tahu apa yang mereka butuhkan.


Praying
Jika kita tidak mampu untuk membantu secara langsung. Maka Berdo’ a lah.. karena pada saat itu, mereka sedang dicoba ketabahan mereka oleh Allah SWT. Kita berdo’a agar dimudahkan segala urusan yang berkaitan dengan penyelamatan para korban yang belum dan yang sudah selamat dari bencana.

Doing
Jika kita merasa mampu untuk menyumbang, maka sumbangkanlah segala apa yang kita bisa, seperti bantuan dana(lewat rekening-rekening yang bisa dipercaya, misalnya yang berada di infotaiment, kan biasanya tiap televisi, ato radio pasti menyiarkan tempat-tempat rekening yang bisa dikirim), bantuan logistik atau makanan, atau jika bisa ditambah bantuan obat-obatan. Karena bantuan-bantuan ini yang dibutuhkan pertama kali oleh mereka. Jika tidak bisa maka buatlah sesuatu yang bisa mengingatkan orang lain untuk membantu mereka. Itu juga termasuk dalam memberikan sumbangan, mengajak sesama untuk saling tolong menolong. Seperti : membuat puisi, poster, atau langsung meminta sumbangan langsung kepada orang-orang (tapi harus ada pengorganisasiannya, gak langsung minta-minta ya….). atau juga melalui internet juga bisa. Mudah kan !!!!!

(Raz-Ega)