Berikutadalah program utama menentukan nilai ganjil atau genap suatu bilangan bulat. Program GenapGanjil; uses crt; Var x : integer ; function Genap (n : integer ) : Boolean ; Begin Genap :=(n mod 2 =0 ); End; Begin Write ('Ketikkan sembarang bilangan bulat : '); readln (x); If Genap (x) then Writeln ('Genap') Else Writeln ('Ganjil'); readln; End. Penjelasan : Merupakantipe data logika, yang berisi dua kemungkinan nilai: TRUE (benar) atau FALSE (salah). Turbo Pascal for Windows memiliki tiga macam jenis ini yaitu: Boolean, WordBool, dan LongBool. Tipe boolean memakai memori paling kecil, sedangkan WordBool dan LongBool dipakai untuk menulis program yang sesuai dengan lingkungan Windows. Dalamtutorial belajar pascal di duniailkom kali ini kita akan membahas cara membuat deret menggunakan bahasa pemrograman pascal. Jika anda sudah mengikuti seluruh tutorial pascal di duniailkom mulai dari part 1 hingga selesai, saya sudah beberapa kali menggunakan contoh pembuatan kode program deret. Disini kita akan ulang kembali agar semakin ProgramMenghitung Luas Persegi Panjang. program Luas_Persegi_Panjang; var panjang : integer; lebar : integer; luas : integer; begin write ('Masukan Panjang = ');read(panjang); write ('Masukan Lebar = ');read(lebar); luas:=panjang*lebar; writeln('Luas Persegi panjang = ',luas); end. Contoh program pascal sederhana yang pertama yaitu untuk ContohProgram Pascal mengurutkan bilangan Selasa, 24 Desember 2013 Contoh Program Pascal mengurutkan bilangan uses wincrt; var A,B,C:integer; Begin Writeln ('Program Menurut Bilangan'); Writeln ('=========================');readln; readln; write ('Masukan Nilai A: ');readln (A); write ('Masukan Nilai B: ');readln (B); 7rW6e. Tutorial Belajar Pascal Part 37 Percabangan Kondisi IF THEN ELSE dalam Pascal 23 Sep 16 Tutorial Pascal Tutorial belajar pascal kali ini merupakan lanjutan dari tutorial sebelumnya. Disini kita akan membahas tentang kode program untuk membuat percabangan, yakni kondisi IF THEN ELSE dalam Pascal. Konsep Dasar Percabangan Kondisi IF THEN ELSE dalam Pascal Pada dasarnya, kondisi IF THEN ELSE adalah tambahan dari kondisi IF THEN. Bagian ELSE digunakan untuk menjalankan kode program apabila sebuah kondisi tidak terpenuhi. Konsep dasar dari percabangan IF THEN ELSE dalam bahasa pemrogram Pascal adalah sebagai berikut IF kondisi THEN begin kode program 1 end ELSE begin kode program 2 end; Jika kondisi terpenuhi, pascal akan menjalankan kode program 1, jika tidak yang akan dijalankan adalah kode program 2. Mari masuk ke contoh kode program Contoh Kode Program Percabangan IF THEN ELSE Pascal Berikut contoh program pertama kita program struktur_if_then_else; uses crt; var angka integer; begin clrscr; angka = 4; if angka > 5 then begin writeln'Variabel "angka" lebih besar dari 5'; end else begin writeln'Variabel "angka" lebih kecil dari 5'; end; readln; end. Saya menggunakan contoh yang mirip seperti yang digunakan pada tutorial tentang IF THEN. Pada awal kode program saya membuat variabel angka dan diisi dengan nilai 4 integer. Kemudian saya memeriksa sebuah kondisi if angka > 5, jika hasilnya TRUE yang artinya isi variabel angka besar dari 5, jalankan writelnVariabel “angka” lebih besar dari 5’. Tapi jika kondisi if angka > 5 menghasilkan nilai FALSE, yang akan dijalankan adalah writelnVariabel “angka” lebih kecil dari 5’. Satu hal yang harus diperhatikan, penutup block sebelum perintah ELSE tidak boleh ada titik koma “ ; ” . Yang kita tulis harus end else, bukan end; else. Jika anda menulis seperti ini, kode program akan error if angka > 5 then begin writeln'Variabel "angka" lebih besar dari 5'; end; else Kesalahan seperti ini, Fatal syntax error, “;” expected but “ELSE” found sangat sering terjadi dalam pembuatan kondisi IF THEN ELSE. Mari masuk ke contoh yang kedua program struktur_if_then_else; uses crt; var angkainteger; begin clrscr; write'Masukkan sebuah angka '; readlnangka; if angka mod 2 = 0 then begin writeln'Angka yang anda masukkan merupakan bilangan genap'; end else begin writeln'Angka yang anda masukkan merupakan bilangan ganjil'; end; readln; end. Kembali, ini adalah modifikasi dari kode program yang saya gunakan pada tutorial IF THEN. Sekarang saya bisa menambahkan 1 blok ELSE ke dalam program “tebak angka”. Jika isi dari variabel angka habis dibagi 2, yakni hasil dari kondisi if angka mod 2 = 0, jalankan perintah writelnAngka yang anda masukkan merupakan bilangan genap’. Selain itu, pasti angka ganjil, sehingga yang akan dijalankan adalah writelnAngka yang anda masukkan merupakan bilangan ganjil’. Dengan strukur IF THEN ELSE, kita bisa membuat percabangan kode program tergantung apakah sebuah kondisi bisa dipenuhi atau tidak. Untuk program yang lebih rumit, kita bisa mengkombinasikan berbagai struktur IF THEN ELSE. Sebagai contoh, bagaimana jika saya ingin memeriksa apakah sebuah angka merupakan angka genap dan kurang dari 5? Kita akan membahas hal ini dalam tutorial selanjutnya Percabangan Kondisi IF Bersarang dalam Pascal nested IF. eBook Pascal Uncover DuniailkomApabila anda serius ingin mempelajari Pascal dan butuh materi Pascal yang jauh lebih lengkap, Duniailkom telah menerbitkan eBook Pascal Uncover yang membahas bahasa pemrograman Pascal dari dasar hingga procedure, function dan contoh kasus. Penjelasan lebih lanjut bisa ke eBook Pascal Uncover Duniailkom. Lanjut ke konten Assalamu’alaikum Wr Wb Selamat datang Kembali di Blog Saya, Sebuah blog sederhana yang saya gunakan untuk berbagi ilmu yang telah saya pelajari selama ini. Semoga bisa membantu teman-teman dalam mencari refrensi terutama dalam bidang pemrograman atau IT. Pada kesempatan hari ini, saya akan memberikan contoh fungsi if pada pascal. Untuk fungsi if, bisa dilihat disini. Beberapa contoh mungkin sudah saya jelaskan pada post sebelumnya, untuk kali ini saya akan memerikan contoh yang lainnya yaitu program menentukan bilangan ganjil dan genap. Untuk membuat program menentukan bilangan ganjil dan genap, kita menamahkan fungsi yang lain yaitu fungsi mod. Mod Berfungsi mencari sisa bagi. penjelasan lengap bisa dilihat disini. Kenapa kita menambahkan fungsi mod..? Karena ciri dari bilangan genap adalah bilangan yang habis di bagi 2. Jadi Bilangan yang jika dibagi 2 tidak ada sisanya atau nol0, maka merupakan bilangan genap. Jika sebaliknya atau ada sisanya, maka itu merupakan bilangan ganjil. Contoh Angka 8. Jika dibagi 2 hasilnya adalah 4. dan gak ada sisanya, maka angka 8 adalah bilangan genap. Contoh lain angka 7. jika dibagi 2, maka hasilnya 3 dan masih ada sisanya yaitu 1. maka angka 7 adalah bilangan ganjil. Untuk source code nya bisa dilihat dibawah ini, PROGRAM JENIS_BILANGAN;{ USES crt; Var bil integer; Begin writeln'MENENTUKAN JENIS BILANGAN'; writeln'**************************'; write'Masukkan angka ';readlnbil; if bil mod 2 = 0 then writeln'Bilangan genap' else writeln'Bilangan ganjil'; readKey; End. Untuk Hasilnya, Bisa dilihat dibwah ini Demikian tadi contoh fungsi if. yaitu program menentukan bilangan gankil dan genap menggunaka bahasa pemrograman pascal, Semoga bermanfaat. Jika ada pertanyaan, bisa ditanyakan lewat komentar, Chat BBM atau WA, ataupun bisa SMS ke nomor saya. Terimakasih atas kunjungannya, Apabila ada salah kata saya mohon ma’af. selamat belajar dan jangan mudah menyerah… Wassalamu’alaikum Wr Wb

cara membuat program bilangan ganjil dengan pascal