Program Segitiga

Dalam posting ini saya akan menulis code dari program pembuat segitiga dengan input sebanyak n baris dari segitiga. Pada program kali ini, saya menggunakan looping for-do. Penggunaan for-do untuk pembuatan program segitiga adalah cara termudahnya. Simak code berikut ini..


Program Segitiga;
Var
  n,i,j:longint;
begin
  readln(n);
  for i:=1 to n do   {looping untuk baris}
  begin
    for j:=1 to i do   {looping untuk kolom}
      write('x');
    writeln;             {untuk pindah baris}
  end;
end.


Pada program diatas, jika dimasukkan input 5 (n=5), maka akan menghasilkan


Output:
*
**
***
****
*****


Silahkan bertanya diposting ini jika ada masalah dengan program atau ada yang tidak dimengerti dari code diatas. thanks sudah membaca kurakura programmer.

Bye! Salam KuraKura :)