Latihan membuat segitiga angka menjadi salah satu materi algoritma yang cukup sering ditemui. Salah satunya karena perlu pemahaman logika serta konsep perulangan bersarang (nested loop) serta logika matematika.
Segitiga angka punya banyak variasi, kali ini kita akan bahas dalam bentuk yang sederhana saja.
Soal Segitiga Angka
Buatlah kode program dalam bahasa Pascal untuk menampilkan gambar segitiga dalam bentuk susunan angka. Agar lebih bervariasi, kita akan buat dalam 3 bentuk angka. Kode program butuh satu inputan yang dipakai untuk menentukan tinggi segitiga.
Berikut variasi deret segitiga angka pertama (soal 1):
## Program Pascal Segitiga Angka ## ===================================== Input tinggi segitiga: 8 1 2 2 3 3 3 4 4 4 4 5 5 5 5 5 6 6 6 6 6 6 7 7 7 7 7 7 7 8 8 8 8 8 8 8 8
Berikut variasi deret segitiga angka kedua (soal 2):
## Program Pascal Segitiga Angka ## ===================================== Input tinggi segitiga: 7 1 1 2 1 2 3 1 2 3 4 1 2 3 4 5 1 2 3 4 5 6 1 2 3 4 5 6 7
Berikut variasi deret segitiga angka kedua (soal 3):
## Program Pascal Segitiga Angka ## ===================================== Input tinggi segitiga: 9 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
Variasi angka di setiap bentuk segitiga sebenarnya hanya perlu sedikit modifikasi. Ini sangat pas untuk menguji logika bagaimana cara menampilkan setiap angka.
Tips Membuat Segitiga Angka
Soal ini melatih pemahaman terkait perulangan bersarang (nested loop) serta logika dasar programming. Berikut tutorial pendahuluan yang bisa diikuti:
- Pengertian Variabel dalam Bahasa Pascal
- Pengertian Tipe Data Integer Bahasa Pascal
- Perulangan FOR DO Bahasa Pascal
- Latihan Kode Program Pascal: Segitiga Bintang
Kita perlu perulangan bersarang atau nested loop untuk memecahkan soal ini. Perulangan luar (outer loop) dipakai untuk menentukan tinggi segitiga, serta perulangan dalam (inner loop) untuk membuat bentuk segitiga.
Jika anda sudah bisa memahami kode program pembuatan segitiga bintang, tidak akan kesulitan dalam membuat deret segitiga angka ini.
Kode Program Pascal Membuat Segitiga Angka (1)
Pada soal pertama, deret angka yang dibuat bersambung pada setiap baris, akan tetapi di baris tersebut angka yang tampil tetap sama. Berikut salah satu solusi untuk membuatnya:
program segitiga_angka;
uses crt;
var
tinggi_segitiga,i,j: integer;
begin
clrscr;
writeln('## Program Pascal Segitiga Angka ##');
writeln('=====================================');
writeln;
write('Input tinggi segitiga: ');
readln(tinggi_segitiga);
writeln;
for i := 1 to tinggi_segitiga do
begin
for j := 1 to i do
begin
write(i,' ');
end;
writeln;
end;
readln;
end.
Hasil kode program:
Kode program meminta satu inputan yang disimpan ke dalam variabel tinggi_segitiga. Variabel inilah yang menjadi penentu kondisi akhir dari perulangan for.
Proses menampilkan deret angka dilakukan oleh perulangan for di baris 15 – 22. Perulangan luar dengan variabel counter i dipakai untuk membuat tinggi segitiga. Ini dimulai dari i := 1 hingga tinggi_segitiga.
Jika pada saat proses input nilai tinggi_segitiga berisi angka 7, maka perulangan luar akan dijalankan sebanyak 7 kali.
Dalam setiap iterasi, jalankan perulangan dalam serta sebuah perintah writeln di baris 21. Perintah ini dipakai untuk proses pindah baris.
Perulangan dalam dengan variabel counter j dipakai untuk membuat deret. Caranya, cukup tampilkan isi variabel i yang akan menaik dari 1, 2, 3, dst hingga mencapai tinggi_segitiga.
Dalam setiap iterasi, jalankan perintah write(i,' '). Tanda spasi setelah variabel i dipakai agar angka tidak berdempet satu sama lain.
Kode Program Pascal Membuat Segitiga Angka (2)
Pada soal kedua, deret angka akan berulang di setiap baris. Untuk membuatnya kita perlu memodifikasi sedikit angka yang ditampilkan:
program segitiga_angka;
uses crt;
var
tinggi_segitiga,i,j: integer;
begin
clrscr;
writeln('## Program Pascal Segitiga Angka ##');
writeln('=====================================');
writeln;
write('Input tinggi segitiga: ');
readln(tinggi_segitiga);
writeln;
for i := 1 to tinggi_segitiga do
begin
for j := 1 to i do
begin
write(j,' ');
end;
writeln;
end;
readln;
end.
Hasil kode program:
Bisakah anda menebak letak perbedaan kode program ini dengan kode kita sebelumnya? Yup, hanya 1 karakter saja, yakni perintah write(j,' ') di baris 19. Sebelumnya yang ditampilkan adalah variabel i, sekarang cukup diganti menjadi variabel j.
Kode Program Pascal Membuat Segitiga Angka (3)
Untuk soal ketiga, deret angka bersambung dari angka pertama hingga angka terakhir. Berikut kode yang diperlukan:
program segitiga_angka;
uses crt;
var
tinggi_segitiga,i,j,k: integer;
begin
clrscr;
writeln('## Program Pascal Segitiga Angka ##');
writeln('=====================================');
writeln;
write('Input tinggi segitiga: ');
readln(tinggi_segitiga);
writeln;
for i := 1 to tinggi_segitiga do
begin
for j := 1 to i do
begin
k:= k+1;
write(k,' ');
end;
writeln;
end;
readln;
end.
Hasil kode program:
Modifikasi dari kode sebelumnya berupa penambahan satu variabel baru, yakni k.
Variabel k akan dinaikkan (di-increment) dalam inner loop dengan perintah k:= k+1 di baris 19. Setelah itu tampilkan dengan perintah write(k,' '). Hasilnya, isi variabel k akan selalu bersambung dalam setiap iterasi.
Sebagai tambahan, bentuk segitiga ini sedikit kurang rapi karena saat sampai ke angka yang terdiri dari 2 digit, besar segitiga terdorong jauh ke kanan.
Agar tampilan segitiga lebih rapi, kita bisa set padding karakter angka:
program segitiga_angka;
uses crt;
var
tinggi_segitiga,i,j,k: integer;
begin
clrscr;
writeln('## Program Pascal Segitiga Angka ##');
writeln('=====================================');
writeln;
write('Input tinggi segitiga: ');
readln(tinggi_segitiga);
writeln;
for i := 1 to tinggi_segitiga do
begin
for j := 1 to i do
begin
k:= k+1;
write(k:3,' ');
end;
writeln;
end;
readln;
end.
Perintah write(k:3,' '); di baris 20 dipakai untuk men-set lebar setiap angka sebesar 3 karakter. Hasilnya, tampilan persegi tetap rapi dari angka 1 hingga 45.
Demikian contoh kode program membuat segitiga angka dalam bahasa Pascal. Semoga bisa bermanfaat.