Program Segitiga Berpangkat

Program ini untuk membuat deret bilangan pangkat yang disusun secara urut dari pangkat 1, pangkat 2, pangkat 3, dan seterusnya. Kemudian deret tersebut dimuat dalam beberapa baris dimana setiap baris berisi suku sebanyak besarnya bilangan pokok yang dipangkatkan. Hal ini mengakibatkan deret tersebut membentuk segitiga. Untuk lebih jelasnya, silakan aktifkan software TPW yang sudah terinstall di komputer Anda lalu copy-paste program di bawah ini. Setelah itu jangan lupa klik RUN untuk melihat output/hasilnya.

program segitiga_pangkat;
uses wincrt;
var i,n,j,r:integer;  k:longint;
begin
write ('masukkan tingkat yang diinginkan!'); readln (n);
for i:=1 to n do
begin
for j:=1 to i do
k:=1;
for r:=1 to j do
begin
k:=j*k;
write (k); write(' ');
end;
writeln(' ');
end;
end.

Berikut gambaran outputnya jika angka yang dimasukkan = 4.

Selamat mencoba dan semoga berhasil ^_^