12.5.12

KEMAJUAN = KEMUNDURAN ??


Hmm.,.,!! Benarkah kemajuan = kemunduran??.

Seperti yang kita ketahui sekarang adalah jaman modern , dimana semuanya serba canggih dan segala kebutuhan yang kita inginkan dapat kita temukan dengan mudah. Yang tadinya dalam menumpuh perjalanan membutuhkan waktu yang begitu lama sekarang menjadi lebih singkat.

Tapi apakah itu benar??

Ya.,meskipun benar semuanya menjadi instatnt tapi ada beberapa sisi negative/dampak dari kemajuan itu sendiri. Seperti semakin banyaknya seseorang membutuhkan waktu yang singkat dalam mencapai tempat yang di tuju, semakin banyaknya pula yang menggunakan kendaraan bermotor dan berakibat semakin panasnya bumi karena banyaknya polusi udara.

Kemudian semakin modern seseorang secara tidak langsung dia menanamkan ke egoisan pada dirinya yang hanya mementingkan diri/kelompoknya sendiri dari pada orang lain. Lalu, munculnya rasa Intantime, dimana seseorang ingin mendapatkan sesuatu yang dia inginkan dengan cara instant bagaimanapun caranya. Hilangnya rasa malu untuk melakukan kesalahan. Serta munculnya primitifisme dan yang terakhir semakin memudarnya budaya-budaya daerah.

Namun itu semua hanyalah sebagian dari beberapa kemunduran-kemunduran dari suatu kemajuan yang saya amati.

Dan pada akhirnya hanya dapat kita kembalikan pada diri kita masing – masing, ingin memandang kemajuan ini sebagai kemunduran atau memandang kemajuan ini yah memang suatu kemajuan yang positif hanya anda yang dapat menentukannnya. !!!



(Riski Nugroho Putra)

10.5.12

STRUKTUR PROGRAM PASCAL


Secara ringkas, struktur suatu program Pascal dapat terdiri dari :

  1. Judul Program 
  2. Tubuh Program 

Tubuh program dibagi menjadi dua bagian utama :

a. Bagian deklarasi

  • deklarasi label 
  • deklarasi konstanta 
  • deklarasi tipe 
  • deklarasi variabel/perubah 
  • deklarasi prosedur 
  • deklarasi fungsi 

b. Bagian Pernyataan/Terproses

1. Judul program

Judul program ini digunakan untuk memberi nama program dan sifatnya optional. Jika ditulis harus terletak pada awal dari program dan diakhiri dengan titik koma (;).

Contoh penulisan judul program :
PROGRAM latihan;
PROGRAM latihan(input,output);
PROGRAM lat_1;
PROGRAM lat_satu(output);

2. Bagian Pernyataan/Terproses

Bagian ini adalah bagian yang akan terproses dan terdapat dalam suatu blok yang diawali dengan BEGIN dan diakhiri dengan END (penulisan END diikuti dengan tanda titik). Bagian ini berisi pernyataan / statamen yang merupakan instruksi program. Setiap statemen diakhiri dengan tanda titik koma (;). Bentuk umumnya adalah sbb :

BEGIN
...
statemen;
statemen;
...
END.

3. Bagian deklarasi

Bagian ini menjelaskan / memperkenalkan secara rinci semua data yang akan digunakan pada suatu program. Dalam penulisannya tidak boleh sama dengan kata-kata cadangan (reserved words) dan selalu diakhiri dengan titik koma (;).

Deklarasi label

Deklarasi label digunakan Jika pada penulisan program akan menggunakan statemen GOTO (untuk meloncat ke suatu statement tertentu).

Contoh :

PROGRAM cetak;
LABEL satu,akhir;
BEGIN
WRITELN('STMIK');
GOTO SATU;
WRITELN('BINA');
satu:
WRITELN('GUNADARMA');
GOTO akhir;
WRITELN('SARANA');
akhir:
END.

Bila program di atas dijalankan, output sbb :

STMIK
GUNADARMA

Deklarasi konstanta

Deklarasi ini digunakan untuk mengidentifikasikan data yang nilainya sudah ditentukan dan pasti, tidak dapat dirubah dalam program.

Contoh :

PROGRAM CETAK_2(OUTPUT);
CONST a = 50; (* selalu menggunakan tanda = *)
b = 'INDONESIA Merdeka';
BEGIN
WRITELN(a,' TAHUN ');
WRITELN(b);
END.

Bila program dijalankan, output sbb :

50 tahun
INDONESIA Merdeka

Deklarasi tipe

Deklarasi ini digunakan untuk menyebutkan tipe setiap data yang akan digunakan pada program Pascal. Tipe data menentukan jangkauan nilai yang mungkin dari data yang digunakan

Contoh :

PROGRAM SATU;
TYPE bulat = INTEGER; { selalu menggunakan = }
hasil,pecahan = REAL;
ket = STRING[20];
BEGIN
pecahan := 2.52;
bulat := 2;
hasil := pecahan + bulat;
ket := 'hasil penjumlahan = ';
WRITE(ket,hasil:4:2);
END.

