MODUL 3: TEKNIK PERCABANGAN (BAGIAN 1)

Percabangan if merupakan sebuah blok program yang menyatakan bahwa sebuah aksi akan dijalankan jika kondisi percabangan dipenuhi, jika tidak dipenuhi maka aksi tidak akan dijalankan. Percabangan if biasa digunakan untuk mengerjakan aksi yang memilik syarat tertentu untuk menjalankannya. Pernyataan if diklasifikasikan ke dalam tiga bagian yaitu:

1. Pernyataan if dengan satu kondisi (if tunggal)
2. Pernyataan if dengan dua kondisi (if-else)
3. Pernyataan if bersarang (if di dalam if)

Pernyataan if tunggal hanya melibatkan satu kondisi yang akan diperiksa. Apabalia kondisi yang diperiksa bernilai benar, maka program akan mengeksekusi bagian yang berada dalam blok. Jika sebaliknya, maka program akan mengabaikan statemen di dalam blok dan langsung melanjutkan eksekusi berikutnya

Pernyataan if dengan dua kondisi (if-else) digunakan untuk menyatakan pernyataan percabangan dua kondisi dimana ada dua blok aksi yang dipilih untuk dikerjakan jika syarat kondisi aksi terpenuhi. Saat pembacaan program sampai pada blok if-else, maka akan dilakukan pemeriksaan terhadap syarat kondisi percabangan yang ada pada deklarasi if, jika syarat dipenuhi maka yang akan dijalankan adalah aksi yang ada di dalam blok if. Tapi jika syarat tidak dipenuhi maka aksi yang dikerjakan adalah yang ada di dlaam blok else

==================================================================

Ok, sebagai latihan di modul 2 ini, aku mau coba menyalin program coding yang ada di halaman 12 modul praktikum,"Menentukan Kubus dan Bukan Kubus dengan If"

==========================================================

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var s1,s2,s3:integer;
begin
write('Program Menentukan Kubus dan Bukan Kubus');
writeln;
writeln;
write('By: I Dewa Gde Ari Wahyudi');
writeln;
writeln;
write('==========================');
writeln;
writeln;
write('Masukkan sisi pertama  : '); readln(s1);
write('Masukkan sisi kedua    : '); readln(s2);
write('Masukkan sisi ketiga   : '); readln(s3);
writeln;
if (s1=s2) and (s2=s3)then
begin
writeln('Termasuk Kubus');
end
else
begin
writeln('Bukan Kubus');
end;
readln;
end.

=============================================================

Penampakan 1

Penampakan 2

MODUL 2: OPERATOR LOGIKA, EKSPRESI RUNTUTAN, TEKNIK RUNTUTAN

Operator adalah simbol atau tanda yang jika diletakkan pada dua buah operand dapat menghasilkan sebuah hasil. Dalam logika, dua kalimat dapat digabungkan dengan operator logika. Operator logika dalam program digunakan untuk melakukan operasi-operasi yang menghasilkan nilai logik (true dan false). Berikut ini empat buah operator logika dalam pascal:

• NOT  : Negasi
• AND  : Konjungsi
• OR   : Disjungsi
• XOR  : Ekslusif Disjungsi

Sebuah expresi merupakan kumpula dari operand-operand yang bersama-sama dengan operator membentuk suatu bentuk aljabar dan menyatakan suatu nilai. Ada dua jenis expresi dalam bahasa pascal, yaitu:

1. Ekspresi numerik/aritmatika : expresi yang menghasilkan nilai numerik/aritmatika
2. Ekspresi Boolean/logika: yaitu suatu expresi yang menghasilkan nilai boolean (true/false)

Struktur runtutan adalah struktur algoritma yang paling sederhana dan mendasar.  Intruksi pada Pascal diporses secara sekuensial atau berkelanjutan. Sebuah program pascal yang lengkap terdiri dari

• Kepala program
• Bagian Deklarasi
• Bagian Pernyataan

Ciri-ciri dari struktur runtutan yang benar:

1. Tiap baris intruksi dikerjakan secara satu-persatu
2. Tidak ada pengulangan untuk setiap baris intruksi
3. Urutan intruksi yang dijalankan harus sama dengan urutan intruksi di algoritma
4. Akhir dari intruksi merupakan akhir dari logaritma

=====================================================

Sekarang saatnya ngerjain latihan. Aku mau buat program yang ada di modul praktikum halaman 9, soal no 2, program untuk menerima masukan Nama, Alamat, Tahun Lahir, dan Tahun Sekarang yang akan menampilkan jumlah usia dari tahun yang dimasukkan.

