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
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.

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

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
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
Home » Pascal » Pascal Program Menentukan Deret Aritmatika Bilangan Bilangan Ganjil 6286 Views June 20, 2014 122 pm Published by No comment 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 Pascal. Rumus Deret Aritmatika Dalam matematika rumus deret suke ke-n atau Un ditulis sbb Un=a+n-1b Un = suku ke-n a = deret pertama/suku ke-1 b = beda atau selisih suku b=U2-U1 n = 1, 2, 3, dst Listing Program Pascal Deret Bilangan Ganjil program cari_deret; uses crt; var Un, a, b, n integer; begin a=1; b=2; n=3; Un=a+n-1*b; writelnUn; readln; end.

Penjelasandari contoh program menampilkan deret bilangan ganjil diatas sebagai berikut : for (int ganjil = 1 ; ganjil

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

kaliini aku coba posting program ganjil & genap menggunakan array dalam Turbo Pascal 7.1. ea sebenarnya sih aku buat ini saat masih semester 1 di mata kuliah algoritma dan pemrograman hehehe.. program ini cukup sederhana langsung aja cekidot. :D tulis kayak gini ya uses crt; var a,b:array [1..100] of integer; x,p,q:integer; begin clrscr;

FNFi. 125 425 46 282 221 394 180 252 427

cara membuat program bilangan ganjil dengan pascal