ketika aku mendengar kau juga
dengannya , betapa hancur hati ini.
serasa kau tusuk dan kau cabik dengan
sebilah pedang tajam.
tega , apa salahku ?
ya, mungkin aku yg terlalu bodoh dan
tak berguna.
aku tak bisa membuatmu lebih lama
denganku.
kau selalu benar, dan aku selalu salah.
iya ! aku yg egois bukan kau.
iya ! aku yg gak perhatian , bukan kau.
iya ! aku yg bodoh , bukan kau.
betapa maha benarnya kamu waktu itu.
hingga kau anggap perasaanku ini
sampah .
aku tak mengerti dan tak peduli saat
itu.
walau kau selalu menyalahkanku.
aku selalu menerima perlakuan tak
adilmu.
mata dan hatiku tlah dibutakan oleh
cinta.
cinta yang teramat besar padamu ,
cinta yg tak kau anggap
betapa malangnya nasibku.
ibarat kau raja dan aku budak .
aku tau semuanya , tapi aku diam.
aku tak peduli selama kau masih milikku.
tapi ternyata sabarku tlah sampai
batas akhir.
aku tak sanggup menutupi betapa
sedihnya aku.
betapa kecewanya aku.
cinta yang aku jaga sebaik mungkin,
ternyata malah kau rusak.
terimakasih boy . semua ada hikmah.
dan kini aku bisa lebih berhati2
menjalani cinta baru setelah ini.
dan aku akan melupakanmu .
aku pasti bisa seperti kamu , secepat
kamu lupain aku .
kini aku sadar.
bodonya aku yang masih terbelenggu
haraf agar kau kembali
menanti cinta kasih yg tak mungkin
untuk yang kedua kali.
selamat tinggal cinta lama . untuk
selamanya
SANG PENCINTA ART
Kenalilah diri sejauh mana kamu mengenalinya, Sampai mengenal siapa yang mennciptakanmu? Itulah arti hidup yang sesungguhnya! Tegas akan diri sendiri, Buang fikiran negatif, Lakukan yang terbaik. Kegelisahan hanya milik mereka yang putus asa! (PRIBADI TANGGUH, PANTANG MENGELUH)
Cari Blog Ini
Kamis, 29 Agustus 2013
Jumat, 04 Januari 2013
Tipe data dalam algoritma pemrograman PASCAL
Beberapa aturan dalam program Pascal :
• Akhir sebuah program Pascal ditandai dengan tanda baca titik (.) setelah END yang paling akhir.
• Tanda titik koma ( merupakan pemisah antar instruksi satu dengan lainnya.
• Beberapa statement boleh ditulis menjadi satu baris dipisahkan dengan tanda baca titk koma (
Contoh : simpan := akhir; akhir := simpan + awal;
• Baris komentar diletakkan diantara tanda (* dan *) atau diantara tanda { dan }
Contoh :
Var rerata : real; (*nilai rata-rata*)
Nil1 : real; {nilai ujian}
Komponen Dasar Program Pascal
Pola susun bahasa Pascal dibentuk dengan menggunakan komponen bahasa pemrograman yang umum, yaitu :
1. Simbol Dasar
2. Reserved Word (kata pasti)
3. Identifier (penyebut)
1. Simbol Dasar.
Simbol dasar terdiri atas :
a.Simbol huruf, yaitu huruf A sampai dengan Z atau a sampai dengan z.
(huruf besar dan kecil).
b.Simbol angka atau digit yaitu : 0,1,2,3,4,5,6,7,8,9.
c.Simbol khusus, yaitu
+ - * / ; := , ‘ = < > <= >= <> : { } ( ) [ ]
2. Reserved Word (kata pasti)
Reserved Word adalah suatu kata yang secara mutlak tidak boleh diartikan lain dan harus digunakan sebagaimana yang telah didefinisikan atau ditentukan kegunaanya oleh bahasa Pascal. Reserved word ini tidak boleh didefinisikan ulang oleh pemakai, sehingga tidak dapat dipergunakan sebagai pengenal (identifier)
Reserved Word ini jumlahnya berbeda untuk masing-masing bahasa Pascal.
Contoh beberapa reserved word yang telah didefinisikan oleh bahasa pascal antara lain :
3. Identifier (sebutan/pengenal)
Identifier merupakan sebuah kata yang digunakan sebagai nama atau sebutan terhadap sesuatu didalam program. Pemakai dapat mendefinisikan sendiri suatu nama sebagai identifier.
Identifier ini terdiri atas :
1. Identifier Standar, yaitu identifier yang telah didefinisikan oleh bahasa pascal.
Contoh dari Identifier standar ini antara lain:
2. Identifier Non Standar; yaitu identifier yang didefinisikan oleh pemakai bahasa pascal; misalnya;
3. nama suatu program
4. nama suatu konstanta
5. nama suatu variabel
6. nama suatu procedure
Identifier ini bebas, tetapi dengan ketentuan-ketentuan sebagai berikut :
7. terdiri dari gabungan huruf dan angka dengan karakter pertama harus berupa huruf. Huruf besar dan huruf kecil dianggap sama.
8. Tidak boleh mengandung blank.
9. Tidak boleh mengandung simbol-simbol khusus, kecuali garis bawah.
10. Panjangnya bebas, tetapi hanya 63 karakter pertama yang dianggap signifikan.
Contoh :
2.3. Jenis – jenis data
Jenis – jenis data yang dikenal dalam bahasa pascal antara lain yaitu:
INTEGER
Jenis data ini terdiri atas integer positif, integer negatif dan nol. Merupakan nilai bilangan bulat.
Pada TURBO PASCAL jenis data ini di bagi atas beberapa bagian, yaitu :
Operator Integer terdiri atas : + , - , * , / , DIV dan MOD
Contoh :
Var
Jumlah : byte;
Begin
Jumlah := 200;
WriteLn(‘Nilai JUMLAH = ‘,Jumlah);
End.
Hasilnya bila dijalankan :
Nilai JUMLAH = 200
REAL
Penulisan untuk jenis data ini selalu menggunakan titik desimal. Nilai konstanta numerik real berkisar dari 1E-38 sampai dengan 1E+38 dengan mantissa yang signifikan sampai dengan 11 digit. E menunjukkan nilai 10 pangkat. Nilai konstanta numerik real menempati memori sebesar 6 byte.
Contoh :
123.45
12345. ( salah, titik desimal tidak boleh dibelakang )
12E5
12E+5
-12.34
.1234 ( salah, titik desimal tidak boleh dimuka )
Pada TURBO PASCAL, jenis data ini dibedakan atas :
Operator untuk jenis data ini terdiri atas : + , - , * dan /
KARAKTER
Yang dimaksud dengan jenis data ini adalah karakter tunggal atau sebuah karakter yang ditulis diantara tanda petik tunggal, seperti misalnya ‘A’,’a’,’!’,’5’ dsb.
Dasarnya adalah ASCII CHARACTER SET.
Misalnya : 032 pada tabel ASCII CHARACTER SET menunjukkan karakter.
STRING
Nilai data string merupakan urut-urutan dari karakter yang terletak di antara tanda petik tunggal. Nilai data string akan menenpati memori sebesar banyaknya karakter stringnya ditambah dengan 1 byte. Bila panjang dari suatu string di dalam deklarasi variabel tidak disebutkan, maka dianggap panjangnya adalah 255 karakter.
Contoh :
Var
Kampus : string[10];
Begin
Kampus := ‘Gunadarma’;
Write(Kampus);
End.
BOOLEAN
Jenis data ini mempunyai nilai TRUE atau FALSE.
Operator untuk jenis data ini adalah :
1. Logical Operator, yaitu : NOT, AND dan OR
2. Relational Operator, yaitu : >, <, >=, <=, <> dan = \
JENIS DATA NON-STANDARD (USER DEFINED)
1. ENUMERATED.
Jenis data ini terdiri atas barisan identifier yang terurut dimana setiap identifier tersebut dianggap sebagai suatu individual data item (elemen data yang berdiri sendiri).
Pada saat mendeklarasikan jenis data ini kita harus menuliskan semua elemen-elemennya.
Bentuk umum deklarasinya adalah :
TYPE nama = (data_item_1, data_item_2, ……., data_item_n);
Contoh :
TYPE hari = (sen,sel,rab,kam,jum,sab,ming);
TYPE warna = (red,blue,green,yellow,black,white);
Setelah jenis data ini dideklarasikan, maka selanjutnya kita dapat mendeklarasikan suatu variabel yang berjenis data sama dengan jenis data ini.
Misalnya :
TYPE nama_hari = (sen,sel,rab,kam,jum,sab,ming);
VAR libur : nama_hari;
Fungsi standar yang dapat digunakan pada jenis data ini adalah :
PRED, SUCC dan ORD
Misalnya :
PRED (sel) = sen
SUCC (sen) = sel
ORD (sen) = 0
ORD (sel) = 1
2. SUB-RANGE.
Jenis data ini berupa range dari suatu kumpulan data yang mempunyai urutan..
Bentuk umum deklarasinya adalah :
TYPE nama = data_item_pertama .. data_item_terakhir;
Contoh :
1. TYPE jam_kuliah = 1 .. 10;
tanggal = 1 .. 31;
abjad = ‘A’ .. ‘Z’;
2. TYPE bulan = (jan,feb,mar,apr,mei,jun,jul,agt,sep,okt,nov,des);
hari = (sen,sel,rab,kam,jum,sab,ming);
ata = agt .. jan;
pta = feb .. jun;
hari_kerja = sen .. jum;
TANDA OPERASI
Tanda operasi (operator) di dalam bahasa Pascal dikelompokkan ke dalam 9 kategori, yaitu
1. Assignment operator.
2. Binary operator.
3. Unary operator.
4. Bitwise operator.
5. Relational operator.
6. Logical operator.
7. Address operator.
8. Set operator.
9. String operator.
Assignment operator
Assignment operator (operator pengerjaan) menggunakan simbol titik dua diikuti oleh tanda sama dengan (:=).
Contoh :
A:=B;
Binary operator
Digunakan untuk mengoperasikan dua buah operand. Operand dapat berbentuk konstanta ataupun variabel. Operator ini digunakan untuk operasi aritmatika yang berhubungan dengan nilai tipe data integer dan real.
Contoh :
15*5 hasilnya 75
20/3 hasilnya 6.6666666667E+00
20 div 3 hasilnya 6
20 mod 3 hasilnya 2
Unary operator
Operator ini hanya menggunakan sebuah operand saja. Dapat berupa unary minus dan unary plus. Unary minus digunakan untuk menunjukkan nilai negatif, baik pada operang numerik real maupun integer. Unaru plus adalah operator untuk memberai tanda plus.
Contoh :
-5 +7
-2.5 +2.5
Bitwise operator
Digunakan untuk operasi bit per bit pada nilai integer. Terdiri dari operator NOT, AND, OR, XOR, Shl, Shr.
Relational operator
Relational operator digunakan untuk membandingkan hubungan antara dua buah operand dan akan didapatkan hasil tipe boolean, yaitu True atau False. Terdiri dari operator : =, <, >, <=, >=, <>
Logical operator
Terdapat 4 buah logical operator yaitu : NOT, AND, OR dan XOR. Operator ini bekerja dengan nilai-nilai logika, yaitu True dan False.
Set operator
Digunakan untuk operasi himpunan.
String operator
Digunakan untuk operasi string. Hanya ada sebuah operator string saja, yaitu operator + yang digunakan untuk menggabungkan dua buah nilai string.
Contoh :
Nama1 := ‘Arief ‘;
Nama2 := ‘Kurniawan’;
Nama3 := Nama1 + Nama2;
2.4. Konstanta, Variabel dan Ekspresi.
Konstanta.
Konstanta adalah suatu identifier non-standar yang nilainya telah ditetapkan dalam suatu program dan dideklarasikan pada bagian deklarasi.
Bagian umum deklarasinya adalah :
CONST identifier = nilai;
Contoh :
CONST phi = 3.14;
x= 2;
y = ‘S’;
Variabel.
Variabel adalah suatu identifier non-standar yang nilainya tidak tetap atau nilainya merupakan hasil dari suatu proses.
(variabel yang dimaksudkan disini sama seperti halnya arti variabel pada aljabar).
Bentuk umum deklarasinya adalah :
1. Jika hanya 1 (satu) variabel yang dideklarasikan :
VAR identifier : jenis data;
2. Jika lebih dari 1 (satu) variabel dan masing-masing memiliki jenis data yang sama :
VAR id-1, id-2, …., id-3 : jenis data;
3. Jika beberapa variabel yang berbeda jenis datanya :
VAR identifier-1 : jenis data;
identifier-2 : jenis data;
.
.
.
identifier-n : jenis data;
4. Jika variabel yang dideklarasikan berjenis data non-standar :
TYPE id = (data_item_1,data_item_2,…,data_item_n);
VAR id-v : id;
SUB-RANGE :
TYPE id = data_item_pertama .. data_item_terakhir;
VAR id-v : id;
Contoh :
1. VAR x : integer;
2. VAR p,q,r : real;
3. VAR a,b : char;
m,n : boolean;
4. TYPE warna = (merah,hitam,biru,putih,kuning);
VAR x1,x2 : warna;
5. TYPE tahun = 1900 .. 1993;
VAR thn-1,thn-2,thn-3 : tahun;
Ekspresi.
Sebuah ekspresi merupakan kumpulan dari operand-operand (seperti : bilangan, konstanta, variabel dll) yang bersama-sama dengan operator membentuk suatu bentuk aljabar dan menyatakan suatu nilai.
Ada 2 (dua) jenis ekspresi dalam bahasa Pascal, yaitu :
1. Ekspresi numerik / aritmatika, yaitu suatu ekspresi yang menghasilkan nilai numerik / aritmatika.
2. Ekspresi Boolean atau ekspresi logika, yaitu suatu ekspresi yang menghasilkan nilai boolean / logika (true/false).
Contoh :
1. (b * b – 4 * a * c) / (2*a) / (2 * a) ekspresi numerik, jika a,b dan c adalah bilangan (variabel bernilai numerik).
da
2. Upah < 1000.0 ekspresi boolean (“upah” alah suatu variabel bernilai real).
2.5. Input dan output (Standar I/O).
Dalam bahasa Pascal untuk keperluan input (membaca input) digunakan identifier standar READ atau READLN.
Identifier standar ReadLn sedikit berbeda dengan Read. ReadLn digunakan untuk memasukkan data perbaris, artinya setelah tombol Enter ditekan, maka akan ganti baris, sedangkan Read tidak ganti baris, masih dalam baris yang sama.
Sedangkan untuk keperluan output (mencetak output) digunakan identifier standar WRITE atau WRITLN.
Perbedaan Write dengan WriteLn adalah bahwa Write menampilkan hasil tanpa ganti baris dan tampilan berikutnya akan disambung dalam baris yang sama. Sedang WriteLn digunakan untuk menampilkan tampilan perbaris, akan ganti baris untuk tampilan berikutnya.
Bentuk umum penulisannya :
1. READ (variabel input) ;
Atau
READLN (variabel output);
2. WRITE (variabel output);
WRITELN (variabel output);
Contoh :
Var nama : string{15};
Begin nama := ‘Dewi’;
write(‘nama : ‘);
write(nama);
End.
Hasilnya :
Nama : Dewi
Contoh :
Var nama : string{15};
Begin nama := ‘Dewi”;
WriteLn(‘Nama : ‘);
WriteLn(Nama);
End.
Hasilnya :
Nama :
Dewi
• Akhir sebuah program Pascal ditandai dengan tanda baca titik (.) setelah END yang paling akhir.
• Tanda titik koma ( merupakan pemisah antar instruksi satu dengan lainnya.
• Beberapa statement boleh ditulis menjadi satu baris dipisahkan dengan tanda baca titk koma (
Contoh : simpan := akhir; akhir := simpan + awal;
• Baris komentar diletakkan diantara tanda (* dan *) atau diantara tanda { dan }
Contoh :
Var rerata : real; (*nilai rata-rata*)
Nil1 : real; {nilai ujian}
Komponen Dasar Program Pascal
Pola susun bahasa Pascal dibentuk dengan menggunakan komponen bahasa pemrograman yang umum, yaitu :
1. Simbol Dasar
2. Reserved Word (kata pasti)
3. Identifier (penyebut)
1. Simbol Dasar.
Simbol dasar terdiri atas :
a.Simbol huruf, yaitu huruf A sampai dengan Z atau a sampai dengan z.
(huruf besar dan kecil).
b.Simbol angka atau digit yaitu : 0,1,2,3,4,5,6,7,8,9.
c.Simbol khusus, yaitu
+ - * / ; := , ‘ = < > <= >= <> : { } ( ) [ ]
2. Reserved Word (kata pasti)
Reserved Word adalah suatu kata yang secara mutlak tidak boleh diartikan lain dan harus digunakan sebagaimana yang telah didefinisikan atau ditentukan kegunaanya oleh bahasa Pascal. Reserved word ini tidak boleh didefinisikan ulang oleh pemakai, sehingga tidak dapat dipergunakan sebagai pengenal (identifier)
Reserved Word ini jumlahnya berbeda untuk masing-masing bahasa Pascal.
Contoh beberapa reserved word yang telah didefinisikan oleh bahasa pascal antara lain :
3. Identifier (sebutan/pengenal)
Identifier merupakan sebuah kata yang digunakan sebagai nama atau sebutan terhadap sesuatu didalam program. Pemakai dapat mendefinisikan sendiri suatu nama sebagai identifier.
Identifier ini terdiri atas :
1. Identifier Standar, yaitu identifier yang telah didefinisikan oleh bahasa pascal.
Contoh dari Identifier standar ini antara lain:
2. Identifier Non Standar; yaitu identifier yang didefinisikan oleh pemakai bahasa pascal; misalnya;
3. nama suatu program
4. nama suatu konstanta
5. nama suatu variabel
6. nama suatu procedure
Identifier ini bebas, tetapi dengan ketentuan-ketentuan sebagai berikut :
7. terdiri dari gabungan huruf dan angka dengan karakter pertama harus berupa huruf. Huruf besar dan huruf kecil dianggap sama.
8. Tidak boleh mengandung blank.
9. Tidak boleh mengandung simbol-simbol khusus, kecuali garis bawah.
10. Panjangnya bebas, tetapi hanya 63 karakter pertama yang dianggap signifikan.
Contoh :
2.3. Jenis – jenis data
Jenis – jenis data yang dikenal dalam bahasa pascal antara lain yaitu:
INTEGER
Jenis data ini terdiri atas integer positif, integer negatif dan nol. Merupakan nilai bilangan bulat.
Pada TURBO PASCAL jenis data ini di bagi atas beberapa bagian, yaitu :
Operator Integer terdiri atas : + , - , * , / , DIV dan MOD
Contoh :
Var
Jumlah : byte;
Begin
Jumlah := 200;
WriteLn(‘Nilai JUMLAH = ‘,Jumlah);
End.
Hasilnya bila dijalankan :
Nilai JUMLAH = 200
REAL
Penulisan untuk jenis data ini selalu menggunakan titik desimal. Nilai konstanta numerik real berkisar dari 1E-38 sampai dengan 1E+38 dengan mantissa yang signifikan sampai dengan 11 digit. E menunjukkan nilai 10 pangkat. Nilai konstanta numerik real menempati memori sebesar 6 byte.
Contoh :
123.45
12345. ( salah, titik desimal tidak boleh dibelakang )
12E5
12E+5
-12.34
.1234 ( salah, titik desimal tidak boleh dimuka )
Pada TURBO PASCAL, jenis data ini dibedakan atas :
Operator untuk jenis data ini terdiri atas : + , - , * dan /
KARAKTER
Yang dimaksud dengan jenis data ini adalah karakter tunggal atau sebuah karakter yang ditulis diantara tanda petik tunggal, seperti misalnya ‘A’,’a’,’!’,’5’ dsb.
Dasarnya adalah ASCII CHARACTER SET.
Misalnya : 032 pada tabel ASCII CHARACTER SET menunjukkan karakter.
STRING
Nilai data string merupakan urut-urutan dari karakter yang terletak di antara tanda petik tunggal. Nilai data string akan menenpati memori sebesar banyaknya karakter stringnya ditambah dengan 1 byte. Bila panjang dari suatu string di dalam deklarasi variabel tidak disebutkan, maka dianggap panjangnya adalah 255 karakter.
Contoh :
Var
Kampus : string[10];
Begin
Kampus := ‘Gunadarma’;
Write(Kampus);
End.
BOOLEAN
Jenis data ini mempunyai nilai TRUE atau FALSE.
Operator untuk jenis data ini adalah :
1. Logical Operator, yaitu : NOT, AND dan OR
2. Relational Operator, yaitu : >, <, >=, <=, <> dan = \
JENIS DATA NON-STANDARD (USER DEFINED)
1. ENUMERATED.
Jenis data ini terdiri atas barisan identifier yang terurut dimana setiap identifier tersebut dianggap sebagai suatu individual data item (elemen data yang berdiri sendiri).
Pada saat mendeklarasikan jenis data ini kita harus menuliskan semua elemen-elemennya.
Bentuk umum deklarasinya adalah :
TYPE nama = (data_item_1, data_item_2, ……., data_item_n);
Contoh :
TYPE hari = (sen,sel,rab,kam,jum,sab,ming);
TYPE warna = (red,blue,green,yellow,black,white);
Setelah jenis data ini dideklarasikan, maka selanjutnya kita dapat mendeklarasikan suatu variabel yang berjenis data sama dengan jenis data ini.
Misalnya :
TYPE nama_hari = (sen,sel,rab,kam,jum,sab,ming);
VAR libur : nama_hari;
Fungsi standar yang dapat digunakan pada jenis data ini adalah :
PRED, SUCC dan ORD
Misalnya :
PRED (sel) = sen
SUCC (sen) = sel
ORD (sen) = 0
ORD (sel) = 1
2. SUB-RANGE.
Jenis data ini berupa range dari suatu kumpulan data yang mempunyai urutan..
Bentuk umum deklarasinya adalah :
TYPE nama = data_item_pertama .. data_item_terakhir;
Contoh :
1. TYPE jam_kuliah = 1 .. 10;
tanggal = 1 .. 31;
abjad = ‘A’ .. ‘Z’;
2. TYPE bulan = (jan,feb,mar,apr,mei,jun,jul,agt,sep,okt,nov,des);
hari = (sen,sel,rab,kam,jum,sab,ming);
ata = agt .. jan;
pta = feb .. jun;
hari_kerja = sen .. jum;
TANDA OPERASI
Tanda operasi (operator) di dalam bahasa Pascal dikelompokkan ke dalam 9 kategori, yaitu
1. Assignment operator.
2. Binary operator.
3. Unary operator.
4. Bitwise operator.
5. Relational operator.
6. Logical operator.
7. Address operator.
8. Set operator.
9. String operator.
Assignment operator
Assignment operator (operator pengerjaan) menggunakan simbol titik dua diikuti oleh tanda sama dengan (:=).
Contoh :
A:=B;
Binary operator
Digunakan untuk mengoperasikan dua buah operand. Operand dapat berbentuk konstanta ataupun variabel. Operator ini digunakan untuk operasi aritmatika yang berhubungan dengan nilai tipe data integer dan real.
Contoh :
15*5 hasilnya 75
20/3 hasilnya 6.6666666667E+00
20 div 3 hasilnya 6
20 mod 3 hasilnya 2
Unary operator
Operator ini hanya menggunakan sebuah operand saja. Dapat berupa unary minus dan unary plus. Unary minus digunakan untuk menunjukkan nilai negatif, baik pada operang numerik real maupun integer. Unaru plus adalah operator untuk memberai tanda plus.
Contoh :
-5 +7
-2.5 +2.5
Bitwise operator
Digunakan untuk operasi bit per bit pada nilai integer. Terdiri dari operator NOT, AND, OR, XOR, Shl, Shr.
Relational operator
Relational operator digunakan untuk membandingkan hubungan antara dua buah operand dan akan didapatkan hasil tipe boolean, yaitu True atau False. Terdiri dari operator : =, <, >, <=, >=, <>
Logical operator
Terdapat 4 buah logical operator yaitu : NOT, AND, OR dan XOR. Operator ini bekerja dengan nilai-nilai logika, yaitu True dan False.
Set operator
Digunakan untuk operasi himpunan.
String operator
Digunakan untuk operasi string. Hanya ada sebuah operator string saja, yaitu operator + yang digunakan untuk menggabungkan dua buah nilai string.
Contoh :
Nama1 := ‘Arief ‘;
Nama2 := ‘Kurniawan’;
Nama3 := Nama1 + Nama2;
2.4. Konstanta, Variabel dan Ekspresi.
Konstanta.
Konstanta adalah suatu identifier non-standar yang nilainya telah ditetapkan dalam suatu program dan dideklarasikan pada bagian deklarasi.
Bagian umum deklarasinya adalah :
CONST identifier = nilai;
Contoh :
CONST phi = 3.14;
x= 2;
y = ‘S’;
Variabel.
Variabel adalah suatu identifier non-standar yang nilainya tidak tetap atau nilainya merupakan hasil dari suatu proses.
(variabel yang dimaksudkan disini sama seperti halnya arti variabel pada aljabar).
Bentuk umum deklarasinya adalah :
1. Jika hanya 1 (satu) variabel yang dideklarasikan :
VAR identifier : jenis data;
2. Jika lebih dari 1 (satu) variabel dan masing-masing memiliki jenis data yang sama :
VAR id-1, id-2, …., id-3 : jenis data;
3. Jika beberapa variabel yang berbeda jenis datanya :
VAR identifier-1 : jenis data;
identifier-2 : jenis data;
.
.
.
identifier-n : jenis data;
4. Jika variabel yang dideklarasikan berjenis data non-standar :
TYPE id = (data_item_1,data_item_2,…,data_item_n);
VAR id-v : id;
SUB-RANGE :
TYPE id = data_item_pertama .. data_item_terakhir;
VAR id-v : id;
Contoh :
1. VAR x : integer;
2. VAR p,q,r : real;
3. VAR a,b : char;
m,n : boolean;
4. TYPE warna = (merah,hitam,biru,putih,kuning);
VAR x1,x2 : warna;
5. TYPE tahun = 1900 .. 1993;
VAR thn-1,thn-2,thn-3 : tahun;
Ekspresi.
Sebuah ekspresi merupakan kumpulan dari operand-operand (seperti : bilangan, konstanta, variabel dll) yang bersama-sama dengan operator membentuk suatu bentuk aljabar dan menyatakan suatu nilai.
Ada 2 (dua) jenis ekspresi dalam bahasa Pascal, yaitu :
1. Ekspresi numerik / aritmatika, yaitu suatu ekspresi yang menghasilkan nilai numerik / aritmatika.
2. Ekspresi Boolean atau ekspresi logika, yaitu suatu ekspresi yang menghasilkan nilai boolean / logika (true/false).
Contoh :
1. (b * b – 4 * a * c) / (2*a) / (2 * a) ekspresi numerik, jika a,b dan c adalah bilangan (variabel bernilai numerik).
da
2. Upah < 1000.0 ekspresi boolean (“upah” alah suatu variabel bernilai real).
2.5. Input dan output (Standar I/O).
Dalam bahasa Pascal untuk keperluan input (membaca input) digunakan identifier standar READ atau READLN.
Identifier standar ReadLn sedikit berbeda dengan Read. ReadLn digunakan untuk memasukkan data perbaris, artinya setelah tombol Enter ditekan, maka akan ganti baris, sedangkan Read tidak ganti baris, masih dalam baris yang sama.
Sedangkan untuk keperluan output (mencetak output) digunakan identifier standar WRITE atau WRITLN.
Perbedaan Write dengan WriteLn adalah bahwa Write menampilkan hasil tanpa ganti baris dan tampilan berikutnya akan disambung dalam baris yang sama. Sedang WriteLn digunakan untuk menampilkan tampilan perbaris, akan ganti baris untuk tampilan berikutnya.
Bentuk umum penulisannya :
1. READ (variabel input) ;
Atau
READLN (variabel output);
2. WRITE (variabel output);
WRITELN (variabel output);
Contoh :
Var nama : string{15};
Begin nama := ‘Dewi’;
write(‘nama : ‘);
write(nama);
End.
Hasilnya :
Nama : Dewi
Contoh :
Var nama : string{15};
Begin nama := ‘Dewi”;
WriteLn(‘Nama : ‘);
WriteLn(Nama);
End.
Hasilnya :
Nama :
Dewi
Jumat, 28 Desember 2012
Bersukur sepanjang hidup
Bersyukur Bukanlah Tidur
Bersyukur bukan berarti cuma tidur
Walau tanah kita subur
Jangan mau cuma bisa makan bubur!
Dari pada memilih menganggur
Atau cuma mimpi menikmati anggur
Lebih baik babak belur
Atau gugur dalam bertempur
Supaya hidup lebih makmur
Jangan takut apa yang terlihat kabur
Jangan sampai tekadmu kendur
Niatmu janganlah luntur
Hanya karena jatuh janganlah mundur
Melesatlah seperti panah dari busur
Kreatiflah, jangan bisanya cuma menyadur
Beranilah beda walau kita membaur
Jangan latah jangan takut digusur
Sungai gagasan perlu ditelusur
Wanita pandailah berlulur
Pandai jugalah saat di dapur
Yang sementara jangan membuatmu tergiur
Yang palsu jangan dibuat penghibur
Jangan rapuh seperti kapur
Jangan pecah seperti telur
Jangan cengeng ketika terbentur
Tetap bersyukur saat terjaga ataupun tidur
Jangan cuma bisanya mendengkur
Punya lidah jangan asal terjulur
Bicara jangan melantur
Jangan suka berpikir ngawur
Santun dalam bertutur
Berkata dan berbuat jujur
Selalu menyapa selalulah menegur
Dengan sesama selalulah akur
Urusan orang lain jangan ikut campur
Peduli jangan salah jalur
Karang keras pun hancur lebur
Karena ombak dan debur
Nikmati bekerja walau harus terjemur
Rasakan cinta walau peluh mengucur
Santai saja walau keringat berlumur
Tak apalah walau harus lembur
Gaji kecil jangan jadi tolak ukur
Ikuti saja alur
Buatlah lahan gersang jadi gembur
Berhenti harapkan hujan, buatlah sumur
Jangan hanya memikirkan kasur
Jangan tergesa di depan rumah pasang janur
Selalu tersenyum selalulah merasa syukur
Sepanjang hidup hingga tubuh terbujur
Kamis, 29 November 2012
ICE BOX IN MEMORY
Di balik pulau ini
Tempat kedua kakiku berpijak
Di tanah air ibu pertiwi tersayang
Terbendung segudang keriduan untuk sahabatku
Di tanah kelahiran Siti Nuralisah
Sahabatku…
Maafkan daku dari kejauhan
Bila jasad ini tak mampu menyapa
Untuk tawa dan rangkulan hangatku
Andaikan angin ini dapat menerbangkanku
Melintasi bukit nan tinggi dan bentangan luas lautan
Mungkin sebelum senja menyapa malam siang berlau
Daku kan mendarat di tanah sabah bakso mas lele Ice box
Seandainya pula kantong ajaip kucing jepang
Bukanlah cerita belaka dalam filem kartun
Daku pasti meminta padanya untuk sebuah pinjaman
Dari kantong ajaib tempat baling-balinag bambu berada
Tanganku menggenggam butiran-butiran pasir
Cerita dari tanah bugis Sulawesi selatan
Untuk kutaburkan di daun-daun kupingmu
Sebagai wacana melepas kerinduan bertahun
Melewati semalam suntuk bersama premium philipin
Tuhanku yang maha pemurah
Lagi maha penyayang ummatnya
Berilah bunda hamba rejeki
Agar jasad ini kembali mengukir cerita
Walau sejenak di tanah kelahiran tercinta
Air mata bercucuran membahas kolam kerinduan
Mengingat tawa merekam kenangan
Duduk bersama sahabatku dijembatan
Tempat terakhirku bersama sebelum
Telapak kaki menginjak daratan ibu pertiwi
SAHABAT JIWA
Hidup ini bagaikan teka teki
di mana kita harus menebak ......
semua tangga yang terlihat hitam ataupun putih
kadang di saat kita bahagia sekali pun
Bagaikan air yg terus mengalir
tanpa menghiraukan .......
bahwa esok akan ada yg menantikan kesedihan
di saat dan dengan keadaan apa pun
Aku bisa merasakan arti persahabatan
yang seutuhnya ya.......itulah kawanku , temanku...
sahabatku yg selalu membuat aku
melupakan kesedihan dan kembali melangkah dengan ceria ....
Ku angkat wajahku......
ku buang rasa sakitku.....
ku ringankan langkahku....
ku ayun tanganku......
Satu hal yg akan ku ingat selamanya
Satu sahabat lebih baik dari apa pun
Karena dia mampu memberikan pegangan
Di saat kita terhuyung dan terjatuh
Dia jg mampu membuat kita tersenyum kembali dalam canda tawanya.
PERSAHABATAN
melihat tawa n snyum kalian mengingatkan ku..
kan saat pertama kali kta brtemu..
aku mngenal klian tanpa sngaja...
mncoba akrab dgn klian ..
n akhrnya menjalin sbuah pershabatan...
kita selalu menjalani hari2 bersama2..
meskipun terkdang kita bertengkar ..
hnya karena sbuah hal..
ku tak pernah mnympan dendam d'htiku...
stelah beberapa waktu..
aku paham..
klian mempunyai kekurangan2..
yg bgiku kelebihan..
n q mempunyai kekurangan yg bgi klian adlah kelebihan..
karena toew..
kita slalu melengkapi satu sama lain..
kita slalu bersama layaknya sbuah kluarga..
Kalian slalu stia mnemaniku..
di saat q sdh...
klian hbur q dgn candamu..
di saat q bimbang..
klian membriku bnyak solusi..
di saat q mnangis..
klian rubah air mataku menjadi sbuah snyuman..
jika esok q tlah tiada..
maafkanlah smua ksalahanku..
klian adlah sosok yg sgt brart dlam hdup ku..
twa kalian slalu membuatku bhagia..
Karna itu...
kutempatkan..
"KEDUDUKAN SAHABAT JAUH DIATAS CINTA"
karena shbat lbih mngert arti dri stiap tetes air mata yg jtuh dri
mata kta..
n q ingin klian taw...
bahwa ..
"AKU BAHAGIA MEMPUNYAI SAHABAT SEPERTI KALIAN"
DOA UNTUK IBU
Aku tak tau apa yang harus kuLakukan tanpa dia
Dia yang seLaLu mengerti aku
Dia yang tak pernah Letih menasehatiku
Dia yang seLaLu menemani
DiaLah Ibu
Orang yang seLaLu menjagaku
Tanpa dia aku merasa hampa hidup di dunia ini
Tanpa.nya aku bukanlah apa-apa
Aku hanya seorang manusia Lemah
Yang membutuhkan kekuatan
Kekuatan cinta kasih dari ibu
Kekuatan yang Lebih dari apapun
Engkau sangat berharga bagiku
WaLaupun engkau seLaLu memarahiku
Aku tau
Itu bentuk perhatian dari mu
Itu menandakan kau peduLi denganku
Ya Allah,,
BerikanLah kesehatan pada ibuku
PanjangkanLah umur.nya
Aku ingin membahagiakan.nya
SebeLum aku atau dia tiada
Terimakasih Ibu
Atas apa yang teLah kau berikan padaku
JASA TAK TERLUPAKAN
Ibu...
kau membingbingku selama satu tahun
kau begitu baik padakuwaluapun aku sukamarah-marah
Ibu....
kau begitu ceria dan rajin dari pada guru yang lain
ibu...
kau yang pintar,baik,ramah,cantik,dan sopan
Ibu...
kalau aku membuat salah tolong maafkan aku
karena aku cuma kesal karna aku selalu diejek
Ibu...
kalau aku lagi sedih kau menghibur aku
kalau aku lagi kesal kau menghiburku
Ibu...
terimakasih atas jasa-jasamu jika aku
masih sempat bertemu dengan ibu
aku sangat ingin memeluk ibu
Sabtu, 24 November 2012
dunia fana
kecuali
sebuah pertemuan dengan mereka yang kita kasihi. Setelah jarak waktu
penantian dan pengembaraan di rimba dunia fana ini; akhirnya mereka
berjumpa dalam pertemuan akbar di surga Adnin. Para malaikat
mengembangkan sayapnya mengiringi pertemuan mereka, seraya berdendang
melagukan sonata doa dan mengucapkan salam sejahtera kepada para
penghuninya.
Surga Adnin tempat di mana mereka masuk ke dalamnya bersama orang-orang saleh dari bapak-bapak mereka, istri-istri mereka, dan keturunan mereka, sedang malaikat-malaikat masuk ke tempat-tempat mereka dari setiap pintu, seraya mengucapkan salamunalaikum, kedamaian bagi kamu dengan kesabaran kamu, maka inilah sebaik-baik tempat kesudahan. (QS ar-Ra'du [13]: 23-24).
Dan salah satu kunci untuk memasuki surga itu, dijelaskan pada ayat sebelumnya yaitu mereka yang memenuhi janji, yang menyambung tali silaturahim, takut dengan seburuk- buruk perhitungan, dan sabar.
Sedangkan kunci lain yang akan membuka pintu-pintu surga terletak dalam keluhuran akhlak serta rasa hormatnya yang penuh dengan ihsan (excellent) kepada kedua orang tua, utamanya ibu.
Benarlah apa yang disabdakan Rasulullah SAW, Ada tiga doa yang pasti dikabulkan dan tidak diragukan lagi, yakni doa orang yang teraniaya, doa orang bepergian, dan doa orang tua bagi anaknya (HR Al-Bukhari ). Tidak ada kebahagiaan yang paling berbinar, kecuali kita memiliki anak yang saleh, santun kepada orang tua, dan gemar mendoakan. Karena doa anak yang saleh, tidak ada penghalangnya kecuali dikabulkan Allah.
Rasulullah bersabda, Diangkat derajat seseorang setelah matinya. Dia pun bertanya, Wahai Tuhanku, mengapa engkau angkat derajatku? Allah berfirman: Anakmu memohon ampunan untukmu (HR al-Bukhari).
Begitu dahsyatnya kekuatan doa anak yang saleh sehingga dapat mengubah kedudukan orang tuanya yang telah meninggal. Bahkan, Ibnu Abbas meriwayatkan bahwa Rasulullah SAW bersabda, Ketika seseorang masuk surga ia menanyakan orang tua, istri, dan anak-anaknya. Lalu Allah berkata kepadanya, Mereka tidak mencapai derajat amalmu. Kemudian, orang itu berkata, Ya Rabbi, aku beramal bagiku dan keluargaku. Kemudian, Allah memerintahkan untuk menyusulkan keluarganya ke surga. (HR Thabrani).
Para orang tua beserta seluruh penghuni yang berada di bawah atap rumahnya, merasakan bahwa mereka adalah satu jamaah yang kelak akan reuni di surga. Seluruh keluarga merindukan pertemuan ulang di alam baka dan menjadi penghuni surga Adnin.
Sehingga, seseorang yang sudah berumur 40 tahun sangat dianjurkan agar senantiasa berdoa, sebagaimana doa yang difirmankan Allah: Ya Tuhanku, jadikan hamba mampu bersyukur atas nikmat yang Engkau berikan serta bersyukur kepada kedua orang tuaku, dan untuk menunaikan amal saleh yang Engkau ridai, dan berikanlah kebaikan padaku dan keturunanku (QS al-Ahqaf [46]: 15). Semoga kita dapat berkumpul untuk reuni di surga Adnin.
Surga Adnin tempat di mana mereka masuk ke dalamnya bersama orang-orang saleh dari bapak-bapak mereka, istri-istri mereka, dan keturunan mereka, sedang malaikat-malaikat masuk ke tempat-tempat mereka dari setiap pintu, seraya mengucapkan salamunalaikum, kedamaian bagi kamu dengan kesabaran kamu, maka inilah sebaik-baik tempat kesudahan. (QS ar-Ra'du [13]: 23-24).
Dan salah satu kunci untuk memasuki surga itu, dijelaskan pada ayat sebelumnya yaitu mereka yang memenuhi janji, yang menyambung tali silaturahim, takut dengan seburuk- buruk perhitungan, dan sabar.
Sedangkan kunci lain yang akan membuka pintu-pintu surga terletak dalam keluhuran akhlak serta rasa hormatnya yang penuh dengan ihsan (excellent) kepada kedua orang tua, utamanya ibu.
Benarlah apa yang disabdakan Rasulullah SAW, Ada tiga doa yang pasti dikabulkan dan tidak diragukan lagi, yakni doa orang yang teraniaya, doa orang bepergian, dan doa orang tua bagi anaknya (HR Al-Bukhari ). Tidak ada kebahagiaan yang paling berbinar, kecuali kita memiliki anak yang saleh, santun kepada orang tua, dan gemar mendoakan. Karena doa anak yang saleh, tidak ada penghalangnya kecuali dikabulkan Allah.
Rasulullah bersabda, Diangkat derajat seseorang setelah matinya. Dia pun bertanya, Wahai Tuhanku, mengapa engkau angkat derajatku? Allah berfirman: Anakmu memohon ampunan untukmu (HR al-Bukhari).
Begitu dahsyatnya kekuatan doa anak yang saleh sehingga dapat mengubah kedudukan orang tuanya yang telah meninggal. Bahkan, Ibnu Abbas meriwayatkan bahwa Rasulullah SAW bersabda, Ketika seseorang masuk surga ia menanyakan orang tua, istri, dan anak-anaknya. Lalu Allah berkata kepadanya, Mereka tidak mencapai derajat amalmu. Kemudian, orang itu berkata, Ya Rabbi, aku beramal bagiku dan keluargaku. Kemudian, Allah memerintahkan untuk menyusulkan keluarganya ke surga. (HR Thabrani).
Para orang tua beserta seluruh penghuni yang berada di bawah atap rumahnya, merasakan bahwa mereka adalah satu jamaah yang kelak akan reuni di surga. Seluruh keluarga merindukan pertemuan ulang di alam baka dan menjadi penghuni surga Adnin.
Sehingga, seseorang yang sudah berumur 40 tahun sangat dianjurkan agar senantiasa berdoa, sebagaimana doa yang difirmankan Allah: Ya Tuhanku, jadikan hamba mampu bersyukur atas nikmat yang Engkau berikan serta bersyukur kepada kedua orang tuaku, dan untuk menunaikan amal saleh yang Engkau ridai, dan berikanlah kebaikan padaku dan keturunanku (QS al-Ahqaf [46]: 15). Semoga kita dapat berkumpul untuk reuni di surga Adnin.
Rabu, 21 November 2012
PUISI GELAP
by;iwan fals
Langit gelap ..
Jutaan gagak memenuhi langit ..
Datang dari goa-goa yang gelap dan lembab ..
Dari padang yang kering tandus ..
Merentang sayap berputar-putar mengerikan ..
Suaranya melengking menyayat ..
Amarah yang terpendam,,amarah tertahan ..
Gentayangan bagai mayat bangun dari kuburan ..
Karena mereka pun tak mau menerima ..
Gerhana matahari,,gerhana hidup ..
Mereka menutupi cahaya matahari ..
Memakan bangkai dari apa saja yang tersisa ..
Hinggap diatas lawan,,diatas rumah ..
Didahan-dahan pohon yang mati kering ..
Mengintai mangsa,,menanti bangkai temannya ..
Sendiri yang mati kelaparan ..
Bau bangkai menyengat dimana-mana ..
Saling menerkam diantara mereka sendiri ..
Sekedar bertahan dari kematian ..
Yang segera datang menjemput ..
Tak ada cahaya matahari ..
Tak ada kehidupan ..
Tak ada apa-apa ..
hanya ada ketegangan dan keganasan ..
Ketegangan yang mengandung bencana ..
Gagak terus berputar semakin gamang ..
Marah pada apa ..
Marah pada siapa ..
Marah pada marah yang tak terlampiaskan ..
Sampai pada saatnya nanti ..
Mereka jatuh terkapar dan mati ..
Tapi dimana cahaya kehidupan ..
Tak ada yang lain ..
Hanya ada jutaan bangkai gagak ..
Berserakan berbau amis dan busuk ..
aaahh..bau busuk kehidupan ..
Menyusup menebar kesudut-sudut kota ..
Dan kita menghisapnya ..
"masih Butuh diRimu ibu"
Kemana ku haruz melangkah,,
jalani hidup tanpa mu IBU,,,tetaplah bersama ku,,,
IBU,,,IBU,,,
ku rasa aku tak bisa melangkah tanpa mu,,,
tanpa mu aku merasa melangkah dengan satu kaki,,,
tanpa mu aku merasa melangkah dengan satu kaki,,,
diatas batu-batu krikil yang tajam,,,
sungguh ku tak bisa terbang tanpa mu,,,
sungguh ku tak bisa terbang tanpa mu,,,
berdiri sendiri di atas kejamnya dunia ini,,,
dan kesombongan yang nyata,,,aku mohon peluk aku IBU,,,,
anak mu yang slalu bertingkah,,,
IBU,,,IBU,,,
aku masih butuh kasih mu,,,,
nasehat dari seorang IBU,,,
karena mu IBU,aku dilahirkan,,,,
aku akan slalu sayang IBUNDA selamanya,,,
siraman rohani
Sekalipun hamparan
piramida-piramida mesir
dan julangan gedung-gedung
penggdor langit dikeriuhan new york
telah dimusnahkan
dari permukaan bumi,
namun kupu-kupu
akan senantiasa setia
untuk berkelepak diatas leladangan
dan embun-embun
akan terus menebarkan kemilau mutiaranya ditubuh rerumputan.
Manusia yg paling mulia
ialah orang yg merona penuh malu
manakala engkau melambungkannya
dngn sanjungan-sanjungan
dan hanya bungkam dlm kebisuan manakala engkau merendahkannya
dgn caci-maki penghinaan.
Langganan:
Postingan (Atom)