Program bintang (looping)

Setelah sebelumnya kita bermain dengan if, sekarang ke for. Program di bawah ini akan memunculkan output berupa sekumpulan bintang yang membentuk tangga

  1: Program BintangTangga;

  2: const akhir=18;

  3: var baris, kolom: integer;

  4: begin

  5:   for baris:=1 to akhir do

  6:   begin

  7:     for kolom:=1 to baris do

  8:     write('*');

  9:   writeln;

10:   end;

11: readln;

12: end.

Coba dech dijalankan, gimana hasilnya? menarik bukan?. Sekarang kita coba menampilkan sekumpulan bintang yang membentuk kubus.

  1: Program BintangKubus;

  2: uses crt;

  3: Var i, j, x, y:integer;

  4: Begin

  5:   clrscr;

  6:   Write('Masukkan Dimensi Kubus: ');Readln(x);

  7:   y:=0;

  8:   For i:=1 to x do

  9:   Begin

10:     for j:=1 to x do

11:       Begin

12:         y:=y+1;

13:         write(y:4);

14:         if y mod x=0 then

15:           Writeln;

16:       End;

17:     End;

18: readkey;

19: End.

Gimana? baguskan? Sekarang tugas kamu membuat sekumpulan bintang berbentuk piramida dan berbentuk tangga terbalik (seperti program pertama di atas tetapi terbalik)