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 :)


Tutorial Terkait:

6 Comments

  1. Anynomous
    11 Nov 16
  2. richie
    13 Nov 16
    • Andre
      13 Nov 16
  3. M.Raihan Rafiiful Allaam
    16 Nov 16
    • Andre
      17 Nov 16

Add Comment