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 Pos ini dipublikasikan di Pascal. Tandai permalink.
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 .
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.
programinisialisasi x 0 dan i 0 input nilai batas n lakukan proses bilangan ganjil atau genap dengan menggunakan bahasa 1 / 8. pemrograman c ini adalah soal latihan percabangan tingkat mudah nomor 1 pada mata kuliah algoritma dan pemrograman 1 perulangan menampilkan bilangan genap a algoritma untuk menampilkan bilangan ganjil antara
Latihan Kode Program Pascal Menentukan Bilangan Ganjil Genap 10 Oct 22 Tutorial Pascal Contoh soal dan latihan kode program bahasa Pascal kali ini membahas cara menentukan apakah sebuah bilangan ganjil atau genap. Latihan ini menguji pemahaman seputar kondisi if else dan operator aritmatika modulus. Soal Menentukan Bilangan Ganjil Genap Buatlah kode program dalam bahasa Pascal untuk menampilkan apakah sebuah bilangan yang diinput oleh user itu ganjil atau genap. Program meminta 1 inputan angka bulat dan menampilkan hasil “Ganjil” atau “Genap”. Contoh hasil kode program 1 Program Pascal Menentukan Ganjil-Genap ============================================== Input sebuah angka bulat 5 5 adalah bilangan ganjil Contoh hasil kode program 2 Program Pascal Menentukan Ganjil-Genap ============================================== Input sebuah angka bulat 20 20 adalah bilangan genap Contoh hasil kode program 3 Program Pascal Menentukan Ganjil-Genap ============================================== Input sebuah angka bulat 0 0 adalah bilangan genap Tips Membuat Kode Program Menentukan Bilangan Ganjil Genap Soal ini bisa dipecahkan dengan memahami pengertian angka genap dan angka ganjil. Angka genap adalah angka yang habis dibagi 2. Sedangkan angka ganjil adalah angka yang tidak habis dibagi 2. Proses menentukan “habis dibagi” ini bisa dilakukan dengan operator modulus. Dalam bahasa Pascal, operator modulus ditulis dengan perintah mod. Berikut contoh perhitungannya 8 mod 5 = 3, karena 3 adalah angka sisa pembagian. 100 mod 7 = 2, karena hanya 98 yang habis dibagi 7 bersisa 2. 8 mod 2 = 0, karena 8 dibagi 2 tidak memiliki sisa. 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 Kode Program Bahasa Pascal Menentukan Bilangan Ganjil Genap Berikut kode program menentukan bilangan ganjil atau genap dalam bahasa Pascal program cek_genap_ganjil; uses crt; var x integer; begin clrscr; writeln' Program Pascal Menentukan Ganjil-Genap '; writeln'=============================================='; writeln; write'Input sebuah angka bulat '; readlnx; if x mod 2 = 0 then writelnx,' adalah bilangan genap' else writelnx,' adalah bilangan ganjil'; readln; end. Kode program butuh satu variabel x yang akan menampung inputan angka dari user. Angka ini harus berbentuk angka bulat karena x di set sebagai integer. Proses pembacaan dilakukan dengan perintah readlnx di baris 12. Setelah itu masuk ke pemeriksaan kondisi if x mod 2 = 0. Kondisi ini akan bernilai true jika x habis dibagi 2, yang berarti itu adalah angka genap. Namun jika kondisi ini tidak terpenuhi atau false, maka itu pastilah angka ganjil. Kita tinggal sambung pemeriksaan kondisi ini dengan blok else. Dalam teori matematika, 0 adalah angka ganjil. Sehingga kita tidak perlu membuat kondisi tambahan untuk angka 0. Alternatif kode program, kita bisa memeriksa angka ganjil terlebih dahulu. Yang diperlukan adalah membalik logika, sekarang kondisi if akan memeriksa apakah sebuah angka tidak habis dibagi dengan 2. Berikut contoh kode yang dimaksud program cek_genap_ganjil; uses crt; var x integer; begin clrscr; writeln' Program Pascal Menentukan Ganjil-Genap '; writeln'=============================================='; writeln; write'Input sebuah angka bulat '; readlnx; if x mod 2 0 then writelnx,' adalah bilangan ganjil' else writelnx,' adalah bilangan genap'; readln; end. Kondisi if x mod 2 0 di baris 14 hanya akan bernilai true jika x tidak habis dibagi 2. Jika ini terpenuhi, maka itu adalah angka ganjil. Jika tidak terpenuhi, maka x berisi angka genap. Demikian contoh kode program menentukan bilangan ganjil genap dalam bahasa Pascal. Program ini relatif sederhana namun tidak jarang membuat bingung programmer pemula. 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.
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
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
9XQUY. 2itxthm2gc.pages.dev/2772itxthm2gc.pages.dev/1292itxthm2gc.pages.dev/3582itxthm2gc.pages.dev/4472itxthm2gc.pages.dev/3622itxthm2gc.pages.dev/4672itxthm2gc.pages.dev/3292itxthm2gc.pages.dev/215
cara membuat program bilangan ganjil dengan pascal