serial number Microsoft Office Professional 2007

1. RQ7XB-WB9TB-DYHMY-XGK9Y-4KWPD 

2. RQ7XB-WB9TB-DYHMY-XGK9Y-4KWPD 

3. WRWWX-G9MMD-X4B8X-7JQP3-CMD93 

4. M2QKF-KDQ4R-YHQKD-M4YYK-GPWVD 

5. KGFVY-7733B-8WCK9-KTG64-BC7D8 

6. HGJH4-9W9FY-8C7B6-P2H6X-9DQ9T 

7. R8JH9-Q3JDV-H7CFG-FVY8Y-P6R2D 

8. TT3M8-H3469-V89G6-8FWK7-D3Q9Q

    

    

Read More

Untuk Direnungkan | Karena Kamu Tulang Rusukku - Dada ini longar bila tanpa penyangga, dada ini akan terasa terhimpit bila tulang yang ada tak mampu mempu menopang desah nafas. Itulah tulang rusuk, tulang rusuk suami ada pada istri dan istri sebagai penopang kehidupan suami. Tak lantas beramarah bila rusuk itu kemudian susah untuk diluruskan, dan tak harus jenggah bila suami tak jua segera meluruskan. Yang dibutuhkan adalah pengertian, kesabaran dan saling memberi waktu untuk mengerti. Itulah hakikat cinta sejati pasangan suami-istri.

Karena Kamu Tulang Rusukku
Sebuah senja yang sempurna, sepotong donat, dan lagu cinta yang lembut. Adakah yang lebih indah dari itu, bagi sepasang manusia yang memadu kasih? Raka dan Dara duduk di punggung senja itu, berpotong percakapan lewat, beratus tawa timpas, lalu Dara pun memulai meminta kepastian. ya, tentang cinta.
Dara : Siapa yang paling kamu cintai di dunia ini?
Raka : Kamu dong?
Dara : Menurut kamu, aku ini siapa?
Raka : (Berpikir sejenak, lalu menatap Dara dengan pasti) Kamu tulang rusukku! Ada tertulis, Tuhan melihat bahwa Adam kesepian. Saat Adam tidur, Tuhan mengambil rusuk dari Adam dan menciptakan Hawa. Semua pria mencari tulang rusuknya yang hilang dan saat menemukan wanita untuknya, tidak lagi merasakan sakit di hati.”

Setelah menikah, Dara dan Raka mengalami masa yang indah dan manis untuk sesaat. Setelah itu, pasangan muda ini mulai tenggelam dalam kesibukan masing-masing dan kepenatan hidup yang kain mendera. Hidup mereka menjadi membosankan. Kenyataan hidup yang kejam membuat mereka mulai menyisihkan impian dan cinta satu sama lain. Mereka mulai bertengkar dan pertengkaran itu mulai menjadi semakin panas. Pada suatu hari, pada akhir sebuah pertengkaran, Dara lari keluar rumah. Saat tiba di seberang jalan, dia berteriak,

“Kamu nggak cinta lagi sama aku!” Raka sangat membenci ketidakdewasaan Dara dan secara spontan balik berteriak,

“Aku menyesal kita menikah! Kamu ternyata bukan tulang rusukku!” Tiba-tiba Dara menjadi terdiam ,

Berdiri terpaku untuk beberapa saat. Matanya basah. Ia menatap Raka, seakan tak percaya pada apa yang telah dia dengar. Raka menyesal akan apa yang sudah dia ucapkan. Tetapi seperti air yang telah tertumpah, ucapan itu tidak mungkin untuk diambil kembali. Dengan berlinang air mata, Dara kembali ke rumah dan mengambil barang-barangnya, bertekad untuk berpisah. “Kalau aku bukan tulang rusukmu, biarkan aku pergi. Biarkan kita berpisah dan mencari pasangan sejati masing-masing.”

Lima tahun berlalu. Raka tidak menikah lagi, tetapi berusaha mencari tahu akan kehidupan Dara. Dara pernah ke luar negeri, menikah dengan orang asing, bercerai, dan kini kembali ke kota semula. Dan Raka yang tahu semua informasi tentang Dara, merasa kecewa, karena dia tak pernah diberi kesempatan untuk kembali, Dara tak menunggunya. Dan di tengah malam yang sunyi, saat Raka meminum kopinya, ia merasakan ada yang sakit di dadanya. Tapi dia tidak sanggup mengakui bahwa dia merindukan Dara. Suatu hari, mereka akhirnya kembali bertemu. Di airport, di tempat ketika banyak terjadi pertemuan dan perpisahan, mereka dipisahkan hanya oleh sebuah dinding pembatas, mata mereka tak saling mau lepas.

Raka : Apa kabar?
Dara : Baik… ngg.., apakah kamu sudah menemukan rusukmu yang hilang?
Raka : Belum.
Dara : Aku terbang ke New York dengan penerbangan berikut.
Raka : Aku akan kembali 2 minggu lagi. Telpon aku kalau kamu sempat. Kamu tahu nomor telepon kita, belum ada yang berubah. Tidak akan ada yang berubah.
Dara tersenyum manis, lalu berlalu.
“Good bye….”

Seminggu kemudian, Raka mendengar bahwa Dara mengalami kecelakaan, mati. Malam itu, sekali lagi, Raka mereguk kopinya dan kembali merasakan sakit di dadanya. Akhirnya dia sadar bahwa sakit itu adalah karena Dara, tulang rusuknya sendiri, yang telah dengan bodohnya dia patahkan.

“Kita melampiaskan 99% kemarahan justru kepada orang yang paling kita cintai. Dan akibatnya seringkali adalah fatal”

Kirimkan Ini lewat EmailBlogThis!Berbagi ke TwitterBerbagi ke Facebook

Read More

MobiHand Launches Theme Store | Z Man Designs

MobiHand Launches Theme Store | Z Man Designs

Read More

CARA CEPAT BELAJAR PASCAL

Belajar Dasar Turbo Pascal
program Turbo Pascal yang lebih lengkap ikuti langkah-langkah berikut :

1.

Bila Komputer Anda belum terinstall winrar atau winzip installah program tersebut, program winrar dapat Anda download melalui link yang ada di pilar kanan situs ini.
2.

Pindahkan file pascal.zip ke Drive C: jangan didalam folder lagi agar mudah untuk memanggilnya melalui Command Prompt.
3.

Bila Winrar sudah terinstall, klik kanan file pascal.zip lalu pilih extract to pascal.
4.

Jalankan Command Prompt dari windows Anda, klik start run lalu ketik command klik ok maka command Prompt akan ditampilkan. Setelah itu ketik CD\ dan ketik C: maka drive yang aktif saat ini di command prompt adalah drive C.
5.

Setelah itu ketik CD PASCAL lalu tekan enter, maka sekarang Anda berada di drive C: pada folder pascal yang telah Anda extract tersebut. Kemudian Ketik Install lalu tekan enter. maka proses instalasi TURBO PASCAL 5.5 akan berlangsung. Ikuti saja petunjuk instalasi pascal yang ada di proses instalasi. Folder default instalasi pascal adalah TP.
6.

setelah instalasi pascal selesai keluar lah dahulu dari program pascal, kembali ke command prompt. Pada command prompt ketik lagi CD\pascal maka Anda akan kembali lagi ke folder pascal, setelah berada di folder pascal extract beberapa file yang berekstensi ARC ke folder TP, Sebelumnya ketik perintah DIR *.ARC maka semua file yang berekstensi ARC akan ditampilkan, catat nama file-file tersebut. Ada beberapa file ARC yang ada di folder pascal ini yaitu : BGI.ARC, DEMOS.ARC, DOC.ARC, HELP.ARC, OOPDEMOS.ARC, TCALC.ARC, TOUR.ARC, TURBO3.ARC, dan UTILS.ARC. File tersebut hanya bisa di extract oleh file UNPACK.COM yang berada di folder pascal. cara mengekstract nya sebagai berikut :

Buat folder pada direktori TP sesuai dengan nama-nama file arc yang akan diextract contoh : Anda akan mengekstract file DEMOS.ARC, maka buatlah direktori di folder TP dengan nama DEMOS. Masuk ke folder TP -- ketik CD\TP lalu ketik MD DEMOS maka folder dengan nama DEMOS akan terbentuk di folder TP. Setelah terbentuk folder DEMOS sekarang Anda beralih lagi ke folder PASCAL dengan mengetik CD\PASCAL, di folder PASCAL ketik perintah berikut UNPACK DEMOS C:\TP\DEMOS lalu tekan Enter. Maka file DEMOS.ARC akan di extract ke folder DEMOS yang berada di dalam folder TP. Lakukan hal yang sama pada file ARC yang lainnya.

Tampilan Pascal 5.5
Tampilan PASCAL versi 5.5

Memulai PASCAL

Pada bahasa pascal Anda akan bermain dengan KEYBOARD bukan MOUSE, jadi untuk sementara lupakan fasilitas GUI yang dimanjakan oleh WINDOWS. sebab kita kembali ke tahun 80-an dimana PASCAL menjadi suatu bahasa Pemrograman pavorite dikalangan SCIENTIEST saat itu. Tombol keyboard yang paling pokok untuk mengakses program PASCAL adalah tombol : alt, esc, ctrl, F1 -- F12, ENTER, serta tombol anak panah. jadi bila salah satu tombol tersebut ada yang tidak berfungsi sebaiknya lupakan saja belajar pascal ini sampai Anda mengganti keyboard Anda dengan yang baru.

