Program Piramida Pascal

Berikut merupakan contoh program dasar Pascal. 
Membuat program untuk menampilkan piramida yang besarnya sesuai dengan yang dimasukkan. Kemudian lakukan validasi untuk angka yang dimasukkan. Angka yang dimasukkan harus antara 2 sampai 10. Bila angka yang dimasukkan adalah angka 0, maka program selesai. 



program piramida;

uses wincrt;
var i, j, tinggi, lok :byte;

begin

    clrscr;
    write('Tinggi Piramida [2..10]:');
    repeat
        GotoXY(26,1); ClrEol;
        Readln(Tinggi);
    until Tinggi in [2..10];
    for i := 1 to Tinggi do
        begin
            lok := 40-i;
            for j := 1 to i do
                begin
                    GotoXY(lok, i);
                    write('*');
                    lok := lok+2;
                    end;
                end;
            end.


Maka hasilnya 

Semoga yang saya posting ini dapat bermanfaat..




sumber :  Struktur Data di Planet Pascal, Dwi Sanjaya