Contoh2: Contoh program Pascal untuk Menghitung Gaji program hitung_gaji; uses crt; var nama_karyawan: string; alamat:string; gaji_pokok,tunjangan,pajak,gaji_bersih:comp; begin writeln ('menghitung gaji bersih karyawan'); write ('nama karyawan:');readln (nama_karyawan); write ('alamat:');readln (alamat); write ('gaji pokok:');readln (gaji_pokok); AlgoritmaProgram. Berikut ini algoritma program untuk menentukan bilangan ganjil atau genap dengan bahasa C dan C++: Deklarasi variabel angka; Input angka; Angka dibagi dengan 2. Jika sisa baginya 0, maka angka yang diinputkan termasuk bilangan genap. Dan jika tidak maka angka yang diinputkan termasuk bilangan ganjil IFMOD (BIL,2)=0 THEN = "MOD "digunakan untuk operasi pembagian untuk menentukan bilangan yang dihasilkan apakah genap atau ganjil. (BIL,2)=0, jika angka yang di definiskan dengan variabel BIL habis dibagi 2 sama dengan 0, maka akan termasuk kedalam bilangan genap, dan selain daripada itu maka termasuk kedalam bilangan ganjil. cash. 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. Sebagai Mahasiswa Pantang menyerah sebelum tuntas tugas yang diberikan dosen iya walaupun banyak sekali godaan diajakin kawan liburan..^_^ Oke kali ini akan saya share coding bagaimana Menampilkan Bilangan ganjil dengan menggunakan Pascal… Cus.. Menampilkan Bilangan Ganjil 1 – 20. program no_3; uses crt; var iinteger; begin clrscr; write ***** MENAMPILKAN BILANGAN GANJIL 1 – 20 *****’; writeln; writeln; for i= 1 to 20 do begin if i mod 2 = 1 then begin write ,i; end; end; readln; end. Hasil Akhir download *.docx coding diatas ~> Menampilkan Bilangan Ganjil Assalamualaikum..wr..wb.. pada kesempatan kali ini kita akan membahas tentang cara membuat program menentukan jenis bilangan apakah bilangan itu genap atau ganjil menggunakan aplikasi pascal , oke kita langsung saja ke tkp.... seperti tutorial sebelumnya tmen2 buka aplikasi pascal temen2, lalu pilih menu bar "FILE", pilih "NEW". setelah itu temen2 tinggal ketik kede di bawah ini... Program Menentukan_Jenis_Bilangan; uses crt; Var bil integer; Begin writeln'MENENTUKAN JENIS BILANGAN'; write'Masukkan angka ';readlnbil; if bil mod 2 = 0 then writeln'Bilangan Genap' else writeln'Bilangan Ganjil'; readln; End. setelah itu tekan CTRL+F9, maka hasil nya seperti ini Flowchart Demikian tutorial Membuat Program menentukan jenis bilangan dengan aplikasi Pascal, mudah-mudahan bermanfaat dan terima kasih atas kunjungannya. Wassalamualaikum

cara membuat program bilangan ganjil dengan pascal