Untuk memulai pascal dari windows Anda dapat mengklik dua kali file TURBO.EXE, sedangkan bila melalui COMMAND PROMPT Anda dapat mengetikan perintah TURBO lalu tekan ENTER maka program PASCAL akan diload seperti gambar diatas. Tekan tombol ESC maka Program utama TURBO PASCAL akan di tampilkan, dari sini KEYBOARD menjadi senjata Anda untuk mengakses menu-menu yang ada di program utama PASCAL. Untuk lebih jelasnya mengenai penggunaan Keyboard pada pascal Anda dapat menekan tombol F1 yang akan memunculkan fasilitas HELP pada Pascal.

Untuk mengakses menu dari program pascal Anda gunakan tombol ALT di ikuti dengan Huruf pertama yang berwarna merah, contoh Anda akan mengakses menu File maka Anda dapat mengaksesnya dengan menekan tombol ALT dan huruf F. sekarang tekanlah tombol ALT+E, maka Anda berada pada mode editor, dan PASCAL siap untuk menerima perintah-perintah Program Anda. Sebagai perkenalan coba Anda ketikan program dibawah ini di editor PASCAL.

{ Program : Input dari keyboard dan Menghitung operasi matematika }

{ Create by : Komarudin_surya@suryatekno }



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.

Menu Editor PASCAL
Menu Editor Pascal

Setelah Anda ketik kode-kode program tersebut simpanlah file tersebut dengan nama testprog.pas, kemudian tekan tombol CTRL+F9 untuk melihat hasil program yang Anda ketik tersebut.
Siapa Nama Anda...? _

Masukanlah Sembarang Nama, misalkan nama yang anda masukan adalah BEJO, maka selanjutnya akan ditampilkan kalimat seperti dibawah ini :
Siapa Nama Anda...? BEJO

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..= _

Sekarang Program meminta anda untuk memasukan nilai operasi untuk x kemudian y dan z , setelah itu program akan menampilkan hasil operasi matematika itu dan menanyakan lagi pada anda, apakah akan menghitung lagi atau tidak, bila anda memasukan huruf t maka program akan dihentikan sedangkan bila anda memasukan huruf y program akan diulang lagi.
Siapa Nama Anda...? BEJO

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..= 5
masukan nilai y..= 5
masukan nilai z..= 5

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

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

Dari contoh program pengenalan diatas, Anda dapat melihat dalam program sederhana tersebut terdapat beberapa atribut, variabel, serta beberapa statemen. sekarang mari kita uraikan program sederhana tersebut berdasarkan kelompok-kelompok.

{ Program : Input dari keyboard dan
Menghitung operasi matematika }
{ Create by : Komarudin_surya@suryatekno }

Pada bagian ini merupakan suatu KOMENTAR yang tidak diproses oleh program, bagian komentar ini diperlukan untuk keperluan Dokumentasi agar program dapat diketahui maksud dan tujuannya serta bila kita suatu waktu akan menambahkan atau merubah program maka kita dapat dengan cepat mengetahui lokasi dari bagian program yang perlu kita tambahkan atau dirubah. Untuk memberikan komentar dalam pascal diberikan tanda { dan } atau (* dan *), jadi apapun yang dituliskan didalam kurung tersebut tidak akan diproses oleh program.

uses Crt;

perintah ini merupakan suatu UNIT, Unit mempunyai beberapa prosedur dan jenisnya. UNIT dalam Pascal harus disertakan untuk mengaktifkan prosedur-prosedur yang akan diprogram. Sedangkan Prosedur didalam Pascal dapat berbentuk prosedur yang didefinisikan atau dibuat sendiri oleh pemakai atau prosedur yang telah disediakan oleh Pascal. Prosedur yang didefinisikan sendiri oleh pemakai harus dideklarasikan terlebih dahulu.

Unit-unit dalam PASCAL 5.5 ada tujuh buah unit standar, ketujuh unit tersebut disimpan dalam file yang bernama TURBO.TPL. Unit-unit tersebut yaitu :

1.

UNIT System -- Unit ini merupakan sebuah runtime Turbo Pascal yang mendukung semua proses yang dibutuhkan pada waktu runtime (eksekusi program). Anda akan menemui pesan error seperti ini "RUNTIME ERROR" bila Anda salah dalam memanipulasi system yang diprogramkan. Unit ini Otomatis ditambahkan oleh Pascal walau Anda tidak mencantumkan nya sewaktu meng-Compile.
2.

UNIT CRT -- Unit ini digunakan untuk keperluan program dalam memanipulasi layar, dalam hal ini bisa berupa manipulasi TEKS, KURSOR, KODE EXTENDED KEYBOARD dll.
3.

UNIT Printer -- Sesuai dengan namanya maka unit ini tentu saja digunakan dalam program yang berhubungan dengan printer, misalkan kita akan mencetak suatu program ke printer maka unit ini harus digunakan untuk mengaktifkan printer. Printer yang bisa didukung hanya printer jenis LPT dan COM, sedangkan printer jenis USB tidak bisa diakses karena pada waktu itu belum ada printer yang berjenis USB, kecuali printer tersebut menyediakan DRIVER untuk DOS kemungkinan printer USB bisa digunakan oleh PASCAL 5.5 ini.

Contoh program yang menggunakan unit printer :

(* Program Pencetakan Printer, Catatan dlm Pascal 5.0 keatas harus ditambahkan kata Lst *)

Uses Printer;
Begin
WriteLn(Lst,'Saya sedang mencoba Printer.');
WriteLn(Lst,'Create By : Suryatekno©2008');
WriteLn(Lst,'============================');
End.
4.

UNIT DOS -- Unit ini digunakan bila anda akan mengaktifkan prosedur-prosedur yang ada dalam DOS seperti DosVersion, GetTime, SetTime, DiskSize, DiskFree, Call, Dir, Path, Copy dan sebagainya.

Contoh program yang menggunakan unit DOS :

(* Program melihat versi DOS dan sisa Disk,
Create By : Suryatekno *)

Uses DOS,CRT;
var ukuran : longint;
Begin
ukuran := DiskFree(0);
ClrScr;
WriteLn('Versi DOS yang Anda gunakan adalah : MS-DOS ',DosVersion);
WriteLn('Sisa Kapasitas Harddisk Anda : ',ukuran,' Bytes');
WriteLn;
WriteLn('Tekan tombol apa saja untuk keluar');
ReadLn;
End.
5.

UNIT Graph -- Unit ini digunakan untuk menampilkan grafik seperti Tabel, Chart Statistik dan sebagainya. Biasanya Unit ini digunakan bila kita ingin menampilkan suatu grafik seperti pada MS-EXCEL. Bisa juga digunakan untuk membuat animasi, Game dan sebagainya.

{ Program menampilkan Grafik Bar,
Create By : Suryatekno 2008 }

Uses Graph;
var
Driver,Model : integer;
I : integer;
Begin
Driver := VGA;
Model := VGAHi;
InitGraph(Driver, Model, ' ');

Line(20,25,20,155);
Line(20,155,200,155);

Randomize;
for I := 0 to 4 do
Bar3D(30+I*35, 154-Random(100),55+I*35,154,15,TopOn);
WriteLn;
WriteLn('Tekan Sembarang Tombol untuk Keluar');
ReadLn;
End.
6.

UNIT Turbo3 -- Unit ini digunakan pada pascal 3.0 sedangkan untuk pascal versi 4.0 keatas unit ini sudah tidak digunakan lagi atau tidak difungsikan. Kegunaannya adalah sewaktu anda meng-upgrade dari pascal versi 3.0 ke 4.0 atau 5.0 , Untuk latihan kita sekarang unit ini tidak kita gunakan saja.
7.

UNIT Graph3 -- Unit ini digunakan untuk meng-konversi grafik yang dibuat oleh pascal versi 3.0 agar dapat digunakan oleh pascal 4.0 keatas, sama seperti unit Pascal3 unit ini pun tidak kita gunakan pada latihan kita ini sebab kita menggunakan PASCAL versi 5.5 yang lebih canggih dan lengkap.

Untuk Lebih jelasnya mengenai unit-unit ini silahkan anda buka Folder DOC yang ada pada Direktory TP. Atau bila Anda orang yang kreatif dan tidak cepat puas silahkan Anda mencari referensi-referensi dari situs atau media yang lainnya, Ini sangat saya anjurkan dan saya acungkan jempol bila Anda melakukan hal ini.

Sekarang kita lanjutkan mengenai pembahasan program perkenalan yang telah anda buat pertama kali.

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

Pada bagian ini disebut VARIABLE , Semua bahasa pemrograman memerlukan variabel untuk mengetahui type atau jenis data yang digunakan oleh si programer. Pada contoh program pengenalan tersebut kita memberitahukan kepada PASCAL bahwa type atau jenis variabel yang kita gunakan untuk variable x,y, dan z bertype longint, variable lagi bertype char dan variable namak bertype String dengan panjang karakter sebanyak 20 string.

1. DEKLARASI VARIABEL (VARIABLE DECLARATION)

Deklarasi variabel adalah suatu deklarasi yang nilai nya sudah pasti, dengan kata lain Deklarasi jenis ini tidak dapat dirubah lagi atau konstan. Pada contoh program diatas, deklarasi variabel untuk x, y dan z berjenis longint ( bilangan bulat dari -2147483648 sampai 2147483648 ) maka dalam program tersebut, hanya bisa dimasukan tipe data yang berjenis tersebut. Pada contoh diatas bila anda memasukan nilai selain tipe tersebut, misalkan anda memasukan angka A pada pada pertanyaan masukan nilai x..= maka program akan error, Nah agar tidak terdapat pesan error pada program tersebut, maka program tersebut harus ditambahkan suatu baris perintah yang berjenis logika jadi bila user memasukan nilai-nilai x,y dan z selain dari jenis tersebut maka akan dikeluarkan suatu peringatan yang memberitahukan user agar memasukan nilai untuk x, y dan z hanya bisa dimasukan oleh type variabel tersebut.

Silahkan Anda tambahkan baris perintah pada program testprog.pas diatas, agar user tidak salah dalam memasukan type data yang telah ditentukan !.

