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.
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.
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.
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 :)
Sumber wk.com
EmoticonEmoticon