Tutorial Belajar Pascal: Cara Membuat Deret Dalam Bahasa Pascal

Dalam tutorial belajar pascal di duniailkom kali ini kita akan membahas cara membuat deret menggunakan bahasa pemrograman pascal.

Jika anda sudah mengikuti seluruh tutorial pascal di duniailkom mulai dari part 1 hingga selesai, saya sudah beberapa kali menggunakan contoh pembuatan kode program deret. Disini kita akan ulang kembali agar semakin paham.


Contoh Kode Program Membuat Deret Dalam Bahasa Pascal

Deret adalah sebutan untuk angka berulang dengan aturan tertentu. Bisa jadi angka itu naik dengan kelipatan 9, atau angka itu turun dengan selisih yang berlainan. Inti dari pembuatan deret ada di rumus matematis yang digunakan dalam menghitung angka selanjutnya.

Deret pun punya banyak jenis, mulai dari deret aritmatika, deret geometri, hingga yang cukup kompleks seperti deret Fibonacci.

Menggunakan bahasa pemrograman pascal, kita bisa membuat deret yang bisa dibilang tanpa batas, selama processor dan memory komputer sanggup menanganinya.

Sebagai contoh pertama, saya akan merancang kode program untuk membuat deret menaik dengan kelipatan 9:

program kode_program_deret;
uses crt;
var
  i: integer;
begin
  clrscr;

    for i := 1  to 15 do
      begin
        writeln(i*9);
      end;
    
  readln;
end.

Contoh hasil kode program pembuatan deret pascal

Disini saya menggunakan perulangan FOR DO untuk membuat deret. Rumus dari deret itu sendiri ada di dalam perulangan. Untuk menampilkan deret kelipatan 9, caranya dengan menulis writeln(i*9).

Bagaimana jika angkanya ingin ditampilkan ke samping? Saya tinggal mengganti perintah writeln dengan write:

program kode_program_deret;
uses crt;
var
  i: integer;
begin
  clrscr;

    for i := 1  to 15 do
      begin
        write(i*9, ' ');
      end;
    
  readln;
end.

Contoh hasil kode program pembuatan deret pascal

Selain menampilkan angka dengan kelipatan 9, kita juga harus menambahkan 1 spasi di sisi kanan agar tampilannya lebih rapi, sehingga perintahnya menjadi: write(i*9, ' ').

Untuk deret yang lebih kompleks, kita hanya perlu "memikirkan" rumus yang ada, misalnya seperti kode berikut:

program kode_program_deret;
uses crt;
var
  i: integer;
begin
  clrscr;

    for i := 1  to 15 do
      begin
        write((i*9) - 3, ' ');
      end;
    
  readln;
end.

Contoh hasil kode program pembuatan deret pascal

Kali ini rumus deretnya adalah 1*9 – 3.


Contoh Kode Program Deret dengan Perulangan WHILE DO

Untuk perulangan while do, proses pembuatan deret kurang lebih sama. Berikut contoh kode programnya:

program kode_program_deret;
uses crt;
var
  i: integer;
begin
  clrscr;
  i:= 1;
  
    while i <= 15 do
    begin
      write((i*9), ' ');
      i:= i + 1;
    end;

  readln;
end.

Tentu saja selain menampilkan deret, kita tidak lupa menaikkan nilai variabel counter i.


Contoh Kode Program Deret dengan Perulangan REPEAT UNTIL

Bagaimana cara membuat deret menggunakan perulangan repeat until? Berikut modifikasi dari kode program untuk menampilkan deret kelipatan 9 dengan repeat until:

program kode_program_deret;
uses crt;
var
  i: integer;
begin
  clrscr;
  i:= 1;
  
  repeat
    begin
      write((i*9), ' ');
      i:= i + 1;
    end;
  until i >= 15;

  readln;
end.

Khusus untuk perulangan dengan while do dan repeat until, kita juga harus perhatikan kondisi awal dan akhir perulangan. Sebelum block perulangan saya mendefenisikan variabel i dengan i:= 1. Karena jika tidak, pascal akan memulai deret dari angka 0. Selain itu untuk akhir perulangan juga menggunakan kondisi until i >= 15, bukan until i > 15 (semoga anda bisa memahami apa perbedaannya).


Apa yang saya contohkan dalam tutorial ini merupakan versi sederhana dari deret dalam bahasa pemrograman pascal. Sekali lagi, kunci dari deret ini ada di rumus matematisnya. Untuk perhitungan yang rumit, mungkin juga memerlukan kondisi tambahan lain seperti if else, atau bahkan nested loop (perulangan di dalam perulangan).

Semoga bisa bermanfaat :)


eBook Pascal Uncover Duniailkom
Apabila 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.

20 Comments

  1. Anynomous
    11 Nov 16
  2. richie
    13 Nov 16
  3. M.Raihan Rafiiful Allaam
    16 Nov 16
    • Andre
      17 Nov 16
  4. Ahmad Ramdani
    28 Dec 16
  5. ronaldo
    14 May 17
    • Andre
      21 May 17
    • vendetta25
      21 Oct 17
  6. Fikri
    27 Feb 18
    • Andre
      27 Feb 18
  7. Rizki
    14 Apr 18
  8. fauzan
    24 Oct 18
    • Andre
      26 Oct 18
  9. mrzonk
    25 Dec 18
  10. Abdul Rosyid
    25 May 20
    • Abdul Rosyid
      26 May 20
  11. Aldrian
    11 Jan 21
  12. Thofhan
    05 Nov 22

Add Comment