Membuat Segitiga Sembarang dengan Pascal #191

andrypein.net : Segitiga adalah bangun datar yang mempunyai sudut 180 derajat jika ketiga sudutnya dijumlahkan.

Itulah pengetahuan men yang merupakan ilmu dasar pada pelajaran pendidikan moral pancasila di sekolah.

Langsung saja ini full code untuk membuat segitiga sembarang dengan pascal nya :

var
  i,j,k,n : integer;
begin
  readln(n);
  for i:=1 to n do
    begin
      for j:=i to n do
        begin
          write(' ');
        end;
      for k:=i to j do
        begin
          write('*');
        end;
      writeln;
    end;  

Hasil akhirnya nanti akan seperti ini gan.

IdeaOne Src

*AFK