Output program, sbb : hasil penjumlahan = 4.52

Deklarasi variabel/perubah

Deklarasi ini berisi data-data yang bisa berubah-ubah nilainya di dalam program. Deklarasi variabel harus di letakkan setelah deklarasi tipe (jika ada).

Contoh :

VAR satu : INTEGER;
dua : INTEGER;
a : REAL;
b : REAL; { selalu menggunakan : }
BEGIN
satu := 5;
dua := 4;
a := 2.3;
b := 5+4*2.3; { hasil real }
WRITE('hasil = ',b:4:1);
END.

Output program : hasil = 14.2

Program diatas bisa ditulis sbb :

VAR satu,dua : INTEGER;
a,b : REAL;
BEGIN
...
statement;
...
END.

Contoh jika terdapat deklarasi tipe :

TYPE
bilangan = integer;
VAR
satu,dua,a : bilangan;
b : real;
BEGIN
...
statement;
...
END.

Deklarasi prosedur dan Fungsi

Program dapat dibagi menjadi beberapa bagian/subprogram, yang terdiri dari satu program utama dan satu / lebih program bagian (bisa berupa prosedur / fungsi). Deklarasi prosedure/ fungsi terletak pada subprogram yang menggunakannya.



Sumber : http://achsan.staff.gunadarma.ac.id/Downloads/files/12616/Modul+Pascal.pdf

8.5.12

PASCAL - REPEAT . . UNTIL

Nih...  ada lagy tentang REPEAT . . UNTIL pada PASCAL . langsung saja.,.Cekidot !!!!

