Programtersebut adalah Program untuk Menampilkan deretan bilangan ganjil dan genap yang dimulai dari 1 s/d 5, tapi jika anda tidak ingin menampilkan deretan bilangan ganjil dan genap yang tidak dimulai dari 1 atau sampai dengan lima anda tinggal mengubah nilai yang ada pada perulangan For nya..
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.

Sekarangkita akan membuat program pencari bilangan prima dengan bahasa pemrograman pascal. Berikut adalah script untuk membuat program pencari bilangan prima dengan pascal. program bilangan_prima; Uses winCrt; Var a,b,c,x:integer; begin write ('Masukkan Bilangan Prima sampai:'); read (x); for a:=1 to x do begin c:=0; for b:=1 to a do begin

Cara Membuat Program Bilangan Ganjil Dengan Pascal – Programming Pascal dikenal sebagai bahasa pemrograman yang mudah dipelajari. Salah satu cara untuk menggunakan Pascal adalah dengan membuat program bilangan ganjil. Untuk membuat program tersebut, pertama-tama Anda harus membangun struktur dasar dari program Pascal. Ini mencakup menulis pernyataan variabel, menulis konstanta, menulis fungsi dan prosedur, dan menulis algoritma. Kemudian, Anda dapat melakukan kompilasi dan debugging. Pertama, Anda harus mendefinisikan variabel yang akan Anda gunakan dalam program Anda. Variabel tersebut menyimpan bilangan integer yang akan dibandingkan. Sebagai contoh, jika Anda ingin membuat program untuk menentukan bilangan ganjil, Anda harus mendefinisikan dua variabel, yaitu bilangan yang akan dibandingkan dan hasilnya. Kedua variabel tersebut harus ditetapkan sebagai integer. Kemudian, Anda harus mendefinisikan konstanta yang akan Anda gunakan dalam program. Konstanta disebut sebagai nilai konstan yang tidak dapat berubah. Sebagai contoh, jika Anda ingin menentukan bilangan ganjil, Anda harus mendefinisikan konstanta nilai ganjil. Konstanta ini harus ditetapkan sebagai nilai yang sama dengan 1. Berikutnya, Anda harus menulis fungsi dan prosedur yang akan membuat program Anda beroperasi. Fungsi dan prosedur tersebut berfungsi untuk membandingkan dua variabel yang telah Anda tentukan sebelumnya. Dalam program bilangan ganjil, fungsi dan prosedur tersebut akan digunakan untuk membandingkan variabel bilangan yang akan dibandingkan dengan konstanta nilai ganjil. Jika hasil dari pembandingan adalah sama, maka fungsi atau prosedur akan menampilkan hasil nilai ganjil. Terakhir, Anda harus menulis algoritma untuk membuat program Pascal Anda beroperasi. Algoritma tersebut berfungsi untuk mengontrol bagaimana program Anda beroperasi. Algoritma ini harus mencakup prosedur yang Anda tentukan sebelumnya. Jika Anda ingin membuat program bilangan ganjil, algoritma harus menyebutkan bahwa program harus membandingkan variabel dengan konstanta nilai ganjil. Jika hasil dari pembandingan adalah sama, maka program harus menampilkan hasil nilai ganjil. Setelah itu, Anda dapat melakukan kompilasi dan debugging untuk memastikan bahwa program Pascal Anda beroperasi dengan benar. Ini berarti Anda harus memeriksa setiap kode untuk mencari kesalahan dan mencoba mencari solusinya. Setelah program Anda berfungsi dengan benar, Anda dapat menjalankan program Anda dan mulai menggunakannya. Dengan demikian, Anda dapat dengan mudah membuat program bilangan ganjil dengan Pascal. Ini adalah cara yang bagus untuk mempelajari bahasa pemrograman dan membuat program yang berguna. Jadi, mulailah belajar dan cobalah membuat program Pascal Anda sendiri. Daftar Isi 1 Penjelasan Lengkap Cara Membuat Program Bilangan Ganjil Dengan 1. Membangun struktur dasar dari program Pascal, termasuk menulis pernyataan variabel, konstanta, fungsi dan prosedur, serta menulis 2. Mendefinisikan variabel yang akan digunakan dalam program, yaitu variabel untuk menyimpan bilangan integer yang akan 3. Mendefinisikan konstanta yang akan digunakan dalam program, misalnya nilai 4. Menulis fungsi dan prosedur yang akan membandingkan dua variabel yang telah 5. Menulis algoritma untuk mengontrol bagaimana program 6. Melakukan kompilasi dan debugging untuk memastikan bahwa program Pascal beroperasi dengan 7. Menjalankan program dan mulai menggunakannya. Penjelasan Lengkap Cara Membuat Program Bilangan Ganjil Dengan Pascal Membuat program bilangan ganjil dengan Pascal adalah proses yang menggunakan bahasa pemrograman untuk membangun sebuah program yang dapat mencetak bilangan ganjil. Untuk memulai, Anda perlu membangun struktur dasar program Pascal, yang meliputi pengenalan variabel, konstanta, fungsi dan prosedur. Variabel adalah sebuah simbol yang digunakan untuk menyimpan nilai. Konstanta adalah nilai yang tidak dapat diubah. Fungsi adalah sebuah prosedur yang mengembalikan nilai. Prosedur adalah sebuah blok kode yang dapat digunakan untuk melakukan suatu tugas tertentu. Setelah variabel, konstanta, fungsi dan prosedur telah ditetapkan, Anda perlu menuliskan algoritma yang akan digunakan untuk mencetak bilangan ganjil. Algoritma adalah sebuah langkah-langkah yang digunakan untuk menyelesaikan suatu masalah. Dalam hal ini, algoritma akan mengulang proses untuk mencetak bilangan ganjil. Algoritma akan dimulai dari sebuah variabel awal, yang akan ditambahkan dengan dua setiap kali proses diulang. Setelah nilai variabel melebihi nilai batas, proses akan berakhir dan program akan mencetak hasil. Dengan demikian, cara membuat program bilangan ganjil dengan Pascal meliputi membangun struktur dasar dari program, termasuk menulis pernyataan variabel, konstanta, fungsi dan prosedur, serta menulis algoritma yang digunakan untuk mencetak bilangan ganjil. Setelah ini selesai, Anda dapat menguji program untuk melihat apakah outputnya sesuai dengan yang diharapkan. 2. Mendefinisikan variabel yang akan digunakan dalam program, yaitu variabel untuk menyimpan bilangan integer yang akan dibandingkan. Variabel adalah komponen penting dari setiap program. Variabel digunakan untuk menyimpan data yang akan digunakan dalam program. Dalam membuat program bilangan ganjil dengan Pascal, ada beberapa variabel yang harus didefinisikan. Salah satunya adalah variabel untuk menyimpan bilangan integer yang akan dibandingkan. Variabel ini akan digunakan untuk menyimpan bilangan integer yang akan dibandingkan untuk menentukan apakah bilangan tersebut ganjil atau genap. Untuk mendefinisikan variabel, Anda harus menggunakan perintah “var” di awal program. Setelah itu, Anda perlu menentukan nama variabel untuk menyimpan bilangan integer yang akan dibandingkan. Dalam hal ini, Anda dapat memberi nama variabel “bilangan”. Variabel ini akan menyimpan bilangan integer yang akan dibandingkan untuk menentukan apakah bilangan tersebut ganjil atau genap. Selain itu, Anda juga perlu mendefinisikan variabel untuk menyimpan hasil dari pembandingan. Variabel ini akan menyimpan nilai True atau False, tergantung pada apakah bilangan yang dimasukkan adalah ganjil atau genap. Anda dapat memberi nama variabel “hasil”. Variabel ini akan menyimpan hasil dari pembandingan. Dengan menggunakan kode di atas, Anda akan menyatakan bahwa Anda memiliki variabel untuk menyimpan bilangan integer yang akan dibandingkan dan variabel untuk menyimpan hasil dari pembandingan. Dengan menggunakan variabel yang telah didefinisikan, Anda dapat melanjutkan membuat program bilangan ganjil dengan Pascal. 3. Mendefinisikan konstanta yang akan digunakan dalam program, misalnya nilai ganjil. Konstanta adalah variabel yang nilainya selalu tetap. Konstanta akan digunakan untuk memudahkan penulisan program dan untuk menghindari kesalahan input. Konstanta juga dapat digunakan untuk menyimpan nilai yang digunakan secara berkala dalam program. Dalam membuat program bilangan ganjil dengan Pascal, konstanta yang akan digunakan adalah nilai ganjil yang akan dibandingkan dengan nilai yang dimasukkan ke dalam program. Nilai ganjil dapat didefinisikan sebagai suatu nilai yang tidak dapat dibagi habis oleh dua. Untuk mendefinisikan nilai ganjil di dalam program Pascal, kode berikut ini dapat digunakan Const OddValue = 3. Dimana 3 adalah nilai ganjil yang akan digunakan. Konstanta ini akan digunakan untuk membandingkan nilai yang dimasukkan ke dalam program. Jika nilai yang dimasukkan tidak dapat dibagi habis oleh dua, maka program akan mengembalikan nilai true, yang berarti nilai tersebut merupakan nilai ganjil. Konstanta juga dapat digunakan untuk menyimpan nilai yang sering digunakan dalam program. Misalnya, Anda dapat mendefinisikan nilai ganjil yang sering digunakan dalam program sebagai berikut Const OddValue1 = 3; Const OddValue2 = 5; Const OddValue3 = 7. Dengan cara ini, Anda dapat menggunakan nilai-nilai ganjil yang sama di beberapa bagian program tanpa harus menulis ulang kode. Konstanta sangat berguna dalam membuat program bilangan ganjil dengan Pascal. Dengan menggunakan konstanta, Anda dapat dengan mudah mendefinisikan nilai ganjil yang akan digunakan dalam program, menyimpan nilai yang sering digunakan, dan menghindari kesalahan input. 4. Menulis fungsi dan prosedur yang akan membandingkan dua variabel yang telah ditentukan. Setelah menentukan variabel yang akan dibandingkan, langkah selanjutnya adalah menulis fungsi dan prosedur yang akan menggunakan variabel tersebut. Dalam program bilangan ganjil dengan Pascal, fungsi dan prosedur ini akan membandingkan dua variabel yang telah ditentukan. Fungsi akan mengambil nilai dari variabel dan mengembalikan nilai benar’ atau salah’, sementara prosedur akan mengevaluasi nilai dari variabel dan mengubahnya menjadi nilai yang benar atau salah. Fungsi dalam program Pascal didefinisikan menggunakan kata kunci function’ dan dipanggil menggunakan nama fungsi yang telah ditentukan. Fungsi tersebut akan menerima input dari variabel yang telah ditentukan dan mengembalikan output yang berisi nilai benar’ atau salah’. Misalnya, jika kita ingin membandingkan dua variabel A dan B, kita dapat menulis fungsi seperti berikut function bandingkanA,B integer boolean; begin if A > B then result = true else result = false; end; Kemudian, prosedur akan memanggil fungsi tersebut dan mengevaluasi nilai dari variabel yang diberikan. Prosedur ini didefinisikan menggunakan kata kunci procedure’ dan juga dipanggil dengan nama prosedur yang telah ditentukan. Prosedur ini akan mengambil nilai dari variabel dan mengubahnya menjadi nilai yang benar atau salah. Misalnya, jika kita ingin membandingkan variabel A dan B, kita dapat menulis prosedur seperti berikut procedure bandingkanvar A,B integer; begin if bandingkanA,B then A = 1 else A = 0; end; Dengan menggunakan fungsi dan prosedur ini, kita dapat membandingkan dua variabel yang telah ditentukan dan mengubah nilai dari variabel tersebut menjadi nilai yang benar atau salah. Dengan demikian, kita dapat dengan mudah membuat program bilangan ganjil dengan Pascal. Menulis algoritma untuk mengontrol bagaimana program beroperasi merupakan langkah terakhir dalam membuat program bilangan ganjil dengan Pascal. Algoritma ini dapat digunakan untuk menentukan bagaimana program akan menjalankan tugasnya. Algoritma harus mencakup semua langkah yang diperlukan untuk menyelesaikan tugas yang diberikan. Pertama, Anda perlu menentukan variabel yang diperlukan untuk menyelesaikan program. Variabel tersebut akan berisi nilai input dan output yang diberikan. Setelah itu, Anda dapat menulis baris kode yang akan menentukan bagaimana program beroperasi. Baris kode ini harus mengikuti alur logika yang benar dan jelas. Kedua, Anda harus menuliskan kondisi yang harus dipenuhi untuk menghasilkan output yang diinginkan. Kondisi ini harus jelas dan menggambarkan langkah-langkah yang akan dilakukan untuk memenuhi tujuan program. Selain itu, Anda juga harus memastikan bahwa kondisi ini akan memungkinkan program untuk berjalan dengan benar. Ketiga, Anda harus menuliskan kode yang akan mengeksekusi setiap kondisi yang telah ditentukan. Kode ini harus ditulis secara terstruktur dan mudah dimengerti. Setelah itu, Anda dapat menambahkan bagian yang mengontrol bagaimana program akan merespon setiap kondisi. Misalnya, Anda dapat menuliskan kode untuk menghasilkan output yang diinginkan apabila kondisi terpenuhi atau untuk menampilkan pesan error jika kondisi tidak terpenuhi. Keempat, Anda harus menguji program untuk memastikan bahwa program beroperasi dengan benar. Anda dapat melakukannya dengan menjalankan program dan mengecek apakah output yang dihasilkan sama dengan yang diinginkan. Jika ini tidak terjadi, Anda harus mengidentifikasi kesalahan dan memperbaikinya. Kelima, Anda harus mengakhiri program dengan menuliskan kode untuk menghentikan program. Ini akan memastikan bahwa program beroperasi dengan benar sampai akhir. Setelah itu, Anda dapat menyimpan program dan menjalankannya untuk mengujinya. Dengan mengikuti langkah-langkah ini, Anda dapat dengan mudah membuat program bilangan ganjil dengan Pascal. 6. Melakukan kompilasi dan debugging untuk memastikan bahwa program Pascal beroperasi dengan benar. Kompilasi dan debugging merupakan proses penting yang harus dilakukan saat membuat program bilangan ganjil dengan Pascal. Kompilasi adalah tahap dimana kode program Pascal yang ditulis harus dikompilasi ke dalam bahasa mesin yang dapat dipahami oleh komputer. Pada tahap ini, kesalahan yang ada pada sintaksis dan semantik akan terdeteksi. Debugging adalah proses dimana kode program Pascal yang dikompilasi dapat diperiksa dan dimonitor untuk mencari kesalahan logika yang tersirat dalam program. Debugging membantu untuk menemukan dan menghilangkan kesalahan yang ada dalam program. Untuk memastikan bahwa program Pascal beroperasi dengan benar, langkah pertama adalah mengkompilasi kode program. Dengan menggunakan compiler Pascal, kode program akan diubah ke dalam bahasa mesin yang dapat dipahami oleh komputer. Setelah kode program berhasil dikompilasi, langkah selanjutnya adalah melakukan debugging. Dengan menggunakan debugger, kode program dapat ditelusuri satu baris demi satu baris. Debugger dapat membantu untuk menemukan dan menghilangkan seluruh kesalahan logika yang tersirat dalam program. Setelah proses kompilasi dan debugging selesai, program Pascal akan siap untuk dijalankan. Untuk memastikan bahwa program Pascal beroperasi dengan benar, maka tes harus dilakukan untuk mengetahui apakah program berfungsi sesuai dengan yang diharapkan atau tidak. Setelah tes selesai dilakukan, program Pascal dapat digunakan untuk menghasilkan bilangan ganjil sesuai dengan yang diharapkan. 7. Menjalankan program dan mulai menggunakannya. Setelah Anda selesai menulis program, Anda harus menjalankan program untuk memulai menggunakannya. Ini dapat dilakukan dengan mengklik menu Compile atau Build di IDE. IDE akan mengeksekusi program Anda dan membuat file executable. File executable ini yang akan berjalan ketika Anda menjalankan program Anda. Setelah file executable dibuat, Anda dapat menjalankan program Anda dengan klik kanan di file executable dan pilih “Run”. Anda juga dapat menjalankan program dengan menggunakan command line. Untuk melakukannya, Anda harus masuk ke direktori tempat file executable berada, lalu ketik nama file executable. Ketika Anda menjalankan program, Anda akan diminta memasukkan beberapa nilai. Program akan menghitung jumlah bilangan ganjil yang dimasukkan oleh pengguna. Jika semua nilai dimasukkan dengan benar, maka program akan menampilkan jumlah bilangan ganjil yang dimasukkan. Program akan berlanjut hingga pengguna memasukkan nilai -1’, yang menandakan bahwa program sudah selesai dieksekusi. Setelah itu, program akan menampilkan pemberitahuan bahwa program telah selesai dieksekusi dan jumlah bilangan ganjil yang dimasukkan. Ini adalah cara membuat program bilangan ganjil dengan Pascal dan menjalankannya. Dengan mengikuti langkah-langkah ini, Anda dapat dengan mudah membuat program untuk menghitung jumlah bilangan ganjil yang dimasukkan oleh pengguna.
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
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 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 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 Jikadihubungkan dengan program, maka pembuatan algoritma harus memperhatikan kaidah: 1. Pascal, C dan lain-lain. Gambar 2.5 adalah contoh penulisan pseudocode dengan menggunakan gaya penulisan beberapa bahasa pemrograman. Misalnyauntuk per masalahan penentuan apakah suatu bilangan termasuk bilangan ganjil atau genap. Cara men
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.
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

