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: ');
readln(jumlah_deret);
for i:=1 to jumlah_deret do
write(i*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 write(i*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: ');
readln(jumlah_deret);
for i:=1 to jumlah_deret do
write((i*2)-1,' ');
readln;
end.
Kali ini isi perulangan for do pada baris 14-15 akan menjalankan perintah write((i*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:');
readln(awal);
write('Input angka akhir:');
readln(akhir);
for i:=awal to akhir do
if (i mod 2 = 0) then
write(i,' ');
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 write(i,' ').
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:');
readln(awal);
write('Input angka akhir:');
readln(akhir);
for i:=awal to akhir do
if (i mod 2 <> 0) then
write(i,' ');
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.