Contoh Prog. Pascal

Membuat bentuk segitiga

LISTING PROGRAM :










LOGIKA PROGRAM :
Program ini dibuat untuk menampilkan struktur bintang-bintang (*). Untuk memulai program ini masukan terlebih dahulu nama program tersebut dengan nama “program bintang; “.Perintah ini tidak wajib di tulis pada saat pembuatan program di Pascal, kita bisa langsung menuliskan perintah selanjutnya yaitu “uses crt;”. Pada saat setelah statement kita wajib menuliskan titik koma (;). Setelah itu ketik uses crt yang berfungsi untuk menampilkan output di layar. Setelah itu masukan variable-variabelnya yaitu baris, kolom , jumbaris dan semua variable diberi tipe data integer. Lalu masukkan perintah “begin”. Perintah begin berfungsi untuk menuliskan statement-statement atau perintah-perintah yang nantinya statement-statement tersebut akan diproses oleh komputer sehingga menghasilkan output. Dilanjutkan dengan memasukan perintah “clrscr” untuk membersihkan layar.
Perintah write(‘jumlah baris:’) bertujuan untuk meminta user memasukan nilai (input). Setelah itu masukan perintah readln (jumbaris); artinya data tersebut dimasukan kedalam variable jumbaris. Baris:=1; artinya variable baris sama dengan angka 1. perintah while baris <=jumbaris do maksudnya adalah sementara variable baris lebih besar sama dengan variable jumbaris lalu kemudian kerjakan. Masukan perintah begin lagi untuk memulai program. Perintah write(‘*’:jumbaris +1-baris ); artinya mencetak tanda * dari hasil variable jumbaris ditambah 1 dikurangI dengan variable baris. Perintah kolom:=2; artinya variable kolom sama dengan 2. while kolom<= (2*baris-1) do artinya sementara variable kolom lebih kecil sama dengan 2 dikalikan variable baris dikurangi dengan 1 lalu lakukan. Masukan perintah begin. Write(*); pada output akan menampilkan tanda (*) bintang. Perintah kolom:=kolom+1; berfungsi untuk variable kolom sama dengan variable kolom +1. ini akan berkrja sesuai dengan input yang menentukan jarak dari kolom. Perintah end; untuk berhenti lalu writeln; untuk menampilkan program utama tersebut . perintah baris :=baris +1; berfungsi agar variable baris yang telah dimasukkan akan bertambah secara bertahap. lalu masukan perintah end; yang berfungsi untuk membatasi statement satu dengan yang lainnya. Perintah readln; untuk membaca keseluruhan program. Terakhir masukan perintah end. Untuk mengakhiri program.
OUTPUT :