=====================================================

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
n,a:string;
tl,ts:integer;
begin
write('Program Hitung Umur');
writeln;
writeln;
write('By: Dewa Gde Ari Wahyudi');
writeln;
writeln;
write('========================');
writeln;
writeln;
write('Masukkan Nama Anda         : '); readln(n);
write('Masukkan Alamat Anda       : '); readln(a);
write('Masukkan Tahun Lahir Anda  : '); readln(tl);
write('Masukkan Tahun Sekarang    : '); readln(ts);
writeln;
writeln;
write(' Hai ',n,' alamat anda di ',a,' umur anda sekarang adalah ',ts-tl); readln;
end.

=====================================================

Ini penampakan hasilnya:

Masih di halaman 9, untuk tugas soal no 1, bisa dilihat di PROGRAM MENGHITUNG LUAS SEGITIGA

Selamat mencoba semoga berhasil

MODUL 1 : JENIS-JENIS DATA DAN VARIABEL

Dalam bahasa Pascal terdapat beberapa jenis tipe data yang bisa digunakan untuk sebuah variable atau konstanta pada program. Tipe data tersebut antara lain

a. Tipe Bilangan Bulat

Tipe bilangan bulat terdiri atas· Shortint : jangkauan nilai dari -128 sampai 127

· Integer : jangkauan nilai dari -32768 sampai 32767

· Longint : jangkauan nilai dari -2147483648 sampai 2147483647

· Byte    : jangkauan nilai dari 0 sampai 255

· Word    : jangkauan nilai dari 0 sampai 65535

b. Tipe bilangan lojik

· Boolean : merupakan tipe data yang berisi nilai dengan kemungkinan hanya berupa False (nilai salah) dan True (nilai benar)

c. Tipe bilangan Riil

Tipe riil adalah tipe yang berkaitan dengan segala jenis bilangan pecahan yang membutuhkan ketelitian dengan adanya nilai di belakang koma. Tipe bilangan riil terdiri dari:

· Real     : jangkauan nilai dari ± 2,9 x 10-39 s/d 1,7x1038

· Single   : jangkauan nilai dari ± 5,0 x 10-45 s/d 3,4 x 1038

· Double   : jangkauan nilai dari ± 5,0 x 10-324 s/d 1,7 x 10308

· Extended : jangkauan nilai dari ± 5,0 x 10-4951 s/d 1,1 x 104932

· Comp    : jangkauan nilai dari ± 263 s/d 263 -1 (-9.2x1018 s/d 9.2 x1018)

d. Tipe karakter

· Char : merupakan tipe yang berisi sebuah karakter

e. Tipe string

· String : merupakan pengembangan dari tipe char. Tipe string dapat berupa sederetan karakter.

Aturan-aturan penamaan variabel dalam bahasa Pascal :

• Tidak boleh mengandung spasi, simbol atau tanda.
• Tidak boleh menggunakan kata kunci yang sudah terdapat di dalam bahasa pascal
• Tidak boleh diawali dengan angka.

---------------------------------------------------------------

OK segitu aja materinya, nanti kalau kepanjangan malah gak dibaca hahahahaha. Sekarang saatnya PRAKTEK. Jadi aku mau buat program Biodata, yang ada di modul praktikum halaman 4.

==================================================================

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  nama:string;
  umur:string;
  alamat:string;
begin
write('Program Biodata');
writeln;
writeln;
write('By Dewa Gde Ari Wahyudi');
writeln;
writeln;
writeln('=======================');
writeln;
writeln;
Write('Masukkan Nama Anda   : ');   readln(nama);
Write('Masukkan Umur Anda   : ');   readln(umur);
Write('Masukkan Alamat Anda : '); readln(alamat);
Writeln('  ');
writeln('Nama    : ',nama);
writeln('Umur    : ',umur);
Writeln('Alamat  : ',alamat);
readln;
end.

==================================================================

Berikut penampakannya:

Sekian postingannku mengenai jenis-jenis data dan variabel, sampai bertemu di postingan berikutnya

MODUL 4: TEKNIK PERCABANGAN

Selain pernyataan if dengan dua kondisi, suatu pernyataan if dapat mengandung pernyataan if yang lain. Bentuk seperti ini biasa disebut if bersarang. Sebah program mengijinkan blok percabangan if di dalam blok percabangan lainnya, dan tidak membatasi jenis percabangan apa yang boleh berada dalam percabangan lainnya

Pernyataan case merupakan alternatif dari pernyataan if untuk masalah dengan pilihan berganda. pada masalah tertentu, case lebih memberikan kejelasan daripada if, namun perlu diketahui bahwa semua persoalan yang dapat ditangani dengan case bisa ditangani oleh if, tetapi tidak sebaliknya, Case biasanya digunakan untuk memilih diantara lebih dari 2 pilihan. Case digunakan untuk menggantikan struktur if-else-if dimana kondisinya mengacu pada variabel yang sama.

===================================================================

