👯 Cara Membuat Program Bilangan Ganjil Dengan Pascal

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

^{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} 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 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 for. 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 user. Buatlah deret angka genap antara x dan y, dimana x dan y diinput oleh user. Buatlah deret angka ganjil antara x dan y, dimana x dan y diinput oleh user. Contoh hasil kode program Soal 1 Program Pascal Deret Angka Genap ======================================== Jumlah deret yang diinginkan 18 2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 Contoh hasil kode program Soal 2 Program Pascal Deret Angka Ganjil ========================================= Jumlah deret yang diinginkan 20 1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 Contoh hasil kode program Soal 3 Program Pascal Deret Angka Genap ======================================== Input angka awal 18 Input angka akhir 48 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 Contoh hasil kode program Soal 4 Program Pascal Deret Angka Ganjil ========================================= Input angka awal 95 Input angka akhir 130 95 97 99 101 103 105 107 109 111 113 115 117 119 121 123 125 127 129 Tips Membuat Kode Program Deret Angka Ganjil / Genap Karena kita akan membuat deret, maka itu harus menggunakan perulangan. Untuk soal 1 dan 2 tinggal membuat deret kelipatan 2 untuk deret genap dan deret kelipatan 2 lalu dikurangi 1 untuk deret ganjil. Sedangkan untuk soal 3 dan 4, perlu pemeriksaan kondisi if untuk membatasi hanya angka genap atau ganjil saja yang bisa tampil. Proses pemeriksaan ini bisa dilakukan dengan bantuan operator modulus. Berikut tutorial pendahuluan yang bisa diikuti Pengertian Variabel dalam Bahasa Pascal Cara Penggunaan Perintah Read dan Readln Pengertian Tipe Data Integer Pascal Operator Aritmatika Pascal Percabangan IF THEN ELSE Bahasa Pascal Silahkan coba sebentar membuat kode programnya. Kode Program Bahasa Pascal Membuat Deret Angka Genap Untuk soal deret genap pertama, bisa dipecahkan dengan membuat perulangan for biasa dari 1 sampai angka yang di input user, lalu dalam setiap iterasi kali 2 angka tersebut program deret_angka_genap; uses crt; var i, jumlah_deret integer; begin clrscr; writeln' Program Pascal Deret Angka Genap '; writeln'========================================'; writeln; write'Jumlah deret yang diinginkan '; readlnjumlah_deret; for i=1 to jumlah_deret do writei*2,' '; readln; end. Bagian utama kode program ini ada di perulangan for do pada baris 14-15, yakni sebuah perulangan for dari 1 sampai jumlah_deret. Dalam setiap iterasi, jalankan perintah writei*2,' '. Hasilnya, akan tampil deret angka dengan penambahan 2 dan semuanya angka genap. Kode Program Bahasa Pascal Membuat Deret Angka Ganjil Untuk versi deret angka ganjil, trik yang cukup mudah adalah mengurangi 1 angka dari setiap deret angka genap sebelumnya. Berikut kode yang dimaksud program deret_angka_ganjil; uses crt; var i, jumlah_deret integer; begin clrscr; writeln' Program Pascal Deret Angka Ganjil '; writeln'========================================='; writeln; write'Jumlah deret yang diinginkan '; readlnjumlah_deret; for i=1 to jumlah_deret do writei*2-1,' '; readln; end. Kali ini isi perulangan for do pada baris 14-15 akan menjalankan perintah writei*2-1,' '. Semua angka genap tinggal dikurangi 1, maka dapatlah deret angka ganjil. Kode Program Bahasa Pascal Membuat Deret Angka Genap dengan Jangkauan Untuk soal ketiga, angka genap yang ditampilkan harus dalam jangkauan tertentu. Untuk membuatnya, lakukan perulangan dengan tambahan kondisi if program deret_angka_genap; uses crt; var i, awal, akhir integer; begin clrscr; writeln' Program Pascal Deret Angka Genap '; writeln'========================================'; writeln; write'Input angka awal'; readlnawal; write'Input angka akhir'; readlnakhir; for i=awal to akhir do if i mod 2 = 0 then writei,' '; readln; end. Kode program ini perlu 2 nilai input yang disimpan ke dalam variabel awal dan akhir. Kedua variabel inilah yang menjadi penentu awal dan akhir perulangan for di baris 16. Dalam setiap iterasi, periksa apakah variabel counter i habis dibagi 2 atau tidak. Jika iya, maka tampilkan angka tersebut dengan perintah writei,' '. Kode Program Bahasa Pascal Membuat Deret Angka Ganjil dengan Jangkauan Untuk versi deret angka ganjil dengan jangkauan, yang perlu diubah hanya di bagian kondisi saja, dimana sekarang yang diperiksa adalah apakah angka tersebut tidak habis dibagi 2 program deret_angka_ganjil; uses crt; var i, awal, akhir integer; begin clrscr; writeln' Program Pascal Deret Angka Ganjil '; writeln'========================================'; writeln; write'Input angka awal'; readlnawal; write'Input angka akhir'; readlnakhir; for i=awal to akhir do if i mod 2 0 then writei,' '; readln; end. Pemeriksaan kondisi if i mid 2 0 hanya dipenuhi jika variabel counter i berisi angka yang tidak habis dibagi 2, dan itu adalah angka ganjil. Demikian kode program latihan membuat deret angka ganjil/genap dalam bahasa pemrograman Pascal. Latihan deret ini cukup sering dipakai untuk menguji pemahaman tentang perulangan. Semoga bermanfaat. 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.

Programdalam bahasa Pascal untuk menghitung jumlah dan rata-rata bilangan ganjil genap. Coding untuk meghitung jumlah dan rata-rata bilangan ganjil dan genap. Programnya dapat dilihat dibawah ini: program hitung_genap_ganjil; uses crt; var N,i,a, ganjil,genap : integer; jumlahganjil, jumlahgenap : integer; rataganjil, ratagenap : real; begin

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.