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 ^_^

Program Segitiga

Hola!! Ketemu lagi dengan saya, 1311100043. Hehe jangan bosen2 yah :)
Nah, cukup basa-basinya. Sekarang mari kita lanjutkan untuk mencoba membuat program pascal yang lainnya. Kali ini saya akan mengantar Anda untuk membuat segitiga siku-siku dengan memanfaatkan pernyataan FOR DOWNTO DO. Berikut contoh programnya.

program segitiga_siku2;
uses wincrt;
var i,n,j:integer;
begin
write('alas = tinggi = ');
readln (n);
for i:=n downto 1 do
begin for j:=1 to n do
begin if(j<i) then
write (' ')
else
write ('*'); write(' ');
end;
writeln(' ');
end;
end.

Ini dia output yang dihasilkan setelah klik Run.

output yang dihasilkan dengan memasukkan angka 7

Demikian selamat mencoba!