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!