Contoh Bahasa Pemrograman Turbo Pascal (TPW 1.5) Piramida Bintang

Contoh membuat piramida bintang turbo pascal merupakan salah satu tutorial atau panduan pascal yang paling banyak dicari.

Pascal merupakan bahasa pemrograman yang cara penulisannya sangat dekat dengan cara penulisan algoritma structur english. Bagi yang sudah memahami algoritma, pascal  akan sangat mudah untuk dimengerti.

Pascal itu sendiri bukanlah nama dari sang pembuat, karena yang membuat bahasa pemrograman Pascal adalah Nicklus Wirth. Sedangkan nama “PASCAL” diambil dari nama seorang ahli matematika Blaise Pascal yang berasal dari perancis, karena sudah membuat mesin hitung.

Berikut contoh piramida bintang dalam bahasa pemrograman pascal:

program bintang_piramid;
uses wincrt;
var c,a,b,n : integer;
begin
  write ('masukkan angka : ');readln(n);
  writeln;
  if n mod 2 = 0 then
    for a := 1 to (n div 2) do begin
      for b := 1 to (n div 2)-a do
      write (' ');
      for c := 1 to (a*2) do
        write ('*');
      writeln;
    end
  else
    for a := 1 to (n div 2)+1 do begin
      for b := 1 to (n div 2)+(1-a) do
      write (' ');
      for c := 1 to (a*2)-1 do
        write ('*');
      writeln;
    end;
end.

Hasil kode Piramida Bintang Pascal tersebut adalah: