Membuat Pola Angka dengan Program Cetak

Program cetak_angka adalah program yang digunakan untuk mencetak pola angka menggunakan bahasa pemrograman Pascal. Program ini menggunakan perulangan dan fungsi gotoxy untuk menentukan posisi cetakan angka. Program ini dimulai dengan membersihkan layar menggunakan fungsi clrscr. Kemudian, variabel a diinisialisasi dengan karakter '1' dan variabel b diinisialisasi dengan nilai 1. Variabel i dan j juga diinisialisasi dengan nilai 1. Selanjutnya, program menggunakan perulangan while untuk mencetak pola angka. Perulangan pertama menggunakan variabel i sebagai batas perulangan, yaitu 20. Perulangan kedua menggunakan variabel j sebagai batas perulangan, yaitu i. Di dalam perulangan kedua, program menggunakan fungsi gotoxy untuk menentukan posisi cetakan angka. Fungsi gotoxy menerima dua parameter, yaitu koordinat x dan y. Pada setiap iterasi perulangan kedua, program mencetak karakter a pada posisi yang ditentukan oleh variabel j dan i. Setelah mencetak karakter, variabel j ditambah 1. Setelah perulangan kedua selesai, variabel j direset menjadi 1 dan variabel i ditambah 1. Variabel b juga ditambah 1 setiap kali perulangan pertama selesai. Setelah itu, program mencetak baris baru menggunakan fungsi writeln. Perulangan pertama dan kedua akan terus berulang sampai variabel i mencapai batas 20. Setelah itu, program selesai. Program cetak_angka dapat digunakan untuk mencetak pola angka yang berbeda-beda sesuai dengan kebutuhan. Dengan memodifikasi nilai variabel a dan perulangan, pengguna dapat mencetak pola angka yang lebih kompleks atau berbeda. Program ini sangat berguna dalam pembelajaran pemrograman Pascal, karena menggabungkan beberapa konsep dasar seperti perulangan, fungsi, dan penggunaan koordinat. Dengan memahami program ini, pengguna dapat mengembangkan kemampuan pemrograman mereka dan menciptakan program-program yang lebih kompleks.