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); 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. Berinilai a = 2. Sebagai contoh diatas kita membuat program untuk menentukan suatu bilangan yang dimasukan merupakan bilangan genap atau ganjil. 1 3 5 7 9 dst. Program pascal menampilkan bilangan ganjil dari 1 sampai n deret menggunakan if serta perulangan for next. Bilangan genap adalah bilangan yang habis dibagi . 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 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 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); NamaPascal dengan dirinya sendiri terinspirasi berasal dari Akun matematikawan Perancis yang memulai dengan kali menciptakan pembuat sebaliknya, yaitu Blaise Pascal. Menentukan Bilangan Ganjil atau bahkan Genap; Cara Membuat dan Contoh Sintaknya. sistem GanjilGenap; makes use of crt; var angka :integer; start clrscr; writeln('Status 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 ls92Ar. 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 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. Home » Pascal » Pascal Cara Membuat Deret Bilangan Ganjil dan Genap 6136 Views June 20, 2014 115 pm Published by No comment Salam semangat sahabat CMW. 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. Kalau diamati pada persamaan deret aritmatika Un = a + n-1b Untuk menentukan deret ganjil dan genap ditentukan oleh nilai “a”, yaitu nilai awal bilangan pertama. Bilangan ganjil 1, 3, 5, 7, dst… jadi nilai a = 1 Biangan ganjil 2, 4, 6, 8, dst… jadi nilai a = 2 Berikut adalah listing program pascal selengkapnya… program cari_deret; uses crt; var Un, a, b, n integer; begin clrscr; writelnKetik 1 untuk deret ganjil’; writelnKetik 2 untuk deret bilangan genap’; write ; readlna; writeln”; writeUrutan bilangan yang dicari ;readlnn; b=2; Un=a+n-1*b; writelnBilangan ke-’,n,’ adalah ,Un; readln; end. Silahkan dicoba