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!