2. DEKLARASI KONSTANTA (CONSTANT DECLARATION)

Sama seperti deklarasi variabel, deklarasi konstanta juga bersifat tetap (konstan), bedanya adalah bila dalam deklarasi variabel kita hanya mendeklarasikan jenis dari data yang harus dikerjakan, sedangkan pada deklarasi konstanta kita langsung menyebutkan nilainya. Deklarasi konstanta tidak menggunakan tanda titik dua ( : ) seperti pada deklarasi variabel tetapi menggunakan tanda sama dengan ( = ).

Contoh Program yang menggunakan deklarasi konstanta



{ Progam : Penggunaan deklarasi konstanta

Design By : suryatekno©2008 }



uses crt;



const

nama = 'Amir';

nip = 'A3110';

gaji = 1000000;

lembur = 50000;

begin

clrscr;

writeLn('Nama Pegawai : ',nama);

writeLn('N I P : ',nip);

writeLn('Gaji Pokok : ',gaji);

writeLn('Uang Lembur : ',lembur);

writeLn('--------------------- +');

writeLn('Total Gaji : ',gaji+lembur);

writeLn;

writeLn('Tekan tombol ENTER untuk keluar');

readLn;

end.





DEKLARASI TIPE (TYPE DECLARATION)

Deklarasi tipe biasanya digunakan bila kita bekerja dengan ARRAY atau larik. Deklarasi Tipe mempunyai banyak sekali jenis dan type yang ditanganinya, saya tidak bisa menjelaskannya satu persatu kepada Anda dikarenakan terbatasnya space atau ruang yang disediakan pada situs ini, disamping itu pokok bahasan tutorial ini adalah PEMROGRAMAN DELPHI, saya kuatir nantinya pokok bahasan tersebut tidak bisa dimuat karena keterbatasan ini. Untuk itu saya sekali lagi menugaskan kepada Anda untuk mencari dari situs atau media lain mengenai DEKLARASI TYPE ini.

Contoh Program yang menggunakan deklarasi tipe

{ Program : Contoh penggunaan deklarasi tipe

Design By : Suryatekno©2008 }



uses crt;



type J = array[1..8] of string[20];



const

Jadwal : J=('Mandi','Sarapan','Meeting',

'Menemui Pak Badrun','Pulang',

'Mandi','Makan Malam','Istirahat');

var

I : word;



begin

clrscr;

writeLn('Jadwal Hari ini');

writeLn('===============');

writeLn;

for I:=1 to 8 do

writeLn(' ',I,'. ',Jadwal[I]);

writeLn('Tekan enter untuk Keluar.....');

readLn;

end.



4. DEKLARASI LABEL (LABEL DECLARATION)

Deklarasi label adalah suatu deklarasi yang digunakan untuk memberi tanda (MARK) pada program agar program dapat berpindah atau meloncat pada tanda (MARK) yang ditentukan. Deklarasi ini mirip dengan bahasa PEMROGRAMAN BASIC yang menggunakan NOMOR BARIS untuk berpindah dari baris ke baris. Penulisan Deklarasi label ini harus menggunakan perintah LABEL yang dipisahkan dengan tanda koma ( , ).

Contoh program yang menggunakan deklarasi Label.

{ Program : Memilih dengan deklarasi Label

Design By : Suryatekno©2008 }



uses crt;

label

1,2,3,4,keluar; {Deklarasi label yang ditentukan}



var

ketik,ulang : char;



begin



1: { label ke - 1 sebagai pokok program }

clrscr;

writeLn('Menu Masakan Hari ini');

writeLn('---------------------');

writeLn;

writeLn('a. Nasi Putih + Rendang');

writeLn('b. Nasi Putih + Telur Dadar');

writeLn('c. Nasi Putih + Tempe Goreng');

writeLn;

writeLn('Masukan Huruf a , b atau c untuk Pesanan Anda.');

write('Pilihan Anda..? ');readLn(ketik);



{ Jika user memilih pilihan tersebut, maka program akan

meng-eksekusi program sesuai dengan LABEL yang dituju }



if ketik='a' then

begin

goto 2;

end;

if ketik='b' then

begin

goto 3;

end;

if ketik='c' then

begin

goto 4;

end



{ User tidak memilih atau salah dalam memasukan pilihan

selain yang ditentukan maka program akan meng-eksekusi

program yang lainnya, dalam program ini akan ditampil

kan kalimat "Anda tidak pesan apa-apa." lalu

meng-eksekusi LABEL keluar yang mengakhiri program }



else

begin

clrscr;

writeLn('Anda tidak pesan apa-apa.');

