Pascal: Program Menentukan Deret Aritmatika Bilangan Ganjil

Deret Aritmatika? Bahasa Pemograman Pasca ? Apa hubungannya ?

Nah, sebelum jawab itu semua saya ingin coba kasih info dikit tentang Bahasa Pemograman Pascal. Trus nanti kita bahas implementasinya dengan Deret Aritmatika. Lebih khusus dengan Deret Artimatika Bilangan Ganjil.

Apa itu Bahasa Pemograman Pascal ?

Pascal adalah bahasa pemrograman prosedural yang dikembangkan oleh Niklaus Wirth pada tahun 1970. Bahasa ini dirancang untuk tujuan pengajaran pemrograman yang terstruktur, sehingga mudah dipelajari oleh pemula. Pascal juga digunakan dalam pengembangan perangkat lunak, terutama pada era komputer awal (seperti DOS).

Wah, jadul banget dong. Generasi sekarang, pastinya gak kenal semua dengan pemograman Pascal yang runningnya menggunakan OS DOS.

Pascal cocok untuk pemula yang ingin memahami logika pemrograman sebelum beralih ke bahasa seperti C++, Java, atau Python.

Contohnya seperti ini :

program HelloWorld;
begin
  writeln('Halo, Dunia!'); // Menampilkan teks
end.

Dulu populer untuk pengajaran algoritma. Dipakai dalam pembuatan aplikasi desktop (via Delphi). Masih digunakan di beberapa sistem lama dan pendidikan.

Bahasa pemograman Pascal punya ciri khas.

1. Struktur Terstruktur. Kode Pascal terorganisir dalam blok (program, procedure, function).
2. Strongly Typed. Variabel harus dideklarasikan dengan tipe data yang jelas (seperti integer, string, boolean).
3. Sintaks Jelas. Menggunakan kata kunci seperti begin, end, if-then-else, dan for-to-do yang mudah dibaca.
4. Kompatibilitas. Pascal menjadi dasar bahasa modern seperti Delphi (Pascal berorientasi objek).

Kalau sobat okeguru mau bernostalgia dengan pascal, bisa coba compiler pascal online di https://onecompiler.com/pascal

Deret Aritmatika

Deret aritmatika adalah rangkaian bilangan dengan selisih (beda) yang tetap antara dua suku berurutan. Dengan mengetahui konsep Deret Aritmatika, kita bisa tahu angka urutan tertentu. Misal, berapakah angka urutan ke 200 dari deret angka 2, 4, 6, 8, … ?

Gunakan aja rumus ini :

Un=a+(n−1)×b

Un = Suku ke n
a = suku pertama
b = beda (selisih antar suku)

Atau bisa juga menentukan jumlah angkanya. Misalkan seperti tadi, jumlah angka dari 2+4+6+8+…+200 berapa ?

Temen – temen bisa gunakan rumus ini :

Implementasi Deret Aritmatikan Menggunakan Program Pascal

Sekarang sekarang cobain. Saya ambil contoh aja pada deret bilangan ganjil.
Bilangan ganjil membentuk deret aritmatika dengan suku pertamanya (a) = 1, bedanya (b) = 2 dan contoh deret: 1, 3, 5, 7, 9, …

Program Pascal untuk menghitung suku ke-n dan jumlah n suku pertama deret bilangan ganjil akan seperti ini :

program DeretAritmatikaGanjil;
var
  a, b, n, Un, Sn, i: integer;
begin
  // Inisialisasi nilai awal deret ganjil
  a := 1; // Suku pertama
  b := 2; // Beda deret

  // Input banyak suku (n)
  write('Masukkan jumlah suku (n): ');
  readln(n);

  // Hitung suku ke-n (Un)
  Un := a + (n - 1) * b;

  // Hitung jumlah n suku pertama (Sn)
  Sn := (n * (2 * a + (n - 1) * b)) div 2;

  // Tampilkan hasil
  writeln('Suku ke-', n, ' (Un) = ', Un);
  writeln('Jumlah ', n, ' suku pertama (Sn) = ', Sn);

  // Tampilkan deret
  writeln('Deret bilangan ganjil: ');
  for i := 1 to n do
    write((a + (i - 1) * b), ' ');
  
  readln; // Menahan tampilan konsol
end.

Mau nyobain hasilnya ?

Yuk, buka https://onecompiler.com/pascal
Trus copy kode program Pascal di atas.
Paste di lembar kode program onlinecompiler dan klik Run.
Seperti video di atas !

Semoga Bermanfaat.
Salam Inovasi Salam Implementasi

---

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