CaraMembuat Program Bilangan Prima Dengan Pascal Bilangan Prima Genap Bilangan prima adalah bilangan yang unik karena bilangan prima tidak memiliki faktor lain selain bilangan 1 dan bilangan itu sendiri. Untuk dapat menampilkan bilangan prima dengan pascal, silakan ketikkan kode pascal berikut ini. Penjelasandari contoh program menampilkan deret bilangan ganjil diatas sebagai berikut : for (int ganjil = 1 ; ganjil <=9; ganjil++) berarti perulangannya jelas yaitu perulangan for, dan "ganjil" adalah variablenya , nilai awalnya adalah 1 dan nilai akhirnya adalah 9. Kaliini 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. Kalau diamati pada persamaan deret aritmatika: Un = a + (n-1)b. Untuk menentukan deret ganjil dan genap ditentukan oleh nilai "a", yaitu nilai awal bilangan pertama. 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 : 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 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. 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); 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); 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 Aturanpenulisan kode program pascal. 1. Struktur sederhana kode pascal. Pascal adalah bahasa pemrograman deklaratif dan terstruktur, yang artinya seluruh variabel, konstanta, fungsi, dan beberapa struktur pemrograman lain harus 'diperkenalkan' diawal kode program dan dalam urutan yang sudah ditentukan.Didalam pemrograman, 'perkenalan' ini dikenal dengan istilah 'deklarasi M3cYBnb. 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! 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. 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