Jadi yang diatas itu adalah dasar teori mengenai Teknik Percabangan. OK lanjut sekarang saatnya praktek. Disini aku merasa tertantang untuk membuat program setelah membaca soal Tugas no 2 halaman 15 di modul praktikum. Soalnya kayak gini:

"Buatlah program penentuan bonus bagi pembeli berdasarkan total pembelian yang dimasukkan. Dimana kriterianya adalah jika total pembelian lebih dari 100.000 maka pembeli mendapatkan diskon 10%. Jika total pembelian kurang dari 100.000 dan lebih dari 50.000 maka pembeli mendapatkan sebuah piring cantik. Jika total pembelian kurang dari 50.000 dan lebih dari 10.000 maka pembeli mendapatakan sebuah gelas cantik. Selanjutnya jika total pembelian kurang dari 10.000 maka pembeli tidak akan mendapatkan bonus".

Sudahkah anda terbayang pemirsa???? hehehehe,, 

Langsung aja deh, ini code yang udah aku buat:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a: integer;

begin
  write('PROGRAM PENENTUAN BONUS');
  writeln;
  writeln;
  write('By: Dewa Gde Ari Wahyudi');
  writeln;
  writeln;
  write('========================');
  writeln;
  writeln;
  write('Tekan ENTER untuk melanjutkan');  readln;
  writeln;
  write('Masukkan Total Harga Pembelian: '); readln(a);
  if a >= 100000 then
  begin
  Writeln;
  write('Anda Mendapatkan Diskon 10%')
  end
  else if (a <= 100000)and (a >= 50000)
  then
  begin
  writeln;
  write('Anda Mendapatkan Sebuah Piring Cantik')
  end
  else if (a >= 10000) and (a <=50000)
  then
  begin
  writeln;
  write('Anda Mendapatkan Sebuah Gelas Cantik')
  end
  else
  begin
  writeln;
  write('Anda Tidak Mendapatkan Bonus');
end;
readln;
end.

Ini penampakannya pemirsahhhh...

Kalau mau contoh program yang menggunakan teknik percabangan lainnya bisa dilihat disini

Kesan-Kesan Selama Mengikuti Mata Kuliah Algoritma & Pemrograman

Setiap kegiatan, apapun itu, pasti menimbulkan kesan bagi orang yang menjalaninya. Termasuk saat aku belajar pemrograman. Jadi ini kesan-kesan'ku selama belajar pemrograman:

1. Menyenangkan, terutama saat berhasil compile code, dan program yang kita ketik berhasil dijalankan
2. Menegangkan, saat sudah selesai ngetik program dan mau ngompile, itu ada sedikit perasaan tegang, antara mau, tidak, mau, tidak, mau, tidak. Kalau mau ya berarti kembali ke point  no 1, kalau gak mau next ke point no 3.
3. Kecewa, ketika program yang udah selesai diketik, lalu dicompile ternyata error, pasti ada rasa kecewa, apalagi programnya panjang, lalu kita mesti mencari dimana letak kesalahan program yang kita buat, pas udah diperbaikan masih tetap error, gimana gak kecewa?

Selengkapanya bisa dibaca di postinganku sebelumnya "Curahan Hati Seorang Mahasiswa Semester 1 Jurusan Design Grafis"

Curahan Hati Seorang Mahasiswa Semester 1 Jurusan Design Grafis

Namaku I Dewa Gde Ari Wahyudi, teman-teman di kampus biasa manggil aku Yudik atau Dewa. Aku mahasiswa semester 1 di STIKI Indonesia jurusan Design Grafis (TI-DGM). Ini bisa dibilang ceritaku mengenai mata kuliah Algoritma dan Pemrograman. Pertama kali mengikuti mata kuliah Algoritma dan Pemrograman, aku masih ingat, Pak Dody nanya ke mahasiswa-mahasiswa yang ada di kelas "Apa yang ada di pikiran kalian tentang Algoritma?"

Aku yang waktu itu duduk di depan dengan penuh percaya diri menjawab "Matematika Pak". Semula aku pikir Algoritma itu sama dengan Logaritma, makanya aku berani jawab pertanyaan beliau tersebut. Eh ternyata Algoritma dan Logaritma itu beda, sekilas emang sama, iya hampir sama pengucapannya. Tapi Pak Dody gak nyalahin sih mengenai jawabanku itu. karena emang Algoritma agak sedikit nyerempet ke matematika.

