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 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 Berikutadalah source code programnya dengan bahasa pemrograman Matlab. x = input('Masukkan nilai : '); nilai = mod(x,2); if nilai==0 for i = 1:5 ('Nilai adalah bilangan Genap') end else for i=1:5 ('Nilai adalah bilangan Ganjil') end end Sedangkan dengan bahasa pemrograman Pascal adalah sebagai berikut: Program bilganjil; uses crt; var j : integer; begin Lihattampilan di atas ??? gampang kan ??? keliatannya gampang.. tapi gimana coba logikanya ?? permasalahannya begini. masukkan nilai awal dan akhir.. terserah mau genap atau ganjil. setelah itu di suruh tampilkan bilangan genap saja dengan tanda + yang memisahkan. sampai itu masih gampang. nah, yang susahnya liat tanda = di akhir. dan setelah tanda = itu harus tampil total keseluruhan angka genap yang ada diantara angka yang kita input tadi. disinilah diriku sudah angkat tangan. koding Algoritmaprogramnya adalah sebagai berikut: Mulai Deklarasi variabel pil dan batas Masukan pilihan (1: ganjil dan 2: genap) Masukan Batas deret bilangan yang akan ditampilkan Cek jika pilihan yang dimasukan 1 maka akan menampilkan kalimat 'Deret Bilangan Ganjil' dengan menampilkan deret bilangan ganjil sampai pada batas bilangan yang ditentukan 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); 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. BvwYMQo. 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 Result for Latihan Program Pascal Membuat Deret Angka Ganjil Genap TOC Daftar IsiLatihan Program Pascal Membuat Deret Angka Ganjil Genap - DuniailkomOct 11, 2022 Soal Membuat Deret Angka Ganjil / Genap. Buatlah kode program dalam bahasa Pascal yang menampilkan deret angka genap atau ganjil dengan 4 variasi berikut deret mulai dari angka 1 Buatlah x deret angka genap, dimana x diinput oleh user. Buatlah x deret angka ganjil, dimana x diinput oleh Membuat Deret Dalam Bahasa Pascal DuniailkomNov 11, 2016 Contoh Kode Program Membuat Deret Dalam Bahasa Pascal. Deret adalah sebutan untuk angka berulang dengan aturan tertentu. Bisa jadi angka itu naik dengan kelipatan 9, atau angka itu turun dengan selisih yang Program Pascal Menentukan Bilangan Ganjil Genap - DuniailkomOct 10, 2022 Soal Menentukan Bilangan Ganjil Genap. Buatlah kode program dalam bahasa Pascal untuk menampilkan apakah sebuah bilangan yang diinput oleh user itu ganjil atau genap. Program meminta 1 inputan angka bulat dan menampilkan hasil Ganjil atau Genap. Contoh hasil kode program 1Latihan Kode Program Pascal Membuat Deret Angka GanjilOct 11, 2022 Latihan Kode Program Pascal - Membuat Deret Angka GanjilPascal Cara Membuat Deret Bilangan Ganjil dan Genap - Oke GuruJun 20, 2014 Kali ini saya coba sharing cara membuat aplikasi program pascal untuk menentukan deret bilangan ganjil dan genap yang ke-x. Artinya x adalah urutan bilangan yang ke sekian. Untuk menentukan deret ganjil dan genap ditentukan oleh nilai a, yaitu nilai awal bilangan Kode Program Pascal Membuat Deret Angka Genap dengan Oct 11, 2022 Latihan Kode Program Pascal - Membuat Deret Angka Genap dengan jangkauanPascal Cara Membuat Deret Bilangan Ganjil dan GenapJun 20, 2014 Kali ini saya coba sharing cara membuat aplikasi program pascal untuk menentukan deret bilangan ganjil dan genap yang ke-x. Artinya x adalah urutan bilangan yang ke sekian. Untuk menentukan deret ganjil dan genap ditentukan oleh nilai a, yaitu nilai awal bilangan Program Pascal Membuat Deret Angka Ganjil GenapLatihan Kode Program Pascal Menentukan Bilangan Ganjil Genap. Oct 11, 2022 Soal Membuat Deret Angka Ganjil / Genap. Buatlah kode program dalam bahasa Pascal yang menampilkan deret angka genap atau ganjil dengan 4 variasi berikut deret mulai dari angka 1 Buatlah x deret angka genap, dimana x diinput oleh Program Pascal Menentukan Bilangan Ganjil GenapOct 11, 2022 Contoh soal dan latihan kode program bahasa Pascal kali ini membahas cara membuat deret bilangan dalam bentuk deret ganjil atau deret genap. Latihan ini menguji pemahaman seputar kondisi if else, operator aritmatika modulus, dan perulangan Pascal Membuat Deret Angka Ganjil -Genap - YouTubeAbout Press Copyright Contact us Creators Advertise Developers Terms Privacy Press Copyright Contact us Creators Advertise Developers Terms PrivacyLatihan Program Pascal Menentukan Bilangan Ganjil GenapOct 11, 2022 Buatlah kode program dalam bahasa Pascal yang menampilkan deret angka genap atau ganjil dengan 4 variasi berikut deret mulai dari angka 1 Buatlah x deret angka genap, dimana x diinput oleh user. Buatlah x deret angka ganjil, dimana x diinput oleh user. Buatlah deret angka genap antara x dan y, dimana x dan y diinput oleh Kode Program C++ Membuat Deret Angka Ganjil Genap - DuniailkomOct 28, 2021 Buatlah kode program C++ yang menampilkan deret angka genap atau ganjil dengan 4 variasi berikut deret mulai dari angka 1 Buatlah x deret angka genap, dimana x diinput oleh user. Buatlah x deret angka ganjil, dimana x diinput oleh user. Buatlah deret angka genap antara x dan y, dimana x dan y diinput oleh Kode Program Python Deret Angka Ganjil Genap - DuniailkomNov 3, 2022 Latihan Kode Program Python Deret Angka Ganjil Genap. Contoh soal dan latihan kode program bahasa Python kali ini membahas cara membuat deret bilangan dalam bentuk deret ganjil atau deret genap. Latihan ini menguji pemahaman seputar kondisi if else, operator aritmatika modulus, dan perulangan Program Menentukan Deret Aritmatika Bilangan Bilangan GanjilJun 20, 2014 Pascal Program Menentukan Deret Aritmatika Bilangan Bilangan Ganjil. Menentukan deret aritmatika pada deret bilangan ganjil adalah salah satu implementasi saja pada konsep Deret Aritmatik. Kali ini CMW mencoba untuk membuat programnya dalam bahasa pemograman Program Bahasa C Membuat Deret Angka Ganjil Genap - DuniailkomSep 11, 2022 Contoh soal dan latihan kode program bahasa C kali ini membahas cara membuat deret bilangan dalam bentuk deret ganjil atau deret genap. Latihan ini menguji pemahaman seputar kondisi if else, operator aritmatika modulus, dan perulangan Membuat Program Pascal Menentukan Bilangan Ganjil GenapLatihan Program Pascal Membuat Deret Angka Ganjil Genap Oct 11, 2022 Buatlah kode program dalam bahasa Pascal yang menampilkan deret angka genap atau ganjil dengan 4 variasi berikut deret mulai dari angka 1 Buatlah x deret angka genap, dimana x diinput oleh Program Menampilkan Deret Bilangan Ganjil Genap 2021 - subscribers. 24. Tutor kali ini sa akan membuat code untuk menampilkan deret bilangan ganjil atau genap dengan batasan yang ditentukan oleh pengguna. Semoga tutor ini manfaat buat orang yang ...CARA MEMBUAT PROGRAM PASCAL MENENTUKAN BILANGAN GANJIL GENAPLINK DOWNLOAD APLIKASI DAN SCREENSHOT LIST STATEMENT Kode Program C++ Membuat Deret Angka DuniailkomNov 25, 2020 Angka input bisa disimpan ke dalam satu variabel integer, kemudian buat perulangan untuk menampilkan deret. Kunci utama dari kode program membuat deret ada di pola matematika, apakah itu deret penambahan, deret perkalian, atau kombinasi dari keduanya. Jika rumus deret sudah didapat, akan mudah untuk membuat kode Membuat Program Sederhana "Menentukan Deret Angka Ganjil dan Mar 19, 2020 Tutorial Membuat Program Sederhana "Menentukan Deret Angka Ganjil dan Genap" dengan menerapkan konsep struktur perulangan For...NextSelamat mencobaProgram Menentukan Bilangan Genap Atau Ganjil Pada PascalLatihan Program Pascal Menentukan Bilangan Ganjil Genap Program menentukan Bilangan Ganjil dan Genap pada Pascal Latihan Kode Program Pascal Menentukan Bilangan Ganjil Genap Latihan Program Pascal Membuat Deret Angka Ganjil Genap Program Pascal Menentukan Bilangan Genap atau Ganjil ... - BloggerContoh Program Pascal Menentukan Bilangan Ganjil Atau GenapLatihan Program Pascal Membuat Deret Angka Ganjil Genap. Oct 11, 2022 Buatlah kode program dalam bahasa Pascal yang menampilkan deret angka genap atau ganjil dengan 4 variasi berikut deret mulai dari angka 1 Buatlah x deret angka genap, dimana x diinput oleh user. ...Program menentukan Bilangan Ganjil dan Genap pada PascalDec 18, 2016 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 Keywords For Latihan Program Pascal Membuat Deret Angka Ganjil Genap For You Gua pernah baca kalo pascal itu di buat karena bahasa c terlalu sulit untuk di pelajari untuk . Menampilkan bilangan ganjil dari angka 1 s/d 100. Kali ini saya akan membagikan cara untuk membuat deret bilangan ganjil dengan menggunakan bahasa pemrograman pascal. Bilangan genap adalah bilangan yang habis dibagi . Program tersebut adalah program untuk menampilkan deretan bilangan ganjil dan genap yang dimulai dari 1 s/d 5, tapi jika anda tidak ingin . Cara Membuat Program Penentu Angka Prima dari Bahasa C from Kemudian translasikan algoritma tersebut dalam bahasa pascal. Gua pernah baca kalo pascal itu di buat karena bahasa c terlalu sulit untuk di pelajari untuk . Kali ini saya akan membagikan cara untuk membuat deret bilangan ganjil dengan menggunakan bahasa pemrograman pascal. Menampilkan bilangan ganjil dari angka 1 s/d 100. Contoh if bersarang menentukan bilangan ganjil genap Bilangan genap adalah bilangan yang habis dibagi . Untuk i = 1 sampai 100 lakuka. Beri nilai a = 2. Yap, dalam artikel kali ini saya ingin berbagi tutorial membuat program generator segitiga pascal dengan . Yap, dalam artikel kali ini saya ingin berbagi tutorial membuat program generator segitiga pascal dengan . Untuk i = 1 sampai 100 lakuka. Kemudian translasikan algoritma tersebut dalam bahasa pascal. Bilangan genap adalah bilangan yang habis dibagi . Gua pernah baca kalo pascal itu di buat karena bahasa c terlalu sulit untuk di pelajari untuk . Contoh if bersarang menentukan bilangan ganjil genap {mencetak pesan jenis bilangan ganjil atau genap dari data yang . Bila program ini dijalankan dengan run, dengan cara menekan tombol Kali ini saya akan membagikan cara untuk membuat deret bilangan ganjil dengan menggunakan bahasa pemrograman pascal. Cara membuat program menentukan bilangan ganjil atau genap di bahasa pemograman c++. Program 2 menentukan bilangan ganjil, genap dan prima. Beri nilai a = 2. Program tersebut adalah program untuk menampilkan deretan bilangan ganjil dan genap yang dimulai dari 1 s/d 5, tapi jika anda tidak ingin . Program tersebut adalah program untuk menampilkan deretan bilangan ganjil dan genap yang dimulai dari 1 s/d 5, tapi jika anda tidak ingin . Bilangan genap adalah bilangan yang habis dibagi . Menampilkan bilangan ganjil dari angka 1 s/d 100. Kali ini saya akan membagikan cara untuk membuat deret bilangan ganjil dengan menggunakan bahasa pemrograman pascal. Untuk i = 1 sampai 100 lakuka. Cara Membuat Program Penentu Angka Ganjil atau Genap dari from Beri nilai a = 2. Menampilkan bilangan ganjil dari angka 1 s/d 100. Program tersebut adalah program untuk menampilkan deretan bilangan ganjil dan genap yang dimulai dari 1 s/d 5, tapi jika anda tidak ingin . Cara membuat program menentukan bilangan ganjil atau genap di bahasa pemograman c++. Untuk i = 1 sampai 100 lakuka. Bilangan genap adalah bilangan yang habis dibagi . Yap, dalam artikel kali ini saya ingin berbagi tutorial membuat program generator segitiga pascal dengan . Program 2 menentukan bilangan ganjil, genap dan prima. Kali ini saya akan membagikan cara untuk membuat deret bilangan ganjil dengan menggunakan bahasa pemrograman pascal. Bilangan genap adalah bilangan yang habis dibagi . Untuk i = 1 sampai 100 lakuka. Kali ini saya akan membagikan cara untuk membuat deret bilangan ganjil dengan menggunakan bahasa pemrograman pascal. Bila program ini dijalankan dengan run, dengan cara menekan tombol Contoh if bersarang menentukan bilangan ganjil genap Beri nilai a = 2. Kemudian translasikan algoritma tersebut dalam bahasa pascal. Gua pernah baca kalo pascal itu di buat karena bahasa c terlalu sulit untuk di pelajari untuk . Menampilkan bilangan ganjil dari angka 1 s/d 100. {mencetak pesan jenis bilangan ganjil atau genap dari data yang . Program tersebut adalah program untuk menampilkan deretan bilangan ganjil dan genap yang dimulai dari 1 s/d 5, tapi jika anda tidak ingin . Program 2 menentukan bilangan ganjil, genap dan prima. Cara membuat program menentukan bilangan ganjil atau genap di bahasa pemograman c++. Kemudian translasikan algoritma tersebut dalam bahasa pascal. Bila program ini dijalankan dengan run, dengan cara menekan tombol Gua pernah baca kalo pascal itu di buat karena bahasa c terlalu sulit untuk di pelajari untuk . Kali ini saya akan membagikan cara untuk membuat deret bilangan ganjil dengan menggunakan bahasa pemrograman pascal. Untuk i = 1 sampai 100 lakuka. Flowchart dan Pseudocode - PROGRAMMING LOGIC from Bilangan genap adalah bilangan yang habis dibagi . Menampilkan bilangan ganjil dari angka 1 s/d 100. Cara membuat program menentukan bilangan ganjil atau genap di bahasa pemograman c++. {mencetak pesan jenis bilangan ganjil atau genap dari data yang . Gua pernah baca kalo pascal itu di buat karena bahasa c terlalu sulit untuk di pelajari untuk . Kemudian translasikan algoritma tersebut dalam bahasa pascal. Contoh if bersarang menentukan bilangan ganjil genap Beri nilai a = 2. Bilangan genap adalah bilangan yang habis dibagi . Program 2 menentukan bilangan ganjil, genap dan prima. Cara membuat program menentukan bilangan ganjil atau genap di bahasa pemograman c++. Beri nilai a = 2. Untuk i = 1 sampai 100 lakuka. Yap, dalam artikel kali ini saya ingin berbagi tutorial membuat program generator segitiga pascal dengan . Kali ini saya akan membagikan cara untuk membuat deret bilangan ganjil dengan menggunakan bahasa pemrograman pascal. Menampilkan bilangan ganjil dari angka 1 s/d 100. Gua pernah baca kalo pascal itu di buat karena bahasa c terlalu sulit untuk di pelajari untuk . Bilangan genap adalah bilangan yang habis dibagi . Bila program ini dijalankan dengan run, dengan cara menekan tombol Program tersebut adalah program untuk menampilkan deretan bilangan ganjil dan genap yang dimulai dari 1 s/d 5, tapi jika anda tidak ingin . {mencetak pesan jenis bilangan ganjil atau genap dari data yang . Contoh if bersarang menentukan bilangan ganjil genap Cara Membuat Program Bilangan Ganjil Dengan Pascal / Flowchart dan Pseudocode - PROGRAMMING LOGIC Bilangan genap adalah bilangan yang habis dibagi .. Kali ini saya akan membagikan cara untuk membuat deret bilangan ganjil dengan menggunakan bahasa pemrograman pascal. Program tersebut adalah program untuk menampilkan deretan bilangan ganjil dan genap yang dimulai dari 1 s/d 5, tapi jika anda tidak ingin . Bila program ini dijalankan dengan run, dengan cara menekan tombol Untuk i = 1 sampai 100 lakuka. Cara membuat program menentukan bilangan ganjil atau genap di bahasa pemograman c++. Berikut merupakan Program untuk menentukan angka ganjil dari 1 hingga 50 menggunakan bahasa Pascal dengan menunggangi statement FOR. SOURCE CODE Program menentukan_angka_ganjil_dari_1_hingga_50; uses crt; var x, k integer; begin clrscr; writeMasukkan ponten ;readlnx; for k = 1 to x do if k mod 2 = 1 and x <= 50 then writek,’ ; k = k + 1; readkey; end. PENJELASAN SOURCE CODE Program menentukan_angka_ganjil_dari_1_hingga_50; {Judul program} uses crt; {Deklarasi unit CRT} var {Variabel} x, k integer; {Penobatan plastis} begin {Semula instruksi programa} clrscr; {Membersihkan layar} writeMasukkan poin ; {Cetak Masukkan biji } readlnx; {Baca variabel x} for k = 1 to x do {Memulai pengulangan sesuai dengan banyaknya jumlah angka yang di input di variabel x} if k mod 2 = 1 and x <= 50 then {Jika k ampas cak bagi 2 = 1 dan x makin mungil = 50 maka} writek,’ ; {Cetak fleksibel k} readkey; {Instruksi untuk menunggu} end. {Intiha instruksi program} PRINT SCREEN OUTPUT Bagi mempermuda anda dalam mempelajari pemograman dengan menggunakan bahasa Pascal, admin mutakadim menyediakan file Source code, Penjelasan source code, Output program, Flowchart pecah source code, serta file pascalnya. Anda dapat mendownloadnya secara gratis di link download di dasar ini. Title Program Menentukan bilangan gasal terbit 1 sampai 50 Source Code .pdf ._Download_. Flowchart .png ._Download_. Program .pas ._Download_. Password Jika engkau tak tahu bagaimana kaidah mendownload file-file diatas klik Disini , kerjakan mempelajarinya. Source Kembali lagi kali ini saya ingin membagikan 10 contoh program pascal sederhana yang cukup lengkap meliputi materi-materi umum yang kita pelajari di bahasa pemrograman pascal seperti program runtunan, percabangan, perulangan, array larik, serta prosedur atau fungsi. Contoh-contoh program ini saya buat dan jalankan melalui aplikasi pascal compiler secara online di Semoga bisa menjadi bahan belajar referensi teman-teman untuk mengerjakan soal atau tugas dalam matakuliah algoritma dasar dengan pemrograman pascal. Program Menghitung Luas Persegi PanjangProgram Menghitung Luas LingkaranContoh Program Pascal Struktur CaseContoh Program Percabangan IF ELSEContoh Perulangan Repeat UntilProgram Perulangan For DoMenghitung Nilai Rata-rata Menggunakan ArrayContoh Penggunaan Function di PascalContoh Program Penjualan BarangProgram Pascal Menghitung Gaji Karyawan Program Menghitung Luas Persegi Panjang program Luas_Persegi_Panjang; var panjang integer; lebar integer; luas integer; begin write 'Masukan Panjang = ';readpanjang; write 'Masukan Lebar = ';readlebar; luas=panjang*lebar; writeln'Luas Persegi panjang = ',luas; end. Contoh program pascal sederhana yang pertama yaitu untuk menghitung luas persegi panjang termasuk program runtunan atau biasa disebut sekuensial dalam algoritmanya instruksi akan di laksanakan baris per baris sesuai urutannya dari atas kebawah. Pada bagian var dideklarasi variabel panjang, lebar dan luas masing-masing bertipe integer bilangan bulat. Pada bagian begin kita buat perintah untuk memasukan nilai panjang dan lebar yang di tampung pada variabel panjang dan lebar yang sudah kita deklarasikan diatas. Program akan menghitung luas sesuai rumus panjang * lebar lalu kemudian hasilnya akan di tampilkan. Program Menghitung Luas Lingkaran program Luas_Lingkaran; const pi= var r real; luas real; begin write 'Masukan Jari-jari = ';readr; luas=pi*r*r; writeln'Luas = ',luas42; end. Program yang kedua juga masih mengimplementasi struktur dasar algoritma runtunan untuk menghtiung luas lingkaran. Dengan konstanta phi 3,14 dan variabel r dan luas dengan tipe data real bilangan pecahan. Pengguna akan memasukan jari-jari r lalu program akan menghitung sesuai rumus luas lingkaran luas=pi*r*r; Pada instruksi terahir program akan menampilkan hasil luas lingkaan dengan forma angka 42 maksudnya adalah program akan mencetak 4 angka maksimal sebelum tanda koma atau pemisah antara nilai desimal, nilai desimalnya adalah 2 angka di belakang koma. Contoh Program Pascal Struktur Case program struktur_Case; var grade char; begin grade= 'A'; case grade of 'A' writeln'Luar biasa!' ; 'B' writeln'Bagus' ; 'C' writeln'Cukup' ; 'D' writeln'Kurang' ; 'F' writeln'Coba Lagi' ; else writeln'Grade nilai salah'; end; end. Program ketiga kita sudah menggunakan algoritma percabangan atau pemilihan yang mana kita menggunakan struktur case. Struktur case akan membandingkan suatu nilai dengan setiap ekspresi yang terdapat dalam struktur case tersebut. Pada contoh diatas grade A’ akan di bandingkan dengan setiap ekspresi pada struktur case jika ada ekspresi yang sama dengan nilai grade maka instruksi dalam ekspresi tersebut akan dikerjakan. Hasil output program diatas adalah Luar Biasa!’ karena grade A’ terdapat ekspresi A’ yang akan mencetak kalimat Luar Biasa!’. Contoh Program Percabangan IF ELSE program Percabangan_1; var bil integer; begin write 'Masukan Bilangan ';readbil; if bil mod 2 = 0 then begin writeln 'Bilangan Genap'; end else begin writeln 'Bilangan Ganjil'; end; end. Program keempat juga masih menggunakan struktur algoritma percabangan dengan menggunakan percabangan if else. Percabangan if else merupakan percabangan yang akan mengerjakan suatu instruksi jika kondisi bernilai benar true, sedangkan jika salah false maka instruksi di dalam blok else yang akan dikerjakan. Sebagai contoh diatas kita membuat program untuk menentukan suatu bilangan yang dimasukan merupakan bilangan genap atau ganjil. dengan parameter kondisi yang ditetapkan adalah jika bil modulus 2 menghasilkan nilai 0 maka dapat dipastikan bahwa bilangan tersebut adalah bilangan genap, sedangkan jika hasilnya bukan 0 berarti bilangan tersebut adalah bilangan genap. Sebagai contoh jika bilangan yang kita masukan adalah 3 maka kondisi pasti akan bernilai false sehingga instruksi di dalam blok else yang akan dikerjakan. Contoh Perulangan Repeat Until program repeat_until; var i,n integer; begin i= 1; write'Mencetak angka 1 sampai ke-N ';readn; repeat begin writelni; i= i + 1; end; until i > n; end. Program yang kelima tentang perulangan repeat until. Perulangan ini akan mengerjakan minimal satu kali iterasi kemudian kondisi akan di cek pada bagian akhir. Misalnya pada contoh diatas nilai N yang dimasukan adalah 5 maka perulangan akan dilakukan dari nilai i=1 kemudian nilai i akan ditambah 1 selama proses iterasi berjalan. selama nilai i= 1000000 then begin diskon= end else if total >= 500000 then begin diskon= end else if total >= 250000 then begin diskon= end; tot_bayar=total-total*diskon; writeln'Sub total ',total; writeln'Potongan ',total*diskon00; writeln'Total Bayar ',tot_bayar00; end. Program yang kesembilan mengenai contoh program pascal sederhana tentang penjulan barang yang merupakan program runtunan namun di dalamnya sudah menggunakan struktur pemilhan/percabangan. Untuk lebih lengkapnya silahkan baca pada artikel contoh program pascal tentang penjualan barang. Program Pascal Menghitung Gaji Karyawan program menghitung_gaji_karyawan; var jum, gol, jkerja, jlembur, gapok, glembur, tun_pengabdian longint; pajakgapok, pajaklembur, totpajak,gajibersih real; begin gapok=0; tun_pengabdian=0; write'Masukan golongan ';readgol; write'Masukan jam kerja ';readjkerja; case gol of 1 begin gapok=1486500; tun_pengabdian=250000; end; 2 begin gapok=1926000; tun_pengabdian=300000; end; 3 begin gapok=2456700; tun_pengabdian=350000; end; 4 begin gapok=2899500; tun_pengabdian=400000; end; end; if jkerja>173 then begin jlembur=jkerja-173; end else begin jlembur=0; end; glembur=jlembur*20000; pajakgapok= pajaklembur= totpajak=pajakgapok+pajaklembur; gajibersih=gapok+tun_pengabdian+glembur-totpajak; writeln'Gaji Pokok ',gapok; writeln'Gaji Lembur ',glembur; writeln'Pajak Gaji Pokok ',pajakgapok46; writeln'Pajak Lembur ',pajaklembur46; writeln'Total Pajak ',totpajak46; writeln'Tunjangan Pengabdian ',tun_pengabdian; writeln'Gaji Diterima ',gajibersih46; end. Program yang terakhir tentang penggajian karyawan, program ini juga diimplementasi dari algoritma sekuensial. Untuk penjelasan mengenai aturan dan flowchart sudah saya bahas pada artikel contoh program pascal menghitung gaji karyawan.

cara membuat program bilangan ganjil dengan pascal