Programnya :
Outputnya :
Logikanya :
  1. Pertama ketik “uses crt;” ( gunanya untuk memanggil unit library pada pascal ), lalu ENTER. 
  2. Selanjutnya ketik “var i : integer;”( untuk peberian harga awal bahwa nilai ini adalah integer ). ENTER. 
  3. Kemudian ketik “begin” ( gunanya untuk memulai statement program ), setelah itu ENTER. 
  4. Pada tahap ini ketikan “clrscr;” ( gunanya adalah untuk menghilangkan tampilan program sebelumnya), kemudian ENTER. 
  5. Lalu ketik “i := 0” ( untuk pemberian harga awal ). 
  6. Kemudian masukkan program perulangan “REPEAT … UNTIL”. 
  7. Repeat ( untuk memulai program perulangan ). 
  8. i := i + 1; (untuk pemberian harga awal ). 
  9. Writeln (i); ( untuk menginput nilai i). 
  10. Until i = 5 ; (untuk membertahu jika i samadengan 5 maka program selesai . 
  11. Terakhir ketik “End.” ( untuk mengakhiri program ).
Dari pada pusing - pusing baca Logika saya. Mending langsung coba aja programnya ...!!!

SEMOGA BERMANFAAT....!!!!

PASCAL - FOR . . TO

Nah., kali ini saya menShare FOR . . TO pada PACAL ...!!!! langsung aja ... cekidot .. !!

Programnya :
Outputnya :
Logikanya :


  1. Pertama ketik “uses crt;” ( gunanya untuk memanggil unit library pada pascal ), lalu ENTER. 
  2. Selanjutnya ketik “var k,i : integer;”( untuk peberian harga awal bahwa nilai ini adalah integer ). ENTER. 
  3. Kemudian ketik “begin” ( gunanya untuk memulai statement program ), setelah itu ENTER. 
  4. Pada tahap ini ketikan “clrscr;” ( gunanya adalah untuk menghilangkan tampilan program sebelumnya), kemudian ENTER. 
  5. Lalu ketik “write(‘masukkan deret : ‘);” ( untuk menginput program ). 
  6. Kemudian ketik “readln;” ( gunanya untuk menginput data lewat keyboard ke dalam suatu variable), setelah itu ENTER. 
  7. Kemudian masukkan program perulangan “FOR … DO” : 
  8. For k := 1 to 3 do ( untuk menunjukan bahwa perulangan dilakukan sebanyak 3 kali ) 
  9. Begin ( memulai statemen program perulangan) 
  10. For i := 1 to 3 do ( menunjukan bahwa banyak data program perulangan sebanyak 3 ) 
  11. Write (i); ( untuk menginput nilai i ) 
  12. End; (untuk mengakhiri program perulangan ) 
  13. Terakhir ketik “End.” ( untuk mengakhiri program ).
Dari pada pusing - pusing baca Logika saya . Mending langsung aja coba Programnya .....!!!! 

SEMOGA BERMANFAAT...!!

PASCAL - IF . . THEN 2

Masih ada lagi nih IF . . THEN PASCAL nya... !!! Silahkan dicoba...
Programnya :
Outputnya :
Logikanya :


  1. Pertama ketik “uses crt;” ( gunanya untuk memanggil unit library pada pascal ), lalu ENTER. 
  2. Selanjutnya ketik “var bil : integer;” ( untuk memberi tahu bahwa bil ini adalah integer ). ENTER. 
  3. Kemudian ketik “begin” ( gunanya untuk memulai statement program ), setelah itu ENTER. 
  4. Pada tahap ini ketikan “clrscr;” ( gunanya adalah untuk menghilangkan tampilan program sebelumnya). 
  5. Lalu ketik “write(‘masukkan bilangan : ‘);” ( untuk menginput program ). ENTER. 
  6. Kemudian ketik “readln (nilai);” ( gunanya untuk menginput data lewat keyboard ke dalam suatu variable), setelah itu ENTER. 
  7. Selanjutnya ketik “if (bil < 0 ) then writeln (‘bilangan negatif’)”. (untuk membaca kondisi jika kurang dari nol maka bilangan negatif). 
  8. Dan “else if ( bil > 0 ) then writeln (‘bilangan positif’)”. ( untuk membaca kondisi jika lebih dari nol maka bilangan positif). 
  9. Dan “else writeln (‘bilangan nol’);” ( untuk membaca kondisi jika sama dengan nol maka bilangan nol). 
  10. Kemudian ketik “readln;” ( gunanya untuk menginput data lewat keyboard ke dalam suatu variable), setelah itu ENTER. 
  11. END. ( untuk mengakhiri program ).
Dari pada pusing - pusing baca Logika saya. Mending langsung coba aja programnya. Siapa tau Logika anda lebih baik dari saya...!! hehe..

SEMOGA BERMANFAAT...!!!

PASCAL - IF .. THEN 1

Setelah bergulat dengan Tugas Praktikum yang lumayan bikin cape... !!!
Akhirnya selesai juga.. Kali ini saya akan menShare Hasil dari Tugas Praktikum saya tentang IF.. Then .. pada PASCAL... !!!! cekidot.,..

Programnya : 
Outputnya :
Dan yang ini Logikanya :
  1. Pertama ketik “uses crt;” ( gunanya untuk memanggil unit library pada pascal ), lalu ENTER. 
  2. Selanjutnya ketik “var nilai : integer;” ( untuk memberi tahu bahwa nilai ini adalah integer ). ENTER. 
  3. Kemudian ketik “begin” ( gunanya untuk memulai statement program ), setelah itu ENTER. 
  4. Pada tahap ini ketikan “clrscr;” ( gunanya adalah untuk menghilangkan tampilan program sebelumnya ), kemudian ENTER. 
  5. Lalu ketik “write(‘masukkan nilai : ‘);” ( untuk menginput program ). 
  6. Kemudian ketik “readln (nilai);” ( gunanya untuk menginput data lewat keyboard ke dalam suatu variable), setelah itu ENTER. 
  7. Selanjutnya ketik “if nilai > 70 then writeln (‘lulus’)” ( untuk kondisi jika nilai lebih dari 70 maka lulus). 
  8. Dan “else writeln (‘gagal’);” ( untuk kondisi jika tidak besar dari 70 maka gagal). ENTER. 
  9. Kemudian ketik “readln;” ( gunanya untuk menginput data lewat keyboard ke dalam suatu variable), setelah itu ENTER. 
  10. END. ( untuk mengakhiri program ).
Dari pada kalian pusing - pusing baca Logika saya, lebih baik lang di coba aja Programnya... !! Sapa tau Logika anda lebih baik dari saya....!!! hehe..

SEMOGA BERMANFAAT...!!!

7.5.12

THE SECOND OPTION



Pilihan kedua hmmm….!!!

Banyak sekali orang yang memandang sebelah mata terhadap pilihan kedua ini, bahkan mereka hampir tidak ingin memikirkannya atau mengalaminya. Yahh… mungkin karena dalam pikiran mereka sudah berpikir buruk terhadap pilihan kedua ini.

Hmm…

Padahal tidak selamanya seseorang itu mendapatkan sesuatu yang sesuai dengan keinginannya atau memperoleh tingkat sempurna dalam pilihan pertama. Nah… pilihan kedua ini sangat membantu jika pilihan pertama tidak kita dapatkan. Yah… walaupun itu mungkin tidak sesuai dengan yang kita rencanakan sejak awal. Tapi memikirkan planning terburuk yang akan terjadi adalah tindakan yang bijak dari pada selalu memikirkan kesempurnaan. Yah.. ibarat sedia payung sebelum hujan.

Ingat …!!

Kita adalah manusia biasa yang tidak lepas dari kesalahan.

So….,, Jangan jadi kan pilihan yang kedua itu adalah pilihan yang terpaksa. Karena siapa yang tau dari pilihan kedua itu kita dapat memperoleh kesuksesan bahkan dapat melibihi pilihan pertama. Yah.. asalkan kita sungguh – sungguh dan ikhlas dalam menjalaninya.



( Riski Nugroho Putra)

Sumber gambar : digitalbaca.blogspot.com