Back to the topic, ini mengenai "Curahan Hati Seorang Mahasiswa Semester 1 Jurusan Design Grafis". Sebenarnya aku masih bingung, kenapa aku bisa dapat mata kuliah Algoritma dan Pemrograman, secara gitu, aku kan jurusan Design Grafis, mestinya mata kuliah yang aku dapat ya kayak Design Komunikasi Visual, Videografi, Animasi lah,  nah ini aku malah dapat mata kuliah pemrograman, itu bukannya mata kuliah anak Manajemen???. Nah untungnya aku dapat pencerahan dari kakak kelas, kalau semester 1 sampai semester sekian masih mengikuti kuliah umum, setelah itu baru mata kuliahnya mengarah ke jurusan. Hmmm jadi begitu, oke berarti mau tidak mau harus dijalanin. Eiitttss, kenapa rasanya agak sedikit terpaksa gitu ngejalaninnya. Ya wajar lah, dulu pas di SMK aku ngambil jurusan Multimedia, gak ada tuh yang namanya pemrograman, itu mah makanan sehari-hari anak-anak Rekayasa Perangkat Lunak (RPL). Jadi pemrograman itu benar-benar dunia yang baru bagiku, masih asing, aku benar-benar buta saat itu, belum terbayang apa-apa. Tapi aku langsung berpikir, aku gak mungkin sendirian, pasti ada juga yang merasakan situasi yang sama seperti apa yang sedang aku alami. Jadi aku optimis untuk menghadapai mata kuliah algoritma dan pemrograman.

Nah terus pas pertemuan kedua atau ketiga. Pak Dody menjelaskan tentang flowchart. setelah memberikan penjelasan dan beberapa contoh, beliau ngasi chalange ke mahasiswa, 2 orang yang berhasil membuat flowchart dengan benar dapat nilai keaktifan dan boleh langsung pulang. Oeeeee,, beberapa mahasiswa langsung beresemangat, entah itu karena pengen dapat nilai atau malah pengen pulang, atau kedua-duanya. Entahlah, yang jelas aku langsung buat flowchart dan berharap flowchart yang aku buat itu benar. Pas aku lagi buat malah sudah ada beberapa mahasiswa yang maju ke depan menunjukkan hasil flowchartnya ke Pak Dody, dalam hati ku berkata, woooow hebat benar logikanya, ok abaikan, sambil terus membuat flowchart sesekali aku melihat mahasiswa yang memperlihatkan flowchartnya ke Pak Dody, namun beberapa saat kemudian kembali ke tempat duduknya karena kurang tepat. OK Finish, tiba saatnya aku menunjukan flowchartku ke Pak Dody, percobaan pertama gagal, aku belum menyelesaikan flowchartku sampai tuntas. dan di percobaan kedua flowchart yang aku buat benar, dan berhasil mendapatkan tanda tangan Pak Dody. Oh yeaaahhh,, bagiku ini bukan sekedar tanda tangan, ini ibaratkan penyemangat bagiku untuk terus mempelajari Algoritma dan Pemrograman.

Lanjut ke praktikum pertama. Pak Dody menambah kesan horror dalam belajar pemrograman, dengan membuat aturan seperti ini "Setiap selesai praktikum saya akan memberi kalian tugas untuk dikerjakan di rumah dan dikumpul saat pertemuan praktikum selanjutnya, bagi yang tidak mengumpulkan tugas saya tidak akan memberikin izin untuk mengikuti praktikum". Gimana? lumayan horror kan?. Jadi mau tidak mau ya tiap ada tugas harus dikerjain biar bisa mengikuti praktikum. Sebenarnya maksud dan tujuan beliau dengan memberikan sanksi tegas bagi yang gak ngumpulin tugas itu baik loh, kita itu diminta untuk serius dan gak main-main dalam belajar pemrograman, karena belajar pemrograman emang membutuhkan keseriusan dan latihan berulang-ulang kali, makanya sebelum mengakhiri praktikum Pak Dody pasti selalu memberikan tugas untuk dikerjakan dirumah.

Mengenai tugas-tugas yang sering dikasi sama Pak Dody, baik itu saat teori maupun praktek, aku anggap saja Tugas = Masalah, dan Kuliah = Hidup, Pepatah kan mengatakan gak ada manusia yang hidup tanpa masalah, jadi ya sama saja dengan gak ada mahasiswa yang kuliah tanpa tugas. Dan bagiku tugas itu penting, apalagi kalau tugasnya agak sedikit susah, itu menjadi tantangan tersendiri. Dari kampus pun aku sudah berpikir, "Ah entar sampai rumah, makan dulu, nyalain komputer, buka pascal/delphi, coding". Bahkan, sering juga aku berkomitmen pada diri sendiri "Pokoknya kalo gak berhasil compile code ini aku gak bakalan tidur". Hmmmm,, untungnya waktu itu berhasil, jadi aku bisa tidur nyenyak, besoknya tinggal salin codenya ke Word, printscreen programnya, terus dicetak menggunakan kertas A4, lalu pas praktikum setor ke Pak Dody. Oh yeaahhh kini yang aku rasakan adalah belajar programming itu sangat menyenangkan.

Ini ceritaku tentang belajar pemrograman, bagaiama ceritamu???