Bilangan ganjil adalah bilangan bulat yang tidak habis dibagi dua. Dalam dunia pemrograman, membuat program bilangan ganjil merupakan salah satu keterampilan dasar yang harus dimiliki, terutama bagi para pemula. Jika Anda ingin belajar cara membuat program bilangan ganjil dengan menggunakan bahasa pemrograman Pascal, berikut adalah langkah-langkahnya. 1. Membuat Variabel Langkah pertama dalam membuat program bilangan ganjil adalah dengan membuat variabel di dalam program. Variabel adalah tempat untuk menyimpan nilai atau data yang akan digunakan dalam program. Untuk membuat variabel pada Pascal, gunakan perintah var dan beri nama variabel yang diinginkan, diikuti oleh tipe data variabel yang akan digunakan. Contohnya varangka integer; Pada contoh di atas, variabel angka memiliki tipe data integer, yang berarti variabel tersebut hanya dapat menyimpan nilai bilangan bulat. 2. Memasukkan Nilai ke Variabel Setelah membuat variabel, selanjutnya adalah memasukkan nilai ke dalam variabel tersebut. Nilai yang dimasukkan dapat berasal dari input pengguna atau dari program itu sendiri. Untuk memasukkan nilai ke dalam variabel, gunakan perintah readln diikuti oleh nama variabel. Contohnya readlnangka; Pada contoh di atas, program akan meminta pengguna memasukkan nilai ke dalam variabel angka. 3. Menentukan Bilangan Ganjil Setelah nilai dimasukkan ke dalam variabel, selanjutnya adalah menentukan apakah bilangan tersebut ganjil atau genap. Untuk menentukan bilangan ganjil, gunakan perintah mod. Perintah mod digunakan untuk mencari sisa hasil bagi antara dua bilangan. Jika sisa hasil bagi antara bilangan tersebut dengan dua adalah satu, maka bilangan tersebut ganjil. Contohnya if angka mod 2 = 1 thenwriteln'Bilangan ganjil'elsewriteln'Bilangan genap'; Pada contoh di atas, program akan mengecek apakah sisa hasil bagi antara variabel angka dan dua sama dengan satu atau tidak. Jika sama dengan satu, program akan menampilkan pesan Bilangan ganjil’, jika tidak, program akan menampilkan pesan Bilangan genap’. 4. Menampilkan Hasil Setelah menentukan apakah bilangan tersebut ganjil atau genap, selanjutnya adalah menampilkan hasilnya ke layar. Untuk menampilkan hasil ke layar, gunakan perintah writeln. Perintah writeln digunakan untuk menampilkan pesan atau nilai ke layar diikuti dengan baris baru. Contohnya writeln'Hasil ', angka; Pada contoh di atas, program akan menampilkan pesan Hasil diikuti dengan nilai dari variabel angka. Itulah langkah-langkah untuk membuat program bilangan ganjil dengan menggunakan bahasa pemrograman Pascal. Dengan mengikuti langkah-langkah di atas, Anda dapat membuat program bilangan ganjil dengan mudah dan cepat. Berikut adalah contoh lengkap program bilangan ganjil dengan menggunakan bahasa pemrograman Pascal program bilangan_ganjil;varangka integer;beginwrite'Masukkan angka ';readlnangka;if angka mod 2 = 1 thenwriteln'Bilangan ganjil'elsewriteln'Bilangan genap';writeln'Hasil ', angka;end. Dalam program di atas, program akan meminta pengguna memasukkan nilai ke dalam variabel angka, kemudian menentukan apakah bilangan tersebut ganjil atau genap, dan akhirnya menampilkan hasilnya ke layar. Semoga artikel ini bermanfaat bagi Anda yang ingin belajar membuat program bilangan ganjil dengan menggunakan bahasa pemrograman Pascal. Selamat mencoba!

oo6ki9.
  • k3hbcvaqu2.pages.dev/225
  • k3hbcvaqu2.pages.dev/167
  • k3hbcvaqu2.pages.dev/371
  • k3hbcvaqu2.pages.dev/136
  • k3hbcvaqu2.pages.dev/148
  • k3hbcvaqu2.pages.dev/87
  • k3hbcvaqu2.pages.dev/64
  • k3hbcvaqu2.pages.dev/198
  • k3hbcvaqu2.pages.dev/100

    • cara membuat program bilangan ganjil dengan pascal