Cara Membuat Program Piramid Bintang dalam Pascal

Program Piramida

Program Piramid Bintang adalah program dasar yang saya pelajari selanjutnya program ini sangat mudah dalam pembuatannya tidak membutuhkan waktu yang cukup lama akan tetapi banyak pertanyaan didunia internet kenapa tidak langsung program yang besar-besar saja saya bosan dengan program yang serupa kayak gini? Sementara memang saya hanya orang awam yang hanya bisa belajar oleh kemampuan yang saya miliki apabila nanti saya sudah masuk kategori mahir maka saya akan membuat program yang berspek atau berkualitas tinggi. Dan alasan lain yang bisa menjawab pertanyaan tersebut yakni kita mulai dari langkah awal dulu istilahnya adalah kita belajar dari Dasar lalu melanjutkan ke tingkat Dasar Lanjutan setelah itu Menengah dan yang terakhir adalah Tingkatan yang tinggi(sulit).

Apabila anda ingin belajar lebih lanjut bahasa pemrograman pascal saya sarankan menggunakan aplikasi Dev-Pascal Sesudah mendownload aplikasi tersebut silahkan install dan buat project lalu copy source code berikut ini.

PROGRAM BINTANG_PIRAMID;

var
     jumlah : integer;
     baris  : integer;
     kolom  : integer;
begin
     writeln('masukkan jumlah * yang akan di cetak :');
     readln (jumlah);
     for baris := 1 to (jumlah div 2) do
begin
     for kolom := 1 to (baris-1) do
begin
     write (' ');
     end;
     for kolom := 1 to jumlah do
begin
     write ('*');
     end;
     writeln (' ');
     end;

   if (jumlah div 2) = 1 then
begin
    for kolom := 1 to (jumlah div 2) do
begin
    write (' ');
    end;
    for kolom := 1 to jumlah do
begin
    write ('*');
    end;
    writeln (' ');
    end;
    for baris := 1 to (jumlah div 2) do
begin
    for kolom := ((jumlah div 2)-baris) downto 1 do
begin
    write (' ');
    end;
    for kolom := 1 to jumlah do
begin
    write ('*');
    end;
    writeln (' ');
    end; readln;
end.