Pascal: Cara Membuat Deret Bilangan Ganjil dan Genap

“Emang bisa buat program deret bilangan ganjil dan bilangan genap menggunakan pascal ?“

Pernah saya bahas sebelumnya tentang Program Menentukan Deret Aritmatika Bilangan Ganjil. Bedanya dengan eksperimen kali ini, saya akan membuat sejumlah deret bilangan (ganjil dan genap) sesuai dengan keinginan pengguna (user).

Sebelum lebih dalam, saya jelasin dulu konsep deret bilangan ganjil dan genap.

Deret Bilangan Ganjil

Deret bilangan ganjil adalah rangkaian bilangan yang tidak habis dibagi 2. Contoh:
1, 3, 5, 7, 9, …

Polanya, disetiap bilangan akan bertambah 2 dari suku sebelumnya. Sehingga bisa dibuat persamaannya seperti ini :

Deret Bilangan Genap

Deret bilangan genap adalah rangkaian bilangan yang habis dibagi 2. Contoh:
2, 4, 6, 8, 10, …

Polanya, setiap bilangan akan bertambah 2 dari suku sebelumnya. Sehingga bisa dibuat persamaannya seperti ini :

Pembuatan Program Pascal

Sekarang saya jelaskan ide cara kerja program dan pembuatan kode programnya. Ini biasanya disebut merancang algoritma.

Alur Program

1. Input.
   Pengguna (user) akan mengetikkan angka untuk menentukan jumlah deret (n) yang ingin ditampilkan.
2. Proses.
   Pada bagian ini, program akan otomatis membuatkan deret bilangan ganjil dengan menggunakan persamaan (rumus) menghitung bilangan ganjil dari 1 hingga 2n-1.
   Hal yang sama juga, program akan membuatkan deret bilangan genap dari 2 hingga 2n.
3. Output.
   Hasil akhirnya akan ditampilkan deret ganjil dan genap sesuai input dari pengguna (user).

Kode program

Nah, kode program pascal untuk membuat deret bilangan ganjil dan genap seperti ini :

program DeretGanjilGenap;
var
  n, i: integer;
begin
  // Input banyaknya deret
  write('Masukkan jumlah deret (n): ');
  readln(n);

  // Tampilkan deret ganjil
  writeln('Deret bilangan ganjil:');
  for i := 1 to n do
    write((2 * i - 1), ' ');
  writeln; // Pindah baris

  // Tampilkan deret genap
  writeln('Deret bilangan genap:');
  for i := 1 to n do
    write((2 * i), ' ');
  
  readln; // Menahan tampilan konsol
end. 

Temen-temen bisa cobain. Akses ke laman https://onecompiler.com/pascal. Kemudian copy paste kode programnya dan klik RUN. Hasilnya seperti ini:

Selengkapnya bisa lihat VIDEO di atas.

Penjelasan Kode Program

Saya jelasin dikit cara kerja kode programnya.

1. Input (readln(n)):
   User memasukkan jumlah deret (n).
2. Perulangan for untuk Deret Ganjil
   (2 * i – 1) menghasilkan bilangan ganjil (1, 3, 5, …).
3. Perulangan for untuk Deret Genap
   (2 * i) menghasilkan bilangan genap (2, 4, 6, …).
4. Output (writeln):
   Menampilkan deret ganjil dan genap secara horizontal.

Kesimpulan

Dari tulisan di atas, apalagi kalau teme-temen okeguru langsung coba praktik kode programnya, bisa disimpulkan sebagai berikut :

1. Deret Ganjil dimulai dari 1 dengan beda 2.
2. Deret Genap dimulai dari 2 dengan beda 2.
3. Program Pascal menggunakan perulangan for untuk menghasilkan deret.
4. Jika ingin mengubah pola deret, cukup modifikasi rumus dalam write()

Oke, itu saja yang bisa saya bagikan. Semoga bermanfaat.
Salam Inovasi Salam Implementasi.

---

Program Menentukan Deret Aritmatika Bilangan Ganjil Cara Membuat Deret Ganjil dan Genap