writeLn('Mungkin Anda tidak Lapar..);

writeLn;

writeLn('Tekan Enter untuk keluar..');

readLn;

goto keluar;

end;



2: { label ke - 2 bila user memilih pilihan a }

clrscr;

writeLn('Pesanan Anda Nasi Putih + Rendang, Terima Kasih.');

writeLn;

write('Pilih Lagi..(y/t) ? ');ReadLn(ulang);

if (ulang='y') or (ulang='Y') then

begin

goto 1;

end

else

begin

goto keluar;

end;



3: { label ke - 3 bila user memilih pilihan b }

clrscr;

writeLn('Pesanan Anda Nasi Putih + Telur Dadar,Terima Kasih.');

writeLn;

write('Pilih Lagi..(y/t) ? ');ReadLn(ulang);

if (ulang='y') or (ulang='Y') then

begin

goto 1;

end

else

begin

goto keluar;

end;



4: { label ke - 4 bila user memilih pilihan c }

clrscr;

writeLn('Pesanan Anda Nasi Putih + Tempe Goreng,Terima Kasih.');

writeLn;

write('Pilih Lagi..(y/t) ? ');ReadLn(ulang);

if (ulang='y') or (ulang='Y') then

begin

goto 1;

end

else

begin

goto keluar;

end;



keluar: { label keluar yang mengakhiri program }



end.

Penulisan label bebas sesuai dengan keinginan anda, bisa sebuah kata atau karakter, yang penting nama label tidak boleh sama dengan nama variabel, type, atau konstanta yang anda tetapkan. Bila itu terjadi maka kemungkinan akan terjadi konflik variabel dalam pengeksekuasian program. Contoh diatas akan terus dilakukan selama anda memilih pilihan yang di tetapkan. Ada cara yang lebih praktis ketimbang menggunakan LABEL yaitu dengan printah CASE - OF yang akan dibahas nanti.

4. DEKLARASI PROSEDUR (PROCEDURE DECLARATION)

Deklarasi prosedur adalah sebuah deklarasi yang dibuat dalam program agar bisa digunakan lagi dalam program, jadi deklarasi prosedur merupakan sebuah SUB PROGRAM yang bisa dipanggil sewaktu-waktu dalam program bila dibutuhkan. Dalam sebuah program yang terstruktur, Deklarasi Prosedur ini sangat dibutuhkan agar program menjadi lebih simpel. Untuk mengerti arti dari PROSEDUR ini saya berikan contoh kasus sebagai berikut : misalkan ada sebuah proses yang yang harus dikerjakan berulang kali untuk menampilkan kata "SURYATEKNO" , maka dalam program yang terstruktur kata tersebut disimpan dalam sebuah prosedur yang dapat dipanggil lagi dimanapun kata tersebut diperlukan.

Contoh program yang menggunakan Deklarasi Prosedur.

uses crt;



{ini adalah prosedur dgn nama s

yang akan menampilkan kata suryatekno}



Procedure s;

begin

write('Suryatekno');

end;



{akhir prosedur}



{program utama}



begin

clrscr;

s; { prosedur yang dipanggil }



WriteLn(' adalah suatu organisasi yang menghimpun');

writeLn('orang-orang yang mempunyai minat sama.');

writeLn;



s; { prosedur yang dipanggil }



writeLn(' juga merupakan sebuah kelompok belajar.');

writeLn;

writeLn('Tekan Enter untuk keluar...');

readLn;

end.

{akhir program utama}

Prosedur mempunyai banyak jenisnya, disini saya hanya akan menjelaskan suatu prosedur yang mudah-mudah saja agar anda sebagai pemula mengerti dalam menggunakan prosedur ini.

Prosedur yang paling terkenal adalah Prosedur REKURSI (RECURSION PROCEDURE) . Prosedur ini adalah sebuah prosedur yang menggunakan sendiri prosedurnya, jadi prosedur ini adalah prosedur yang memakan prosedur . Contoh kasus proses rekursi yang rumit adalah sebagai berikut :

Anda diminta untuk memindahkan sebuah piringan yang berbeda satu dengan yang lainnya secara satu persatu dari sebuah tumpukan ke tumpukan yang lainnya, dengan syarat piringan yang lebih kecil tidak boleh berada dibawah piringan yang lebih besar, dan pemindahan nya harus satu persatu tidak boleh sekalian. Lihat gambar.

Menara Hanoi
Rekursi yang rumit, disebut juga sebagai MENARA HANOI

Anda harus memindahkan piringan yang berjumlah 20 buah piringan yang berbeda dari menara A ke menara C, untuk keperluan tersebut Anda diberikan sebuah menara lagi yaitu menara B. Yang menjadi pertanyaan adalah : Berapa kali Anda memindahkan sebuah piringan yang sama, dan berapa langkah yang Anda tempuh serta berapa lama Anda memindahkannya ?. Sebagai bantuan lagi Anda diberikan contoh untuk 2 buah piringan sebagai berikut : Pertama Anda pindahkan piringan yang ke 2 ke menara B lalu pindahkan piringan ke 1 ke menara C setelah itu pindahkan piringan ke 2 yang berada di menara B ke menara C selesai ( Ingat piringan yang lebih kecil tidak boleh berada dibawah piringan yang besar..! ). Sekarang cobalah untuk 20 piringan yang ditugaskan kepada anda !.

Pusing menghitung nya yah..?, kalau pusing berapa langkah yang Anda tempuh untuk tugas itu, dibawah ini saya berikan contoh program yang memakai prinsip REKURSI untuk menghitung langkah yang diperlukan. serta akan diperlihatkan piringan mana saja yang akan dipindahkan terlebih dahulu, Anda bisa saja memasukan 1000 piringan misalnya, tetapi Anda harus sabar menunggunya, sebab bila Anda memasukan waktu yang diinginkan sebesar 1 detik saja untuk setiap piringan, berarti Anda harus sabar menunggu program untuk menghitung dan memperagakan kepada Anda selama 3 Hari. Untuk contoh ini cobalah Anda masukan Tugas memindahkan piringan diatas dengan bantuan program ini..hehehe malas ni yeee .

Uses crt;

{ Awal Prosedur Rekursi }

procedure MenaraHanoi(Jumlah : Integer;

Sumber,Tujuan,Bantuan : Char;

var Langkah,Jumlah_A,

Jumlah_B,Jumlah_C,Waktu : Integer);

Var

Baris_Sumber,Kolom_Sumber,

Baris_Tujuan,Kolom_Tujuan : Integer;

Begin

if Jumlah > 0 Then

Begin

MenaraHanoi(Jumlah-1,Sumber,Bantuan,Tujuan,

Langkah,Jumlah_A,Jumlah_B,Jumlah_C,Waktu);

Langkah := Langkah+1;

if Sumber = 'A' Then

Begin

Kolom_Sumber := 30;

Baris_Sumber := 24-Jumlah_A;

Jumlah_A := Jumlah_A-1;

End

Else

if Sumber = 'B' Then

Begin

Kolom_Sumber := 40;

Baris_Sumber := 24-Jumlah_B;

Jumlah_B := Jumlah_B-1;

End

Else

Begin

Kolom_Sumber := 50;

Baris_Sumber := 24-Jumlah_C;

Jumlah_C := Jumlah_C-1;

End;



if Tujuan = 'A' Then

Begin

Kolom_Tujuan := 30;

Jumlah_A := Jumlah_A+1;

Baris_Tujuan := 24-Jumlah_A;

End

Else

if Tujuan = 'B' Then

Begin

Kolom_Tujuan := 40;

Jumlah_B := Jumlah_B+1;

Baris_Tujuan := 24-Jumlah_B;

End

Else

Begin

Kolom_Tujuan := 50;

Jumlah_C := Jumlah_C+1;

Baris_Tujuan := 24-Jumlah_C;



End;



Delay(Waktu*1000);

GotoXY(Kolom_Sumber,Baris_Sumber); Write(' ');

GotoXY(Kolom_Tujuan,Baris_Tujuan); Write(Jumlah);

GotoXY(18,24); Write(Langkah);



MenaraHanoi(Jumlah-1,Bantuan,Tujuan,Sumber,

Langkah,Jumlah_A,Jumlah_B,Jumlah_C,Waktu);

End;

End;

{Akhir Rekursi}



{Program Utama}

Var

Jumlah, Langkah : Integer;

Sumber,Bantuan,Tujuan : Char;

I,Baris : Integer;

Jumlah_A,Jumlah_B,Jumlah_C : Integer;

Waktu : Integer;



Begin

ClrScr;

Write('Berapa Piringan Yang akan dipindah ? ');

ReadLn(Jumlah);

Write('Waktu yang Anda inginkan (0-32) detik ? ');

ReadLn(waktu);

ClrScr;

GotoXY(25,24); WriteLn(' Sumber Bantuan Tujuan');

For I:=Jumlah DownTo 1 Do

Begin

Baris := 23-(Jumlah-I);

GotoXY(30,Baris); WriteLn(I);

End;



Langkah := 0;

Sumber :='A';

Bantuan :='B';

Tujuan :='C';

Jumlah_A := Jumlah;

Jumlah_B := 0;

Jumlah_C := 0;



GotoXY(1,24); Write('Jumlah Langkah = ');

MenaraHanoi(Jumlah,Sumber,Tujuan,Bantuan,

Langkah,Jumlah_A,Jumlah_B,Jumlah_C,Waktu);

ReadLn;

End.

{Akhir Program Utama}

5. DEKLARASI FUNGSI (FUNCTION DECLARATE)

Deklarasi fungsi adalah deklarasi gabungan antara deklarasi Prosedur, type dan variabel. Kumpulan deklarasi ini disediakan oleh pascal untuk mempermudah dalam penyusunan program sehingga berbentuk sebuah fungsi. Pada sebuah fungsi komponen-komponen dari ketiga deklarasi tersebut dijadikan satu kesatuan yang dapat digunakan pada program yang majemuk. Adapun tata cara penulisan deklarasi fungsi adalah sebagai berikut :

Tata Cara Penulisan Deklarasi Prosedur
Tata Cara Penulisan Deklarasi Fungsi

Dari gambar diatas terlihat bahwa ketiga deklarasi yang telah diuraikan sebelumnya dijadikan satu kesatuan yang lebih simple dan praktis. Untuk lebih jelasnya cobalah Anda ketik di editor Pascal program dibawah ini, setelah itu Anda jalankan program tersebut dengan perintah RUN.

{ Program contoh Deklarasi fungsi

create by : Suryatekno@2008 }



Function Hasil(A,B,C : longint) : longint;

Begin

Hasil := A*A+B*B+C;

end;



Var X,Y,Z : longint;

Begin

WriteLn('Hasil dari X^2 + Y^2 + Z adalah..?');

Write('Jika Nilai X = ');ReadLn(X);

Write('Dan Nilai Y = ');ReadLn(Y);

Write('Serta Nilai Z = ');ReadLn(Z);

Write('Maka Hasil dari X^2 + Y^2 + Z');

WriteLn(' adalah : ',Hasil(X,Y,Z);

{Hasil - adalah nama fungsi yang dipanggil}

WriteLn;

WriteLn('Tekan Enter untuk Keluar..');

ReadLn;

end.

Dari contoh program diatas, mungkin sebagian dari Anda ada yang bertanya mengapa fungsi yang dinyatakan dengan variabel-variabel A,B dan C bisa berhubungan dengan Variabel X,Y dan Z ?. Begini..,Fungsi yang dijabarkan dengan variabel A,B,C hanya merupakan operasi yang harus dikerjakan oleh fungsi Hasil := A*A+B*B+C; , jadi Variabel A,B dan C tidak bernilai atau kosong. Sedangkan Variabel X,Y dan Z adalah Variabel Identifier (Pengenal) yang Ada nilainya dan nilai ini harus dilaksanakan oleh fungsi seperti yang dikehendaki. Untuk lebih jelas lagi Sekarang cobalah Anda rubah baris program WriteLn(' adalah :,Hasil(X,Y,Z); dengan mengganti variabelnya dengan A,B dan C kemudian Anda RUN lagi, maka COMPILER PASCAL akan mengeluarkan peringatan bahwa variabel A,B,dan C tidak diketahui identitasnya (Unknow Identifier), sebab A,B dan C tidak bernilai. Kalau diterjemahkan dalam konteks bahasa manusia, perintah Hasil(X,Y,Z) adalah : Kerjakan Nilai yang ada dalam kurung, yang nilainya dimasukan melalui input keyboard dengan operasi Hasil , Dimana operasi tersebut adalah A*A+B*B+C dengan A sebesar X, B sebesar Y, dan C sebesar Z.. Paham..!!, Kalau belum paham juga saya menyerah.., tidak bisa menerangkan lagi kepada Anda secara detail mengenai fungsi ini, dan dapat membuat Anda mengerti.

Sejauh ini Anda sudah disuguhkan dengan contoh-contoh program, contoh-contoh tersebut saya rancang sedemikian rupa agar Anda yang pemula dalam mempelajari Bahasa Pemrograman dapat mengikuti tutorial ini. Cobalah Anda buat program-program sejenis tapi kali ini atas pemikiran dan cara-cara ANda sendiri dan tentu saja materi-mteri nya disesuaikan dengan contoh-contoh program yang telah Anda pelajari.

Baiklah sekarang mari kita lanjutkan pembahasan kita mengenai uraian Program pengenalan (TESTPROG.PAS). Selanjutnya dalam program tersebut ada baris-baris program berikut :

While (pilih='y') or (pilih='Y') Do
Begin
..........
..........
..........
end;
end.

Pada bagian ini dinamakan perulangan (LOOPING). Looping sangat sering digunakan dalam sebuah program yang majemuk, arti looping itu sendiri adalah memulai atau mengulang lagi suatu proses program yang sama jika kondisi dan syarat-syarat nya terpenuhi. Ada beberapa struktur perulangan yang perlu Anda ketahui yaitu :

1. Perulangan dengan perintah For - To - Do
2. Perulangan dengan perintah While - Do
3. Perulangan dengan perintah Repeat - Until.

Sekarang marilah kita bahas mengenai struktur perulangan ini satu persatu.

1. Perulangan For - To - Do

Struktur perulangan For - To - Do ada dua jenis yaitu :

a. Perulangan For Positif.

Bila variabel perulangan dilakukan dengan cara penghitungan dari nilai yang kecil ke nilai yang besar, maka struktur perulangan tersebut dinamakan perulangan for positif dengan struktur sebagai berikut :

Struktur FOR TO DO Positif
Struktur FOR TO DO Positif.

Contoh penggunaan perulangan For-To-Do positif ini adalah bila kita menampilkan sebuah list dari urutan yang terkecil sampai yang terbesar. Contoh program dibawah ini akan menampilkan angka 1 sampai 10 secara berurutan.

{ program menghitung urutan 1-10, by : suryatekno }

uses crt;

Var

X : Integer; {variabel X menjadi acuan dg type Integer}

Begin

clrscr;

For X := 1 To 10 Do

Begin

WriteLn(X);

End;

writeLn('tekan Enter untuk keluar');

readln;

End.



b. Perulangan For Negatif.

Bila variabel perulangan dilakukan dengan cara perhitungan dari nilai yang besar ke nilai yang kecil, maka struktur perulangan tersebut dinamakan perulangan for negatif. Struktur perulangan for negatif adalah sebagai berikut.

Struktur FOR TO DO Positif
Struktur FOR TO DO Negatif.

Contoh perulangan For negatif ini adalah bila kita ingin menampilkan suatu hitungan mundur dari yang besar ke yang kecil. Contoh program dibawah ini adalah kebalikan dari contoh for positif diatas, yaitu menampilkan angka 10 sampai 1 secara berurutan.

{ program menghitung mundur by : suryatekno }

uses crt;

Var

Y : Integer; {variabel Y menjadi acuan dg type Integer}

Begin

clrscr;

For Y := 10 DownTo 1 Do

Begin

WriteLn(Y);

End;

writeLn('tekan Enter untuk keluar');

readln;

End.



2. Perulangan While - Do

Perulangan While-Do adalah suatu perulangan atau looping yang akan terus menerus dilakukan selama kondisi yang disyaratkan terpenuhi, Jadi selama persyaratan yang dicantumkan adalah TRUE (BENAR) maka loop ini akan terus berjalan tak ada hentinya. Untuk itu berhati-hatilah dalam memberikan prasyarat sebuah perulangan while-do, bisa-bisa program itu tidak akan bisa di hentikan.

Seperti pada contoh program TESTPROG.PAS yang pertama kali Anda buat, Disitu parameter while-do di berikan nilai TRUE untuk huruf Y, jadi selama Anda menekan huruf Y, maka program itu akan terus dilakukan sampai Anda menekan tombol yang lainnya.

Mari Kita lihat lagi listing Program TESTPROG.PAS yang sudah Anda buat pertama kali.

{ Program : Input dari keyboard dan

Menghitung operasi matematika }

{ Create by : Komarudin_surya@suryatekno }



uses Crt;

var

x,y,z : longint;

lagi : char;

namak : string[20];



begin



lagi := 'y';

{awal perulangan dengan nama Lagi }

while (lagi = 'y') or (lagi = 'Y') do

begin { --> index awal perulangan}

clrscr;

write('Siapa Nama Anda..?'); ReadLn(namak);

writeLn;

writeLn('Hallo ',namak,', Coba kamu 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; { --> index akhir perulangan}

{akhir perulangan dengan nama Lagi }

end.

Pada listing TESTPROG.PAS diatas, saya beri tambahan keterangan. Nah selama Anda memasukan variabel Lagi dengan huruf Y maka loop while menjadi true sehingga program akan balik lagi ke index awal (Begin pertama sesudah perintah while). begitu saja terus menerus sampai Anda memasukan variabel Lagi dengan karakter selain Y.

Berikut ini adalah salah satu program yang menggunakan Perulangan While-Do yang salah, sebab tidak ada ujungnya dan tidak bisa dihentikan. Cara menghentikan nya dengan menutup prompt command bila Anda menjalankan Pascal dari mode command window, atau reset komputer Anda bila menggunakan DOS Prompt.

{ Ini adalah contoh program yang

menggunakan perulangan While-Do

yang salah }



Var X : integer;



Begin

X := 1;

While X=1 Do

Begin

write(X,' .');

WriteLn('Salah Euy.., Muir Wae Yeuh..!');

End;

End.

Contoh Program diatas sebagai peringatan kepada Anda agar berhati-hati dalam memberikan parameter untuk while-do. pada program diatas X diberikan nilai awal 1 ( X := 1 ), selanjutnya perulangan while-do ( While X=1 Do ) juga diberikan nilai 1, jadi X selalu TRUE sehingga perulangan akan dilakukan terus tanpa henti sampai Anda menutup atau mereset komputer Anda. Perhatikan baik-baik dalam menggunakan perulangan ini jangan sampai kesalahan yang kecil akan berakibat fatal bila tidak teliti. Kesalahan yang legendaris dalam pemrograman pascal pernah terjadi pada sekitar tahun 1973 dimana saat itu seorang programer membuat suatu aplikasi, yang akhirnya menjadi sebuah VIRUS yang dibuat tanpa sengaja (Virus itu mendelete semua program yang berektensi COM) tanpa bisa dihentikan oleh programernya sendiri sehingga programer tersebut dituntut untuk membayar kerugian perusahaan sebesar US$ 1.750.000,- ..

3. Perulangan Repeat - Until

Perulangan Repeat-Until hampir mirip dengan perulangan while-do, bedanya adalah kalau while-do perulangan nya dilakukan dari tanda begin pertama sampai end yang pertama setelah perintah while do , sedangkan perulangan repeat-until perulangan nya diakhiri dengan perintah until. Lihat struktur repeat until dibawah ini.

R E P E A T --- Perintah perulangan

|

|

S T A T E M E N --- Expresi Perulangan

|

|

U N T I L PARAMETER --- Akhir perulangan

Yang di ikuti oleh

Parameter yang

diulang

Jadi pada perulangan repeat-until ini, pertama kita taruh perintah repeat diatas statemen-statemen yang akan diulang kemudian ditutup dengan perintah until yang diikuti oleh parameter untuk perulangan. Untuk lebih jelas lihat contoh program dibawah ini yang menggunakan perulangan repeat-until.

{ Program : Tabel hasil perkalian

Creat by : Suryatekno@2008 }



uses crt;



Var

X,Y,Z : integer;



Begin

WriteLn(' TABEL PERKALIAN ');

WriteLn('==============================');

WriteLn('| X | Y | Hasil |');

WriteLn('==============================');



X := 10;

Repeat {awal perulangan X}

Y := 10;

Repeat {awal perulangan Y}

Z = X*Y;

WriteLn(X:5, Y:9, Z:10);

Y := Y+1;

Until Y > 13; {akhir perulangan Y}

X := X+1;

Until X > 13; {akhir perulangan X}



WriteLn('=============================');

WriteLn;

WriteLn('Tekan Enter untuk Keluar');

ReadLn;

End.

Pada contoh program diatas, perulangan repeat-until digunakan untuk membuat sebuah tabel perkalian antara X dan Y, dimana nilai awal untuk X dan Y adalah 10, dan akan bertambah 1 setiap kali terjadi perulangan ( X := X+1 dan Y := Y+1 ) sampai nilai akhir yang ditentukan yaitu 13. Perulangan akan terjadi sebelum melebihi nilai akhir yang ditentukan ( 13 ). Jadi Perintah UNTIL bila kita terjemahkan adalah : Sebelum melebihi . Lihat hasil jalannya program seperti dibawah ini.

Hasil program Perkalian
Hasil Jalannya Program perkalian.

Read More

Cinta di facebook

Walau hanya lewat kata kita menyapa, meski hanya fotomu yang dapat aku pandangi

Namun ada getar rindu, bila tak ada kabar darimu
Ada rasa sayang yang ingin kucurahkan

Jarak bukanlah penghalang, dirimu disana aku disini
tapi tak dapat kupungkiri ada cintamu dihati...

Meski kadang aku cemburu
Meski kadang aku curiga
Meski kadang aku tak percaya
Meski aku kadang terluka

Tapi inilah cinta dunia maya, harus mengerti walau tersakiti
harus memahami walau tak tahan lagii
harus menerima walau tersiksa

Karena aku berharap cinta kita bukan hanya sekedar maya, aku bertahan untuk sebuah harapan yang nyata.
Dibalik kesabaran pasti berbuah kebahagiaan

Read More

Kisah Anak Laki-laki yang Mengabaikan Panggilan Ibunya

Suatu kisah nyata yang terjadi pada masa sebelum Rasululloh, tepatnya di jaman Nabi Isa AS, yang patut diambil sebagai ibroh bagi orang-orang yang beriman. Dahulu, ada tiga orang bayi yang bisa berbicara. Salah satunya adalah seorang bayi yang hidup pada masa Juraij. Juraij adalah seorang ahli ibadah, dia memiliki sebuah tempat ibadah yang sekaligus jadi tempat tinggalnya.

Suatu ketika Juraij sedang melaksanakan shalat, tiba-tiba ibunya datang memanggilnya: “Wahai Juraij”. Dalam hatinya, Juraij bergumam: “Wahai Robbku, apakah yang harus aku dahulukan? meneruskan sholatku ataukah memenuhi panggilan ibuku?”. Dalam kebimbangan, dia tetap meneruskan sholatnya. Akhirnya sang ibu pulang.

Esok harinya, sang ibu datang lagi dan memanggil: “Wahai Juraij!”. Juraij yang saat itu pun sedang sholat bergumam dalam hatinya: “Wahai Robbku, apakah aku harus meneruskan sholatku? Ataukah (memenuhi) panggilan ibuku?”. Tetapi dia tetap meneruskan sholatnya.

Sang ibu kembali pulang untuk-kedua kalinya. Ketiga kalinya, ibunya datang lagi seraya memanggil: “Wahai Juraij!”. Lagi-lagi Juraij sedang menjalankan sholat. Dalam hatinya, ia bergumam: “Wahai Robbku, haruskah aku memilih meneruskan sholatku ataukah memenuhi panggilan ibuku?”. Tetapi dia tetap meneruskan sholatnya.

Akhirnya, dengan kecewa setelah tiga kali panggilannya tidak mendapat sahutan Bari anaknya, sang ibu berdoa: “Ya Alloh, janganlah engkau matikan Juraij hingga dia melihat wajah wanita pelacur”.
Orang-orang Bani Israil (ketika itu) sering menyebut-nyebut nama Juraij serta ketekunan ibadahnya, sehingga ada seorang wanita pelacur berparas cantik jelita mengatakan: Jika kalian mau, aku akan menggodanya (Juraij). Wanita pelacur itupun kemudian merayu dan menawarkan diri kepada Juraij. Tetapi sedikitpun Juraij tak memperdulikannya. Namun apa yang kemudian dilakukan oleh wanita itu? Ia mendatangi seseorang yang tengah menggembala di sekitar tempat ibadah Juraij. Lalu demi terlaksananya tipu muslihat, wanitu itu kemudian merayunya.
Maka terjadilah perzinaan antara dia dengan penggembala itu. Hingga akhirnya wanita itu hamil. Dan manakala bayinya telah lahir, dia membuat pengakuan palsu dengan berkata kepada orang-orang: “Bayi ini adalah anak Juraij.” Mendengar hal itu, masyarakat percaya dan beramai-ramai mendatangi tempat ibadah Juraij, memaksanya turun, merusak tempat ibadahnya dan memukulinya.

Juraij yang tidak tahu masalahnya bertanya dengan heran: “Ada apa dengan kalian?”. “Kamu telah berzina dengan wanita pelacur lalu dia sekarang melahirkan anakmu”, jawab mereka. Maka, tahulah Juraij bahwa ini adalah makar wanita lacur itu. Lantas bertanya: “Dimana bayinya?”. Merekapun membawa bayinya. Juraij berkata: “Biarkan saya melakukan sholat dulu”, kemudian dia berdiri sholat.
Seusai menunaikan sholat, dia menghampiri si bayi lalu mencubit perutnya seraya bertanya: “Wahai bayi, siapakah ayahmu?”
Si bayi menjawab: “Ayahku adalah si fulan, seorang penggembala”. Akhirnya, masyarakat bergegas menghampiri Juraij, mencium dan mengusapnya. Mereka minta maaf dan berkata: “Kami akan membangun tempat ibadahmu dari emas”. Juraij mengatakan: “Tidak, bangun saja seperti semula yaitu dari tanah liat”. Lalu merekapun mengerjakannya.

Hikmah yang dapat diambil dari cerita di atas, dalam suatu riwayat, Aisyah r.a. berkata “Aku bertanya kepada Rasulullah S.A.W., siapakah yang lebih besar haknya terhadap wanita? Jawab baginda, “Suaminya.” “Siapa pula berhak terhadap lelaki?” Jawab Rasulullah S.A.W.”Ibunya.” Maka merupakan suatu keasalahan bagi laki-laki sendiri maupun sudah beristri yang mengabaikan hak-hak ibunya.

Seyogyanya pula bagi kita kaum ibu bisa bersabar dan menjaga lisan agar anak-anak kita tidak mendapatkan masalah yang sulit.

Doa wanita lebih makbul daripada lelaki karena sifat penyayang yang lebih kuat daripada laki-laki. Ketika ditanya kepada Rasulullah S.A.W. akan hal tersebut, jawab baginda: “Ibu lebih penyayang daripada bapak dan doa orang yang penyayang tidak akan sia-sia.”

Dan perlu diwaspadai pula bahwa doa seorang ibu sungguh mustajab. Baik doa kebaikan ataupun doa buruk. Seperti diceritakan kisah tersebut di atas walaupun permasalahannya hanya sepele yaitu mengabaikan panggilan ibunya meskipun anak laki-laki tersebut sedang melakukan shalat 5 waktu.
Wallahu bisshowab

(Berbagai Sumber)

Read More

Cinta

Awali pagi menyambut sang mentari..
Melupakan saat kemaren apa yang telah terjadi..
Merubah sikap memperbaiki budi pekerti..
Mengambil hikmah dari apa yang telah dialami..

Kini kutau saatnya kubelajar dari kekecewaan..
Saatnya aku memahami dari keterlukaan..
saatnya aku mengerti arti kebahagiaan dari kesedihan..
Karna hari kemaren adalah jalan untuk hari kedepan..

Terima kasih Cinta..
Telah mengajarkan aku kecewa..
Namun kudapatkan maknanya..
Telah mengajarkan aku kemarahan..
Namun kudapati arti kesabaran..

Terima kasih cinta..
Kini kubelajar menjadi yang terbaik..
Walau aku bukanlah orang yang baik..
Tapi ketulusan mengajarkan aku keikhlasan..

Terima kasih cinta..
Tak ada alasan untuk tak setia..
Tak ada alasan untuk berdusta..
Karna aku selalu bersyukur padaNya..
Atas anugrah kudapatan dirimu atasNya..

Read More

Pria dan Wanita

Wanita membutuhkan
perhatian,
Pria membutuhkan
kepercayaan.

Wanita membutuhkan
pengertian,
Pria membutuhkan
penerimaan.

Wanita membutuhkan rasa hormat,
Pria membutuhkan
penghargaan.

Wanita membutuhkan
kesetiaan,
Pria membutuhkan
kekaguman.

Wanita membutuhkan
penegasan,
Pria membutuhkan
persetujuan.

Wanita membutuhkan
jaminan,
Pria membutuhkan
dorongan,

Wanita sememangnya mahu dimengerti,
Dan pria harus tuk mengerti
(jangan protes !!!)

Antara keduanya ada
keterikatan yang saling
membutuhkan

“Setitik kasih membuat kita saling menyayangi, seucap kata membuat kita saling mengasihi,sekecil luka akan membuat kita kecewa,tetapi sebuah keakraban akan selamanya bermakna.”

Read More

sifat

♀♂ Sifat Lelaki ♀♂

① Jika lelaki itu diam, berarti dia
sedang mendengarkanmu.
② Jika lelaki menatapmu, dia
berfikir kaulah yang tercantik
didunia.
③ Jika kau bersandar di bahu atau
dadanya, dia merasa telah memiliki
dunia.
④ Jika Lelaki sering menelfonmu
tanpa alasan, berarti dia sedang
fall in love with you.
⑤ Jika Lelaki berkata dia
merindukanmu, berarti dia sedang
memikirkanmu melebihi yang kau
bayangkan.

══════════════
♀♂ Sifat Wanita ♀♂

① Jika wanita sedang diam,
banyak hal yang masuk dalam
fikiranya yang selalu dia fikirkan.
② Jika wanita menatapmu, dia
bertanya-tanya dalam hati
mengapa kamu berbohong.
③ Jika wanita bersandar padamu,
dia berharap akan memilikimu
selamanya.
④ Jika wanita menelfonmu setiap
waktu, dia mengharapkan
perhatian darimu.
⑤ Jika wanita berkata dia sedang
merindukanmu, tak ada seorang
pun di dunia ini yang
merindukanmu melebihi dirinya.

Benarkah..??
Yuk Ungkapkan Pendapatmu,

Read More

Renungan

Aku menjenguk ke surga dan aku melihat kebanyakan penghuninya orang-orang fakir (miskin). Lalu aku menjenguk ke neraka dan aku melihat kebanyakan penghuninya adalah kaum wanita. (HR. Bukhari dan Muslim)

Balasan amal dari seorang miskin terhadap orang kaya ialah kesetiaan (keikhlasan) dan doa. (HR. Abu Dawud)

Kesengsaraan yang paling sengsara ialah miskin di dunia dan disiksa di akhirat. (HR. Ath-Thabrani dan Asysyihaab)

Read More

TeamViewer

Untuk pelanggan instan: TeamViewer QuickSupport

Modul pelanggan yang mudah dan ringkas, segera dapat dijalankan tanpa instalasi dan tidak membutuhkan hak administratif - dioptimalkan untuk dukungan instan


Pengguna komersial akan dapat menyesuaikan modul QuickSupport dengan logo mereka dan tulisan sambutan mereka sendiri, dengan tujuan untuk lebih memperkenalkan identitas perusahaan.

Klik Disini untuk download team viewer

Read More

Yuk share

high heel dan dampak buruk bagi kesehatan
Tahukah anda bahwa menggunakan high heels secara terus menerus dapat berakibat buruk bagi kesehatan kita. Beberapa penyakit yang dapat disebabkan oleh pemakaian high heel ini adalah :
1. Penyakit radang sendi. Tahukah anda penyakit radang sendi ini biasanya menyerang para usia tua. Tapi sering memakai high heel dapat menyebabkan radang sendi dini pada anda.
2. Bengkak pada ibu jari kaki yang bisa menimbulkan peradangan
3. Berisiko menyebabkan patah pada tungkai kaki akibat terjatuh dari high heel yang super tinggi
4. Bengkak pada ibu jari kaki yang bisa menimbulkan peradangan.
5. kapalan pada ujung jari-jari kaki atau di bagian samping kaki
dan masih banyak lagi akibat buruk yg dapat disebabkan oleh seringnya pemakaian high heel. Jadi untuk anda yang mau berpenampilan cantik ada kalanya jua lebih memikirkan masalah kesehatan ya. Bila tidak perlu ada baiknya memilih sandal atau sepatu dengan hak rendah atau flat, terutama untuk acara-acara santai anda.
Pengen tahu info tentang kesehatan wanita lainya???
Yuk share dan gabung di Permen

Read More

14: UJIAN

Ada yang mengatakan ujian adalah kesusahan pada tubuh badan
kesusahan pada jiwa
apa untungnya Allah menyusahkan jasad dan jiwa
bukankah ia tidak menambahkan keagungan dan kemuliaan-Nya
apalagi Dia Maha Mengasihani Maha Sopan-santun.
Pandanglah ujian dengan hatimu
ujian adalah perbuatan Tuhanmu
bukan untuk menghancurkan tetapi untuk meneguhkanmu
bila kamu memperolehi keteguhan baharu kamu menjadi pilihan
bila sudah lulus dan dipilih
Dia bangga memperkenalkan kamu kepada makhluk-Nya
keteguhan kamu melintasi ujian
menjadi dalil pilihan-Nya adalah tepat
inilah keadilan-Nya.

Ujian ditujukan kepada rohani bukan kepada jasad atau jiwa
tujuannya untuk mengukur tauhid
bukan sekadar untuk kesabaran
apakah nilai sabar tanpa tauhid
bukankah sabar juga bersama si kafir.

Ujian yang diterima dengan iman meneguhkan tauhid
menambahkan kekuatan pandangan hati
tidak berkelip memandang kepada Tuhan
sehingga kepedihan ujian menjadi kemanisan.

Ujian adalah pentas sandiwara
mempamerkan kebijaksanaan Tuan Pengarah
bila engkau diberi watak menderita
hingga berjaya membuat penonton menangis
ketahuilah
engkau adalah pelakun penting
diasuh untuk menjadi bintang
bakal menerima ganjaran lumayan.

Apabila engkau menjadi pelakun
apa bezanya watak gembira dengan watak duka
skrip di tangan Tuan Pengarah.

Read More

Sumatera

Dari Wikipedia bahasa Indonesia, ensiklopedia bebas

Langsung ke: navigasi, cari

Untuk kegunaan lain dari Sumatera, lihat Sumatera (disambiguasi).

"Sumatra" beralih ke halaman ini. Untuk kegunaan lain dari Sumatra, lihat Sumatra (disambiguasi).

Sumatera

Topografi Pulau Sumatera
Geografi
Lokasi	Asia Tenggara
Koordinat	0°00′ LU 102°00′ BT
Kepulauan	Kepulauan Sunda Besar
Luas	470.000 km²
Ketinggian tertinggi	3.805 m
Puncak tertinggi	Kerinci
Negara
Indonesia
Provinsi	Aceh, Bengkulu, Jambi, Lampung, Riau, Sumatera Barat, Sumatera Selatan, Sumatera Utara, Kepulauan Bangka Belitung, Kepulauan Riau
Kota terbesar	Medan (pop. 3.418.645 (2009))
Demografi
Populasi	45 juta (per 2005)
Kepadatan	96/km²
Kelompok etnik	Aceh, Batak, Minangkabau, Melayu, Rejang

Sumatera atau Sumatra adalah pulau keenam terbesar di dunia yang terletak di Indonesia, dengan luas 443.065,8 km². Penduduk pulau ini sekitar 42.409.510 jiwa (2000). Pulau ini dikenal pula dengan nama lain yaitu Pulau Percha, Andalas, atau Suwarnadwipa (bahasa Sanskerta, berarti "pulau emas"). Kemudian pada Prasasti Padang Roco tahun 1286 dipahatkan swarnnabhūmi (bahasa Sanskerta, berarti "tanah emas") dan bhūmi mālayu ("Tanah Melayu") untuk menyebut pulau ini. Selanjutnya dalam naskah Negarakertagama dari abad ke-14 juga kembali menyebut "Bumi Malayu" (Melayu) untuk pulau ini.

Daftar isi 1 Etimologi 1.1 Samudera menjadi Sumatera 2 Sejarah 3 Penduduk 4 Transportasi 5 Ekonomi 6 Geografis 6.1 Daftar gunung di Sumatera 7 Sumber daya alam 8 Administrasi 9 Provinsi di Sumatera 9.1 Kota besar 10 Bahasa 11 Budaya 12 Lihat pula 13 Referensi 14 Pranala luar

Etimologi

Asal nama Sumatera berawal dari keberadaaan Kerajaan Samudera (terletak di pesisir timur Aceh). Diawali dengan kunjungan Ibnu Batutah, petualang asal Maroko ke negeri tersebut pada tahun 1345, dia melafalkan kata Samudera menjadi Samatrah, dan kemudian menjadi Sumatra atau Sumatera, selanjutnya nama ini tercantum dalam peta-peta abad ke-16 buatan Portugis, untuk dirujuk pada pulau ini, sehingga kemudian dikenal meluas sampai sekarang^[1].

Nama asli Sumatera, sebagaimana tercatat dalam sumber-sumber sejarah dan cerita-cerita rakyat, adalah "Pulau Emas". Istilah Pulau Ameh (bahasa Minangkabau, berarti pulau emas) kita jumpai dalam cerita Cindur Mata dari Minangkabau. Dalam cerita rakyat Lampung tercantum nama tanoh mas untuk menyebut pulau Sumatera. Seorang musafir dari Cina yang bernama I-tsing (634-713), yang bertahun-tahun menetap di Sriwijaya (Palembang sekarang) pada abad ke-7, menyebut Sumatera dengan nama chin-chou yang berarti "negeri emas".

Dalam berbagai prasasti, Sumatera disebut dalam bahasa Sanskerta dengan istilah: Suwarnadwipa ("pulau emas") atau Suwarnabhumi ("tanah emas"). Nama-nama ini sudah dipakai dalam naskah-naskah India sebelum Masehi. Naskah Buddha yang termasuk paling tua, Kitab Jataka, menceritakan pelaut-pelaut India menyeberangi Teluk Benggala ke Suwarnabhumi. Dalam cerita Ramayana dikisahkan pencarian Dewi Sinta, istri Rama yang diculik Rahwana, sampai ke Suwarnadwipa.

Para musafir Arab menyebut Sumatera dengan nama "Serendib" (tepatnya: "Suwarandib"), transliterasi dari nama Suwarnadwipa. Abu Raihan Al-Biruni, ahli geografi Persia yang mengunjungi Sriwijaya tahun 1030, mengatakan bahwa negeri Sriwijaya terletak di pulau Suwarandib. Namun ada juga orang yang mengidentifikasi Serendib dengan Srilangka, yang tidak pernah disebut Suwarnadwipa.

Di kalangan bangsa Yunani purba, Sumatera sudah dikenal dengan nama Taprobana. Nama Taprobana Insula telah dipakai oleh Klaudios Ptolemaios, ahli geografi Yunani abad kedua Masehi, tepatnya tahun 165, ketika dia menguraikan daerah Asia Tenggara dalam karyanya Geographike Hyphegesis. Ptolemaios menulis bahwa di pulau Taprobana terdapat negeri Barousai. Mungkin sekali negeri yang dimaksudkan adalah Barus di pantai barat Sumatera, yang terkenal sejak zaman purba sebagai penghasil kapur barus.

Naskah Yunani tahun 70, Periplous tes Erythras Thalasses, mengungkapkan bahwa Taprobana juga dijuluki chryse nesos, yang artinya ‘pulau emas’. Sejak zaman purba para pedagang dari daerah sekitar Laut Tengah sudah mendatangi Nusantara, terutama Sumatera. Di samping mencari emas, mereka mencari kemenyan (Styrax sumatrana) dan kapur barus (Dryobalanops aromatica) yang saat itu hanya ada di Sumatera. Sebaliknya, para pedagang Nusantara pun sudah menjajakan komoditi mereka sampai ke Asia Barat dan Afrika Timur, sebagaimana tercantum pada naskah Historia Naturalis karya Plini abad pertama Masehi.

Dalam kitab umat Yahudi, Melakim (Raja-raja), fasal 9, diterangkan bahwa Nabi Sulaiman a.s. raja Israil menerima 420 talenta emas dari Hiram, raja Tirus yang menjadi bawahan beliau. Emas itu didapatkan dari negeri Ofir. Kitab Al-Qur’an, Surat Al-Anbiya’ 81, menerangkan bahwa kapal-kapal Nabi Sulaiman berlayar ke “tanah yang Kami berkati atasnya” (al-ardha l-lati barak-Na fiha).

Banyak ahli sejarah yang berpendapat bahwa negeri Ophir itu terletak di Sumatera. Perlu dicatat, kota Tirus merupakan pusat pemasaran barang-barang dari Timur Jauh. Ptolemaios pun menulis Geographike Hyphegesis berdasarkan informasi dari seorang pedagang Tirus yang bernama Marinus. Dan banyak petualang Eropa pada abad ke-15 dan ke-16 mencari emas ke Sumatera dengan anggapan bahwa di sanalah letak negeri Ofir Nabi Sulaiman a.s.

Samudera menjadi Sumatera

Kata yang pertama kali menyebutkan nama Sumatra berasal dari gelar seorang raja Sriwijaya Haji (raja) Sumatrabhumi ("Raja tanah Sumatra"), ^[2] berdasarkan berita China ia mengirimkan utusan ke China pada tahun 1017. Pendapat lain menyebutkan nama Sumatera berasal dari nama Samudera, kerajaan di Aceh pada abad ke-13 dan abad ke-14. Para musafir Eropa sejak abad ke-15 menggunakan nama kerajaan itu untuk menyebut seluruh pulau. Sama halnya dengan pulau Kalimantan yang disebut Borneo, dari nama Brunai, daerah bagian utara pulau itu yang mula-mula didatangi orang Eropa. Demikian pula pulau Lombok tadinya bernama Selaparang, sedangkan Lombok adalah nama daerah di pantai timur pulau Selaparang yang mula-mula disinggahi pelaut Portugis.

Peralihan Samudera (nama kerajaan) menjadi Sumatera (nama pulau) menarik untuk ditelusuri. Odorico da Pordenone dalam kisah pelayarannya tahun 1318 menyebutkan bahwa dia berlayar ke timur dari Koromandel, India, selama 20 hari, lalu sampai di kerajaan Sumoltra. Ibnu Bathutah bercerita dalam kitab Rihlah ila l-Masyriq (Pengembaraan ke Timur) bahwa pada tahun 1345 dia singgah di kerajaan Samatrah. Pada abad berikutnya, nama negeri atau kerajaan di Aceh itu diambil alih oleh musafir-musafir lain untuk menyebutkan seluruh pulau.

Pada tahun 1490 Ibnu Majid membuat peta daerah sekitar Samudera Hindia dan di sana tertulis pulau "Samatrah". Peta Ibnu Majid ini disalin oleh Roteiro tahun 1498 dan muncullah nama "Camatarra". Peta buatan Amerigo Vespucci tahun 1501 mencantumkan nama "Samatara", sedangkan peta Masser tahun 1506 memunculkan nama "Samatra". Ruy d’Araujo tahun 1510 menyebut pulau itu "Camatra", dan Alfonso Albuquerque tahun 1512 menuliskannya "Camatora". Antonio Pigafetta tahun 1521 memakai nama yang agak ‘benar’: "Somatra". Tetapi sangat banyak catatan musafir lain yang lebih ‘kacau’ menuliskannya: "Samoterra", "Samotra", "Sumotra", bahkan "Zamatra" dan "Zamatora".

Catatan-catatan orang Belanda dan Inggris, sejak Jan Huygen van Linschoten dan Sir Francis Drake abad ke-16, selalu konsisten dalam penulisan Sumatera. Bentuk inilah yang menjadi baku, dan kemudian disesuaikan dengan lidah Indonesia: Sumatera

Sejarah

Bagian ini membutuhkan pengembangan

Penduduk

Secara umum, pulau Sumatera didiami oleh bangsa Melayu, yang terbagi ke dalam beberapa suku. Suku-suku besar ialah Aceh, Batak, Melayu, Minangkabau,Besemah, Suku Rejang, Ogan, Komering, dan Lampung. Di wilayah pesisir timur Sumatera dan di beberapa kota-kota besar seperti Medan, Palembang, dan Pekanbaru, banyak bermukim etnis Tionghoa. Penduduk pulau Sumatera hanya terkonsentrasi di wilayah Sumatera Timur dan dataran tinggi Minangkabau. Mata pencaharian penduduk Sumatera sebagian besar sebagai petani, nelayan, dan pedagang.

Penduduk Sumatera mayoritas beragama Islam dan sebagian kecil merupakan penganut ajaran Kristen Protestan, terutama di wilayah Tapanuli dan Toba-Samosir, Sumatera Utara. Di wilayah perkotaan, seperti Medan, Pekanbaru, Batam, Pangkal Pinang dan Palembang, dijumpai beberapa orang penganut Buddha.

Transportasi

Kota-kota di pulau Sumatera dihubungkan oleh tiga ruas jalan lintas, yakni lintas tengah, lintas timur, dan lintas barat, yang melintang dari utara - selatan Sumatera. Selain itu terdapat pula ruas jalan yang melintang dari barat - timur, seperti ruas Bengkulu - Palembang, Padang - Jambi, serta Padang - Dumai.

Di beberapa bagian pulau Sumatera, kereta api merupakan sarana transportasi alternatif. Di bagian selatan, jalur kereta api bermula dari pelabuhan Panjang (Lampung) hingga Lubuk Linggau dan Palembang (Sumatera Selatan). Di tengah pulau Sumatera, jalur kereta api hanya terdapat di Sumatera Barat. Jalur ini menghubungkan antara kota Padang dengan Sawah Lunto dan kota Padang dengan kota Pariaman. Semasa kolonial Belanda hingga tahun 2001, jalur Padang - Sawah Lunto dipergunakan untuk pengangkutan batu bara. Tetapi semenjak cadangan batu bara di Ombilin mulai menipis, maka jalur ini tidak berfungsi lagi. Sejak akhir tahun 2006, pemerintah provinsi Sumatera Barat, kembali mengaktifkan jalur ini sebagai jalur kereta wisata.

Di utara Sumatera, jalur kereta api membentang dari kota Medan sampai ke kota Tebing Tinggi. Pada jalur ini, kereta api dipergunakan sebagai sarana pengangkutan kelapa sawit dan penumpang.

Penerbangan internasional dilayani dari Banda Aceh (Bandar Udara Internasional Sultan Iskandar Muda), Medan (Bandar Udara Internasional Polonia), Padang (Bandara Internasional Minangkabau, dan Palembang (Bandar Udara Internasional Sultan Mahmud Badaruddin II). Sedangkan pelabuhan kapal laut ada di Belawan (Medan), Teluk Bayur (Padang), dan Bakauheni (Lampung).

Ekonomi

Pulau Sumatera merupakan pulau yang kaya dengan hasil bumi. Dari lima provinsi kaya di Indonesia, tiga provinsi terdapat di pulau Sumatera, yaitu provinsi Nanggroe Aceh Darussalam, Riau dan Sumatera Selatan. Hasil-hasil utama pulau Sumatera ialah kelapa sawit, tembakau, minyak bumi, timah, bauksit, batu bara dan gas alam. Hasil-hasil bumi tersebut sebagian besar diolah oleh perusahaan-perusahaan asing, seperti misalnya PT Caltex yang mengolah minyak bumi di provinsi Riau.

Tempat-tempat penghasil barang tambang ialah :

• Arun (NAD), menghasilkan gas alam.
• Pangkalan Brandan (Sumatera Utara), menghasilkan minyak bumi
• Duri, Dumai, dan Bengkalis (Riau), menghasilkan minyak bumi
• Tanjung Enim (Sumatera Selatan), menghasilkan batu bara
• Plaju dan Sungai Gerong (Sumatera Selatan), menghasilkan minyak bumi
• Tanjung Pinang (Kepulauan Riau), menghasilkan bauksit
• Indarung (Sumatera Barat), menghasilkan semen
• Sawahlunto (Sumatera Barat), menghasilkan batubara

Beberapa kota di pulau Sumatera, juga merupakan kota perniagaan yang cukup penting. Medan kota terbesar di pulau Sumatera, merupakan kota perniagaan utama di pulau ini. Banyak perusahaan-perusahaan besar nasional yang berkantor pusat di sini.

Geografis

Pulau Sumatera terletak di bagian barat gugusan kepulauan Nusantara. Di sebelah utara berbatasan dengan Teluk Benggala, di timur dengan Selat Malaka, di sebelah selatan dengan Selat Sunda, dan di sebelah barat dengan Samudra Hindia. Di sebelah timur pulau, banyak dijumpai rawa yang dialiri oleh sungai-sungai besar yang bermuara di sana, antara lain Asahan (Sumatera Utara), Sungai Siak (Riau), Kampar, Inderagiri (Sumatera Barat, Riau), Batang Hari (Sumatera Barat, Jambi), Musi, Ogan, Lematang, Komering (Sumatera Selatan), dan Way Sekampung (Lampung). Sementara beberapa sungai yang bermuara ke pesisir barat pulau Sumatera diantaranya Batang Tarusan (Sumatera Barat), dan Ketahun (Bengkulu).

Di bagian barat pulau, terbentang pegunungan Bukit Barisan yang membujur dari utara hingga selatan. Sepanjang bukit barisan terdapat gunung-gunung berapi yang masih aktif, seperti Geureudong (Aceh), Sinabung (Sumatera Utara), Marapi, Talang (Sumatera Barat), Gunung Kaba (Bengkulu), dan Kerinci (Sumatera Barat, Jambi). Di pulau Sumatera juga terdapat beberapa danau, di antaranya Danau Laut Tawar (Aceh), Danau Toba (Sumatera Utara), Danau Singkarak, Danau Maninjau, Danau Diatas, Danau Dibawah, Danau Talang (Sumatera Barat), Danau Kerinci (Jambi) dan Danau Ranau (Lampung dan Sumatera Selatan).

Daftar gunung di Sumatera

Gunung Dempo (3.159 m) Gunung Kerinci (3.805 m) Gunung Leuser (3.172 m) Gunung Marapi (2.891,3 m) Gunung Perkison (2.300 m) Gunung Pesagi (2.262 m) Gunung Rajabasa (1.281 m)

Gunung Daik (1.165 m) Gunung Sekincau (1.718 m) Gunung Seulawah Agam (1.726 m) Gunung Sibayak (2.212 m) Gunung Singgalang (2.877 m) Gunung Talamau (2.912 m) Gunung Tandikat (2.438 m) Gunung Tanggamus (1.162 m) Gunung Seminung (1.881 m)

Sumber daya alam

Bagian ini membutuhkan pengembangan

Administrasi

Bagian ini membutuhkan pengembangan

Provinsi di Sumatera

Pemerintahan di Sumatera dibagi menjadi sepuluh provinsi berdasarkan urutan pembentukannya:

• Sumatera Utara
• Sumatera Selatan
• Sumatera Barat
• Riau
• Jambi
• Aceh
• Lampung
• Bengkulu
• Kepulauan Bangka Belitung
• Kepulauan Riau

Kota besar

Berikut 10 kota besar di Sumatera berdasarkan jumlah populasi tahun 2009.^[3]

Urutan	Kota, Provinsi	Populasi
1	Medan, Sumatera Utara	2,618,645
2	Palembang, Sumatera Selatan	1,471,855
3	Batam, Kepulauan Riau	1,137.894
4	Padang, Sumatera Barat	960,184
5	Bandar Lampung, Lampung	956,593
6	Pekanbaru, Riau	763,275
7	Jambi, Jambi	454,686
8	Bengkulu, Bengkulu	373,243
9	Banda Aceh, Aceh	287,769
10	Pematang Siantar, Sumatera Utara	209,568

Bahasa

Bagian ini membutuhkan pengembangan

Budaya

Bagian ini membutuhkan pengembangan

Lihat pula

• Sejarah Sumatera
• Kerajaan-kerajaan di Sumatera

Referensi

1. ^ Nicholaas Johannes Krom, De Naam Sumatra, BKI, 100, 1941.
2. ^ Munoz. Early Kingdoms. hlm. 175.
3. ^ Helders, Stefan. "Indonesia: largest cities and towns and statistics of their population". World Gazetteer. Diakses pada 21 April 2009.

Pranala luar

• Catatan of Sumatera
• Sumatera Online

Read More